home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 89xx / 8901c.d64 / maus2.demo (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  679b  |  38 lines
  1. 100 REM -------------------------------
  2. 105 REM ----- MAUSZEIGER-DEMO 03 ------
  3. 110 REM -------------------------------
  4. 115 REM -------------------------------
  5. 120 :
  6. 125 :
  7. 130 IF A=0 THEN A=1:LOAD "MAUS*",8,1
  8. 135 POKE 53280,15:POKE 53281,15
  9. 140 POKE 646,11
  10. 145 PRINT"[147]";CHR$(14);
  11. 150 :
  12. 155 PRINT "[194]ITTE GEBEN [211]IE ZEHN BELIEBIGE [215]ORTE"
  13. 160 PRINT "EIN :":PRINT
  14. 165 FOR T=0 TO 9
  15. 170 INPUT W$(T)
  16. 175 NEXT T
  17. 180 :
  18. 185 PRINT "[147]";
  19. 190 FOR T=0 TO 9
  20. 195 PRINT W$(T)
  21. 200 NEXT T
  22. 205 SYS 49152,1,0,2
  23. 210 :
  24. 215 T=PEEK(56320)AND 16
  25. 220 IF T<>0 THEN 215
  26. 225 Y=PEEK(53249)-50
  27. 230 L=INT(Y/8)
  28. 235 IF L>10 THEN 215
  29. 240 X=PEEK(53248)-24+256*(PEEK(53264)AND 1)
  30. 245 S=INT(X/8)
  31. 250 IF S> LEN(W$(L)) THEN 215
  32. 255 :
  33. 260 AD=1024+L*40
  34. 265 FOR T=0 TO LEN(W$(L))
  35. 270 POKE AD+T,(PEEK(AD+T)+128) AND 255
  36. 275 NEXT T
  37. 280 GOTO 215
  38.