home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1993 February
/
64er_Magazin_93-02_1993_Markt__Technik_de_Side_A.d64
/
surface-test
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
544b
|
18 lines
100 rem mini-test f. surface stk 9/92
105 ifpeek(50178)+peek(50179)*256<>9888thena=1:load"surface",8,1
107 ifa=1thensys49554
110 _color,14,6:print"[147]":dimb$(40)
120 fori=0to40:b$(i)=str$(i):next
130 _chardef,0,173,1,2,4,8,16,32,64,128
140 _icol,8,6,1,0:_icons
150 _color,15,2:poke646,1
160 _frame,8,5,31,20,"mini-test"
170 _frame,0,0,39,20,"surface"
180 _frame,0,20,39,24,"<<return>>"
190 _window,9,6,30,19:o=5:r=8
200 _show,b$(2),38,o,r,o,r,t
210 ift=13then:_fetch,1,b$(1+o+r)," ",22,b$(1+o+r):goto200
220 _shut:_at,1,22:printb$(1+o+r);
230 fori=0to12:_up,0,12,39,24:_down,0,0,39,12:next
240 _off:end