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