7 lines
263 B
Text
7 lines
263 B
Text
10 s=&4000:SYMBOL AFTER 256:MEMORY s-1
|
|
20 FOR i=0 to 14:READ a:POKE s+i,a:NEXT
|
|
30 DATA &d5,&e5,&cd,&69,&bb,&ed,&53,&20,&40,&22,&22,&40,&e1,&d1,&c9
|
|
40 CALL s
|
|
50 h=PEEK(&4020)-PEEK(&4022)+1
|
|
60 w=PEEK(&4021)-PEEK(&4023)+1
|
|
70 PRINT "window width:"; w; ", height:"; h
|