home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 26 / Tiger_Disk_026_19xx_Tiger-Crew-Disk_de_Side_B.d64 / spread-maker (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  969b  |  27 lines
  1. 0 open1,8,15,"i":close1:poke788,52:poke53280,0:poke53281,0:poke646,1
  2. 1 print"[147]vor start zeilen 11,12,57,60 aendern          und zeilen 1 - 4 entfernen!"
  3. 2 print"         (zeile 57 = disk-id                      zeile 60 = disk-name)
  4. 3 [153]"        dann prg.  neu speichern!":[129]i[178]1[164]39:[153]"and";:[130]:[153]
  5. 4 [153]"     (anleitung: prg.-ende mit 'e'!)":[129]i[178]1[164]39:[153]"usr";:[130]:[155]10[171]14
  6. 10 t$[178]"(NULL)lenlenlenlenlenlenlenlenlenlenlenlenlenright$"
  7. 11 p$[178]"peek  spread by  peek"
  8. 12 c$[178]"peek  tigercrew  peek"
  9. 14 d$[178]"mid$lenlenlenlenlenlenlenlenlenlenlenlenlen(NULL)"
  10. 20 [153]"load":[151]53280,0:[151]53281,0
  11. 30 q$[178]" swap-disk - 4 blocks frei - einlegen "
  12. 35 [153]"";q$:[141]40:[139]f$[178]"e"[167][153]"load":[128]
  13. 36 [137]35
  14. 40 [161]f$:[139]f$[179][177]" "[167] [142]
  15. 50 [160]2
  16. 51 [153]"load"
  17. 52 [159]2,8,2,t$[170]",u,w":[152]2,[199](255);[199](255):[160]2
  18. 53 [159]2,8,2,p$[170]",u,w":[152]2,[199](255);[199](255):[160]2
  19. 54 [159]2,8,2,c$[170]",u,w":[152]2,[199](255);[199](255):[160]2
  20. 55 [159]2,8,2,d$[170]",u,w":[152]2,[199](255);[199](255):[160]2
  21. 57 id$[178]"+t-c+"
  22. 58 [159]15,8,15:[152]15,"i"[170]dv$:[159]1,8,3,"#":[152]15,"u1:3"dv",18,0"
  23. 59 [152]15,"b-p:3,162":[152]1,id$;:[152]15,"u2:3"dv",18,0
  24. 60 dn$="the tiger-crew !"
  25. 61 print#15,"b-p:3,144":print#1,dn$;:print#15,"u2:3"dv",18,0"
  26. 62 run
  27.