home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_##_(07-1985).d64 / jackets (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  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.