home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C128Toolkit / KEYBD.OVLY.128 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.5 KB  |  150 lines
  1. 100 REM      BLANK KEYBOARD OVERLAYS
  2. 110 REM
  3. 120 REM        FOR COMMODORE-128
  4. 130 REM
  5. 140 REM       -------------------
  6. 150 REM
  7. 160 REM      MARSHALL F. SCHULTZ CDP
  8. 170 REM
  9. 180 REM   COMMODORE HOUSTON USER GROUP
  10. 190 REM
  11. 200 REM       -------------------
  12. 210 REM
  13. 220 REM    REQUIRES A 1525 OR MPS-801
  14. 230 REM
  15. 240 REM            PRINTER
  16. 250 REM
  17. 260 REM "[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  18. 270 REM "[221]  WRITTEN   MAY 4, 1986   [221]"
  19. 280 REM "[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  20. 290 REM
  21. 300 REM "[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  22. 310 REM "[221] LAST UPDATE MAY 11, 1986 [221]"
  23. 320 REM "[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  24. 330 REM ===============================
  25. 340 REM =THIS PROGRAM IS PUBLIC DOMAIN=
  26. 350 REM ===============================
  27. 360 REM
  28. 370 G1$="[176]":G2$="[174]":G3$="[192]":G4$="[173]":G5$="[189]":G6$="[221]"
  29. 380 G7$="    [176][174] ":G8$="    [173][189] ":G9$="    [221][221] "
  30. 390 S1$="                                     "
  31. 400 S2$=LEFT$(S1$,3)
  32. 410 S3$=LEFT$(S1$,6)
  33. 420 S4$=LEFT$(S1$,15)
  34. 430 S5$=LEFT$(S1$,17)
  35. 440 S6$=LEFT$(S1$,29)
  36. 450 S7$=LEFT$(S1$,7)
  37. 460 S8$="          "
  38. 470 D1$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  39. 480 D2$=LEFT$(D1$,7)
  40. 490 L1$=S2$+G6$+S1$+S1$+" "+G6$
  41. 500 L2$=S2$+G6$+S4$+G6$+S6$+G6$+S2$+G6$+S7$+G6$+S5$+G6$
  42. 510 L3$=S2$+G6$+S7$+G6$+S1$+G6$+S2$+G6$+S7$+G6$+S5$+G6$
  43. 520 L4$=S2$+G6$+S7$+G6$+S1$+G6$+S6$+G6$
  44. 530 LA$=S2$+G6$+S7$+G6$
  45. 540 LB$=G6$+S6$+G6$
  46. 550 L6$=S2$+G6$+S7$+G6$+S1$+G6$+S2$+G4$+D2$+G5$+S5$+G6$
  47. 560 L7$=S2$+G6$+S7$+G6$+S1$+G6$+S2$+G1$+D2$+G2$+S5$+G6$
  48. 570 TX$(1)="  CEMENT THIS PRINTED FORM TO POSTER "
  49. 580 TX$(2)="  BOARD STOCK USING RUBBER CEMENT OR "
  50. 590 TX$(3)="  WHITE GLUE. THEN CUT OUT THE FORM  "
  51. 600 TX$(4)="  USING AN EXACTO KNIFE.             "
  52. 610 TX$(5)="                                     "
  53. 620 TX$(6)="  USE YOUR WORD PROCESSOR TO PRINT   "
  54. 630 TX$(7)="  LISTS OF COMMANDS, REMINDER NOTES, "
  55. 640 TX$(8)="  OR WHATEVER YOU WISH TO CEMENT TO  "
  56. 650 TX$(9)="  THE FACE OF THE FORM.              "
  57. 660 POKE 53280,6:POKE53281,6
  58. 670 PRINT"[147][158][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201][146]";
  59. 680 PRINT"[221]                                      [221][146]";
  60. 690 PRINT"[221]       BLANK KEYBOARD OVERLAYS        [221][146]";
  61. 700 PRINT"[221]                                      [221][146]";
  62. 710 PRINT"[221]          FOR COMMODORE-128           [221][146]";
  63. 720 PRINT"[221]                                      [221][146]";
  64. 730 PRINT"[221]    USING 1525 OR MPS-801 PRINTER     [221][146]";
  65. 740 PRINT"[221]                                      [221][146]";
  66. 750 PRINT"[221]                                      [221][146]";
  67. 760 PRINT"[221]        MARSHALL F. SCHULTZ CDP       [221][146]";
  68. 770 PRINT"[221]                                      [221][146]";
  69. 780 PRINT"[221]      COMMODORE HOUSTON USER GROUP    [221][146]";
  70. 790 PRINT"[221]                                      [221][146]";
  71. 800 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203][146]";:PRINT
  72. 810 PRINT"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201][146]";
  73. 820 PRINT"[221] THIS PROGRAM IS IN THE PUBLIC DOMAIN [221][146]";
  74. 830 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203][146]";
  75. 840 PRINT"        PRESS ANY KEY TO PRINT"
  76. 850 GET Z$:IF Z$="" THEN850
  77. 860 PRINT"WORKING. . ."
  78. 870 OPEN 4,4
  79. 880 PRINT#4,CHR$(27);CHR$(69)
  80. 890 PRINT#4,CHR$(14);"    BLANK KEYBOARD OVERLAY FOR C-128";CHR$(15);CHR$(10)
  81. 900 PRINT#4,"                      MARSHALL F. SCHULTZ"
  82. 910 PRINT#4,"                  COMMODORE HOUSTON USER GROUP"
  83. 920 PRINT#4,"                         HOUSTON, TEXAS";CHR$(10)
  84. 930 PRINT#4,CHR$(10)
  85. 940 PRINT#4,S2$+G1$;
  86. 950 FOR X=1 TO 75:PRINT#4,G3$;:NEXT:PRINT#4,G2$
  87. 960 FOR X=1 TO 4
  88. 970 PRINT#4,L1$
  89. 980 NEXT
  90. 990 PRINT#4,S2$;G6$;S4$;G1$;D1$;G2$;S2$;G1$;D2$;G2$;G7$;S8$;G6$
  91. 1000 PRINT#4,S2$;G6$;S4$;G6$;S6$;G6$;S2$;G6$;S7$;G6$;G9$;S8$;G6$
  92. 1010 PRINT#4,S2$;G6$;S4$;G6$;S6$;G6$;S2$;G6$;S7$;G6$;G9$;S8$;G6$
  93. 1020 PRINT#4,S2$;G6$;S4$;G6$;S6$;G6$;S2$;G6$;S7$;G6$;G8$;S8$;G6$
  94. 1030 FOR X=1 TO 12
  95. 1040 PRINT#4,L2$
  96. 1050 NEXT
  97. 1060 PRINT#4,S2$;G6$;S7$;G1$;D2$;G5$;S6$;G6$;S2$;G6$;S7$;G6$;S5$;G6$
  98. 1070 PRINT#4,L3$
  99. 1080 PRINT#4,L6$
  100. 1090 FOR X=1 TO 8
  101. 1100 PRINT#4,LA$;TX$(X);LB$
  102. 1110 NEXT
  103. 1120 PRINT#4,S2$;G6$;S7$;G6$;TX$(9);G6$;S2$;G1$;D2$;G2$;S5$;G6$
  104. 1130 FOR X=1 TO 17
  105. 1140 PRINT#4,L3$
  106. 1150 NEXT
  107. 1160 PRINT#4,L6$
  108. 1170 FOR X=1 TO 8
  109. 1180 PRINT#4,L4$
  110. 1190 NEXT
  111. 1200 PRINT#4,L7$
  112. 1210 PRINT#4,L3$
  113. 1220 PRINT#4,S2$;G6$;S7$;G4$;D2$;G2$;S6$;G6$;S2$;G6$;S7$;G6$;S5$;G6$
  114. 1230 FOR X=1 TO 15
  115. 1240 PRINT#4,L2$
  116. 1250 NEXT
  117. 1260 PRINT#4,S2$;G6$;S4$;G4$;D1$;G5$;S2$;G4$;D2$;G5$;S5$;G6$
  118. 1270 FOR X=1 TO 2
  119. 1280 PRINT#4,L1$
  120. 1290 NEXT
  121. 1300 PRINT#4,S2$;G6$;S4$;G1$;D1$;G2$;S2$;G1$;D2$;G2$;S5$;G6$
  122. 1310 FOR X=1 TO 17
  123. 1320 PRINT#4,L2$
  124. 1330 NEXT
  125. 1340 PRINT#4,S2$;G6$;S4$;G4$;D1$;G5$;S2$;G4$;D2$;G4$;S5$;G6$
  126. 1350 FOR X=1 TO 4
  127. 1360 PRINT#4,L1$
  128. 1370 NEXT
  129. 1380 PRINT#4,S2$;G4$;
  130. 1390 FOR X=1 TO 75
  131. 1400 PRINT#4,G3$;:NEXT
  132. 1410 PRINT#4,G2$;CHR$(10)
  133. 1420 PRINT#4,CHR$(12)
  134. 1430 CLOSE4
  135. 1440 PRINT"                                      "
  136. 1450 PRINT"ANOTHER COPY (Y/N)  N"
  137. 1460 PRINT"                                      "
  138. 1470 INPUT"                  [145][145]";R$
  139. 1480 IF R$="Y"THEN670
  140. 1490 END
  141. 2980 REM *****************************
  142. 2990 REM   RESAVE AFTER PGM CHANGE
  143. 3000 CLOSE15
  144. 3010 OPEN15,8,15,"S0:KEYBD.OVLY.C-128"
  145. 3020 PRINT#15,"V0":CLOSE15
  146. 3030 SAVE"0:KEYBD.OVLY.C-128",8
  147. 3040 VERIFY"0:KEYBD.OVLY.C-128",8
  148. 3050 LIST-2900
  149. 3060 END
  150.