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