home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / MSD-DU21.ARC / TEL.MESSAGE (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  855 b   |  31 lines
  1. 1 PRINT"[147]":PRINT CHR$(5)
  2. 2 REM *********************************
  3. 3 REM * THIS PROGRAM WILL PRINT OUT   *
  4. 4 REM * SHEETS OF FORMS FOR TELEPHONE *
  5. 5 REM * MESSAGES, 8 FORMS PER PAGE    *
  6. 6 REM *********************************
  7. 10 INPUT"NUMBER PAGES DESIRED";X:PRINT
  8. 20 PRINT"PRESS F1 TO START PRINTER"
  9. 30 GETA$:IFA$=""THEN30
  10. 40 IFA$="[133]"THEN60
  11. 50 GOTO10
  12. 60 FORI=1TOX
  13. 61 PRINT"[147]":PRINT"THIS IS COPY ";I
  14. 64 OPEN4,4:CMD4:PRINT CHR$(14)
  15. 65 FORV=1TO4
  16. 70 PRINT"WHILE YOU WERE OUT";
  17. 71 PRINT CHR$(16)"40WHILE YOU WERE OUT":PRINT
  18. 80 PRINT"[210][210][210][210][210][210][210][210][210][210][210][210]CALLED";
  19. 81 PRINT CHR$(16)"40[210][210][210][210][210][210][210][210][210][210][210][210]CALLED":PRINT
  20. 82 PRINT"FOR[210][210][210][210][210][210][210][210][210][210][210][210][210][210][210]";
  21. 83 PRINT CHR$(16)"40FOR[210][210][210][210][210][210][210][210][210][210][210][210][210][210][210]":PRINT
  22. 90 PRINT"THE SUBJECT MATTER";
  23. 91 PRINT CHR$(16)"40THE SUBJECT MATTER":PRINT
  24. 100 PRINT"WAS[210][210][210][210][210][210][210][210][210][210][210][210][210][210][210]";
  25. 101 PRINT CHR$(16)"40WAS[210][210][210][210][210][210][210][210][210][210][210][210][210][210][210]":PRINT
  26. 110 PRINT"TELEPHONE #";
  27. 111 PRINT CHR$(16)"40TELEPHONE #":PRINT
  28. 120 PRINT"[210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210]";
  29. 121 PRINT CHR$(16)"40[210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210]":PRINT:PRINT
  30. 130 NEXTV:FORS=1TO3:PRINT:NEXTS:PRINT#4:CLOSE4:NEXTI:END
  31.