home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8504b.d64 / lupe (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  453b  |  23 lines
  1. 0 REM TASTEN :  A B   < >
  2. 10 (null)1:(null):(null)1:(null)1:(null):(null)1:(null)14,6
  3. 20 (null)"GESICHT",8
  4. 30 POKE650,128
  5. 40 (null)0:(null)20:(null)0:(null)23:(null)0,0,0:(null)
  6. 50 (null)1
  7. 70 POKE50168,120:POKE50169,121
  8. 80 VI=53248
  9. 90 POKEVI+2,40:POKEVI+3,212:POKEVI+16,2
  10. 100 POKEVI+21,3
  11. 110 POKEVI+23,2:POKEVI+29,2
  12. 120 POKEVI+39,1:POKEVI+40,1
  13. 130 X=160:Y=100:GOTO150
  14. 140 GETA$:IFA$=""THEN140
  15. 150 IFA$="A"THENIFY>50THENY=Y-1
  16. 160 IFA$="Z"THENIFY<229THENY=Y+1
  17. 170 IFA$=","THENIFX>24THENX=X-1
  18. 180 IFA$="."THENIFX<320THENX=X+1
  19. 190 (null)1,X-24,Y-50
  20. 200 POKEVI,XAND255:POKEVI+16,X/256+2
  21. 210 POKEVI+1,Y
  22. 220 GOTO140
  23.