home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8611a.d64 / basic-demo (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  618b  |  23 lines
  1. 100 REM   ***************************
  2. 110 REM   *                         *
  3. 120 REM   *   DEMO - LAUFSCHRIFT    *
  4. 130 REM   *                         *
  5. 140 REM   *  VON N.NEBEL 21.2.1986  *
  6. 150 REM   *                         *
  7. 160 REM   ***************************
  8. 170 REM
  9. 180 POKE56,62:CLR:ZA=53248
  10. 190 PRINT"[147]2 TEXTE EINGEBEN, JEWEILS HOECHST. 24 Z."
  11. 200 INPUT"1.";A$:INPUT"2.";B$
  12. 210 PRINT"[147]"A$:PRINT""B$
  13. 220 FORI=15872TO16382:POKEI,0:NEXT
  14. 230 POKE56334,0:POKE1,51
  15. 240 FORA=0TO7:FORB=0TO2
  16. 250 AD=ZA+8*PEEK(1024+A*3+B)
  17. 260 A2=ZA+8*PEEK(1104+A*3+B)
  18. 270 FORI=0TO7:POKE15911+A*64+B+I*3,PEEK(AD+I)
  19. 280 POKE15872+A*64+B+I*3,PEEK(A2+I):NEXT
  20. 290 NEXT:NEXT
  21. 300 POKE1,55:POKE56334,1
  22. 310 POKE53280,0:POKE16383,255:SYS49152
  23.