home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1985 Spring / rerun-1985-spring.d64 / jackets (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  38 lines
  1. 0 rem****"jacket"*****
  2. 10 poke53280,5:poke53281,5:print"[147][144]disk jacket printer
  3. 20 [129] t[178]1[164]2000:[130]
  4. 30 s$[178]"!---------------------------------------------------------------------!"
  5. 40 f$[178]"!     !                                                         !     !"
  6. 50 b$[178]"      !                                                         !"
  7. 60 e$[178]"      !---------------------------------------------------------!"
  8. 70 [159]4,4
  9. 80 [151]53280,1:[151]53281,1:[153]"load
  10. 90 print"type in title for disk jacket"
  11. 100 input t$
  12. 110 poke53280,7:poke53281,7:print"
  13. 120 [153]"printer ready? - paper positioned? (y/n)
  14. 130 get a$:if a$=""then 130
  15. 140 if a$="y" then 160
  16. 150 if a$="n" then 130
  17. 160 print#4,s$
  18. 170 for tl=1to5:print#4,f$:next tl
  19. 180 print#4,chr$(13)
  20. 190 lt=len(t$):tt=lt+4
  21. 200 for l=1 to tt:as$=as$+"*
  22. 210 [130] l
  23. 220 x[178](72[171]tt)[173]2
  24. 230 [152]4,[163]x)as$
  25. 240 [152]4,[163]x)"* ";t$;" *
  26. 250 print#4,tab(x)as$
  27. 260 for l=1to14:print#4,f$
  28. 270 next l
  29. 280 print#4,s$
  30. 290 for l=1to28:print#4,b$
  31. 300 next l
  32. 310 print#4,e$:print#4,chr$(13)
  33. 320 poke53280,3:poke53281,3:print"[147]
  34. 330 [153]"print another jacket? (y/n)
  35. 340 get a$:if a$="" then 340
  36. 350 if a$="y" then clr:goto 30
  37. 360 close 4
  38.