home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 6 / 64er_Magazin_Sonderheft_06_86-06_1986_Markt__Technik_de_Disk_1_of_3_Side_A.d64 / lupe (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.