home *** CD-ROM | disk | FTP | other *** search
/ The Commodore Format PowerPacks 23 / Commodore_Format_PowerPacks_The_23_1992_Future_GB.d64 / header (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  778b  |  24 lines
  1. 10 print"[147]":poke 53280,0:poke53281,0
  2. 20 ad=828
  3. 30 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
  4. 40 print" make sure the tape is rewound to start"
  5. 50 print"       position then press any key"
  6. 60 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  7. 70 getx$:ifx$=""then70
  8. 80 print"[147]":open1,1:print"[147]"
  9. 90 t$(0)="relative":t$(2)="absolute":t$(3)="file":c=2:print"program - 1":goto110
  10. 100 n$="":open1,1
  11. 110 tv=peek(ad):ft$=t$(tv-1)
  12. 120 s$=right$("   "+str$(peek(ad+1)+(256*peek(ad+2))-1),6)
  13. 130 e$=right$("   "+str$(peek(ad+3)+(256*peek(ad+4))-1),6)
  14. 140 fori=5to20:n$=n$+chr$(peek(ad+i)):next
  15. 150 x=val(right$(e$,6))-val(right$(s$,6))
  16. 160 kb$=right$(str$(int(x/1024*100)/100),6)
  17. 170 print"[150]type     size  start end filename
  18. 180 [153]"cont"ft$kb$s$e$" "n$:[153]
  19. 190 [153]"print ready for next program hit any key"
  20. 200 [161] a$:[139] a$[178]""[167] 200
  21. 210 [153]"onprogram -"c"cmd                            "     :c[178]c[170]1
  22. 220 [160]1
  23. 230 [137]100
  24.