home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh9x / sh93a.d64 / lader (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  588b  |  25 lines
  1. 100 REM      FREEZER-LADEPROGRAMM
  2. 105 :
  3. 110 REM    (C)1987 BY PATRICK URBAN
  4. 112 :
  5. 115 IFSA=820THEN250
  6. 120 SA=820:FORI=SATOSA+6:READA:POKEI,A:NEXTI
  7. 130 DATA133,95,134,96,76,191,163
  8. 140 POKE88,0:POKE89,192:POKE90,0:POKE91,192:POKE780,0:POKE781,160:SYSSA
  9. 150 POKE88,0:POKE89,0:POKE90,0:POKE91,0:POKE780,0:POKE781,224:SYSSA
  10. 205 POKE65092,76:POKE65093,80:POKE65094,247
  11. 210 FORI=58523TO58536:READD:POKEI,D:NEXT
  12. 220 DATA 70,82,69,69,90,69,82,32,66,89,32,80,65,84
  13. 225 :
  14. 230 LOAD"FREEZER",8,1
  15. 235 :
  16. 240 :
  17. 250 REM DRUCKER (MAX 18 DATEN)
  18. 260 I=64677:C=0:FORZ=1TO21:READD:NEXT
  19. 270 READD:IFD=333THEN280
  20. 275 POKEI+C,D:C=C+1:GOTO270
  21. 280 POKE64673,C
  22. 290 DATA 27,32,88,27,32,76,27,50,27,65,7,146,13,333
  23. 300 :
  24. 350 POKE1,53:NEW
  25.