home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / comdore / 64games / typer (.txt) < prev    next >
Commodore BASIC  |  1989-02-15  |  8KB  |  295 lines
  1. 100 REM ELECTRONIC TYPEWRITER
  2. 110 REM (null)(null) (null)ATNCHR$RIGHT$(null)ATN(null) 2/15/89
  3. 120 REM
  4. 130 REM
  5. 140 REM
  6. 150 REM
  7. 160 REM
  8. 170 REM
  9. 180 REM
  10. 190 REM
  11. 200 REM
  12. 210 POKE53281,0:POKE53280,0:POKE53272,23:POKE657,128:POKE650,128
  13. 220 POKE646,15:FORI=54272TO54296:READ S:POKEI,S:NEXT
  14. 230 T$="[197]LECTRONIC [212]YPEWRITER":PRINT"[147]"TAB(9);
  15. 240 FORT=1TO LEN(T$):PRINT MID$(T$,T,1);:GOSUB900:FOR J=1 TO RND(1)*200+35
  16. 250 NEXT:NEXT:GOSUB880:X=7:Y=24:GOSUB1320:PRINT"[208]RESS [210][197][212][213][210][206][146] TO CONTINUE.";
  17. 260 POKE198,0
  18. 270 GET K$:IF K$<>CHR$(13)THEN270
  19. 280 REM
  20. 290 PRINT"[147][201]NITIALIZING..."
  21. 300 FORI=1TO80:BL$=BL$+" ":NEXT
  22. 310 RM=5
  23. 320 LM=5
  24. 330 SP=2
  25. 340 PR=0
  26. 350 MX=54:DIM TX$(MX),TP$(MX):LN=1:M=3
  27. 360 GOSUB1510:GOSUB2490:GOSUB790
  28. 370 REM
  29. 380 ON M GOSUB390,450,570,740,1340:GOTO380
  30. 390 REM
  31. 400 S$=F1$:T$="  [197]NTER A 1-"+MID$(STR$(MX),2)+" "
  32. 410 X=13:Y=2:L=2:B=48:T=57:GOSUB940:IFS$=""THENGOSUB860:GOTO410
  33. 420 F1$=S$:IF VAL(F1$)<1 OR VAL(F1$)>MX THEN GOSUB1280:M=1:GOTO410
  34. 430 IF VAL(F1$)<>LN THENLN=VAL(F1$):GOSUB790
  35. 440 RETURN
  36. 450 REM
  37. 460 S$=LEFT$(TP$(LN),1)
  38. 470 X=34:Y=2:L=1:B=66:T=69:GOSUB940:TP$(LN)=S$+MID$(TP$(LN),2):C$=LEFT$(S$,1)
  39. 480 IF C$<>"[196]"AND C$<>"D"THENTP$(LN)=C$:X=35:Y=2:GOSUB1320:PRINT"   ";:RETURN
  40. 490 IF LEN(S$)>1AND K<>13 THEN RETURN
  41. 500 S$="":IF LEN(TP$(LN))>1THEN S$=MID$(TP$(LN),3)
  42. 510 M=2:X=36:Y=2:L=2:B=48:T=57:GOSUB940:IF S$=""THEN S$="0"
  43. 520 T=80-LM-RM-LEN(TX$(LN))-VAL(S$):IF T+1>0THEN550
  44. 530 T=T+VAL(S$):T$=MID$(STR$(T),2)
  45. 540 T$="  [197]NTER A 0-"+T$+LEFT$(BL$,3-LEN(T$)):GOSUB1280:GOTO510
  46. 550 TP$(LN)=C$+" "+S$
  47. 560 RETURN
  48. 570 REM
  49. 580 S$=TX$(LN)
  50. 590 L=80-LM-RM:C$=LEFT$(TP$(LN),1):IF C$="D" THEN L=L-VAL(MID$(TP$(LN),3))
  51. 600 POKE646,7:X=0:Y=8:B=32:T=95:GOSUB940:POKE646,15:TX$(LN)=S$
  52. 610 IF M<>3 THEN RETURN
  53. 620 ON PR+1 GOTO630,640
  54. 630 LN=LN-(LN<MX):GOSUB790:GOTO580
  55. 640 IF C$=""THENC$="A"
  56. 650 ON ASC(C$)-64+128*(ASC(C$)>70) GOSUB670,680,710,720,730,670
  57. 660 GOSUB790:GOTO580
  58. 670 PRINT#4,LEFT$(BL$,LM)TX$(LN);
  59. 680 FORI=1TOSP:PRINT#4:NEXT
  60. 690 LN=LN-(LN<MX)
  61. 700 RETURN
  62. 710 PRINT#4,LEFT$(BL$,INT((80-LEN(TX$(LN)))/2))TX$(LN);:GOTO680
  63. 720 PRINT#4,LEFT$(BL$,LM+VAL(MID$(TP$(LN),3)))TX$(LN);:GOTO680
  64. 730 PRINT#4,LEFT$(BL$,80-RM-LEN(TX$(LN)))TX$(LN);:GOTO680
  65. 740 REM
  66. 750 S$=F7$:POKE232,PEEK(232)OR128
  67. 760 X=6:Y=15:L=1:B=49:T=54:GOSUB940:F7$=S$:IF M<>4THEN RETURN
  68. 770 IF F7$=""THEN T$="  [211]ELECT A 1-6 ":GOSUB1280:GOTO760
  69. 780 ON VAL(F7$)GOSUB2310,1670,1830,2010,2120,1390:GOTO740
  70. 790 REM
  71. 800 F1$=MID$(STR$(LN),2):POKE212,0
  72. 810 X=13:Y=2:GOSUB1320:PRINT"  [157][157]"F1$:X=34:GOSUB1320:PRINT"    [157][157][157][157]"TP$(LN)
  73. 820 POKE781,8:SYS59903:POKE781,9:SYS 59903:X=0:Y=8:GOSUB1320
  74. 830 POKE212,0:POKE646,7:PRINTTX$(LN);:POKE212,0:POKE646,15
  75. 840 POKE212,0:POKE225,PEEK(225)OR128:POKE226,PEEK(226)AND127
  76. 850 RETURN
  77. 860 REM BEEP
  78. 870 FORI=1TO2:POKE54283,33:FOR J=1TO75:NEXT:POKE54283,32:NEXT:RETURN
  79. 880 REM DING
  80. 890 POKE54276,17:POKE54276,16:RETURN
  81. 900 REMTHWACK
  82. 910 POKE54290,129:FORI=1TO5:POKE54290,128:RETURN
  83. 920 REM
  84. 930 S$=""
  85. 940 GOSUB1320:S=1024+X+Y*40:POKE213,L+X:X=0:POKE198,0
  86. 950 GOSUB1170:IFK=13THEN1150
  87. 960 IF IOTHEN990
  88. 970 IF K<138 AND K>132 AND K-132<>M THEN M=K-132:GOTO1150
  89. 980 IF K=16THENGOSUB1210:GOTO950
  90. 990 GOSUB1000:GOTO950
  91. 1000 IFX=0THEN1030
  92. 1010 IFK=20THENK$="":I=-1:GOTO1110
  93. 1020 IF K=157THENI=-1:GOTO1140
  94. 1030 IFX=LTHEN1160
  95. 1040 IFX=LEN(S$)THEN1070
  96. 1050 IFK=29THENI=1:GOTO1140
  97. 1060 IFK=148ANDLEN(S$)<LTHEN K$=" "+MID$(S$,X+1,1):GOTO1100
  98. 1070 IF K<B OR K>TTHEN1160
  99. 1080 IFIOAND(K=34 OR K=36 OR K=42 OR K=44 OR K=58 OR K=63 OR K=64)THEN1160
  100. 1090 I=0
  101. 1100 X=X+1:IF X=L-5ANDIO=0 THEN GOSUB880
  102. 1110 S$=LEFT$(S$,X-1)+K$+MID$(S$,X+1)
  103. 1120 IF K$=""THEN K$=CHR$(20)
  104. 1130 IF LEN(K$)=2THENK$=CHR$(148):I=-1
  105. 1140 PRINT K$;:POKE216,0
  106. 1150 POKE204,1:POKES+X,PEEK(S+X)AND 127:X=X+I
  107. 1160 RETURN
  108. 1170 REM
  109. 1180 POKE204,0:POKE207,0:GET K$:IF K$=""THEN1180
  110. 1190 K=ASC(K$):IF K>192AND K<258 THEN K=K-128
  111. 1200 POKE212,0:RETURN
  112. 1210 REM
  113. 1220 PR=ABS(PR-1):ON PR+1 GOTO1230,1240
  114. 1230 CLOSE4:POKE1737,6:POKE1738,6:RETURN
  115. 1240 CLOSE4:OPEN4,4,7:POKE1737,14:POKE1738,32:RETURN
  116. 1250 REM
  117. 1260 OPEN15,8,15:INPUT#15,E,E$:IF E THEN T$=E$:GOSUB1300
  118. 1270 RETURN
  119. 1280 REM
  120. 1290 X=24:Y=22:GOSUB1320
  121. 1300 PRINT""T$"[146][155]";:GOSUB860:FORI=1TO2000:NEXT
  122. 1310 GOSUB1320:PRINT"               ";:RETURN
  123. 1320 REM
  124. 1330 POKE781,Y:POKE782,X:POKE783,0:SYS65520:RETURN
  125. 1340 REM
  126. 1350 M=3:T$="[197]RASE ALL DATA?":GOSUB1280:GOSUB1450
  127. 1360 IF S$="[206]" OR S$="N" THEN X=24:Y=22:GOSUB1310:RETURN
  128. 1370 X=24:Y=22:GOSUB1320:PRINT" [160][197]RASING DATA ";:CLOSE4
  129. 1380 FORI=1TOMX:TX$(I)="":TP$(I)="":NEXT:GOSUB1510:GOSUB2490:LN=1:GOTO790
  130. 1390 REM
  131. 1400 T$=" [197]XIT PROGRAM? ":GOSUB1280:GOSUB1450
  132. 1410 IF S$="[206]"OR S$="N"THEN X=24:Y=22:GOSUB1310:RETURN
  133. 1420 PRINT"[147]":T$="BYE...":FORT=1TO LEN(T$):PRINTMID$(T$,T,1);:GOSUB900
  134. 1430 FORJ=1TO RND(1)*200+50:NEXT:NEXT:GOSUB880:POKE657,0:POKE650,0
  135. 1440 END
  136. 1450 REM
  137. 1460 IO=1:T$=" [193]RE YOU SURE? ":GOSUB1280
  138. 1470 X=24:Y=22:GOSUB1320:PRINT"[197]NTER A Y/N: N ";
  139. 1480 X=37:Y=22:S$="N":L=1:B=78:T=89:GOSUB940
  140. 1490 IF S$<>"[217]"AND S$<>"Y" AND S$<>"[206]"AND S$<>"N" THEN GOSUB860:GOTO1470
  141. 1500 IO=0:RETURN
  142. 1510 REM
  143. 1520 IO=1:PRINT"[147]      [211]ET MARGINS AND LINE SPACING"
  144. 1530 X=0:Y=7:GOSUB1320:PRINT"[204]EFT MARGIN :   [157][157][157]"LM:X=14:L=2:B=48:T=57
  145. 1540 S$=MID$(STR$(LM),2):GOSUB940:IF S$=""THEN GOSUB860:GOTO1530
  146. 1550 LM=VAL(S$):IF LM>39THENGOSUB860:GOTO1530
  147. 1560 X=0:Y=10:GOSUB1320:PRINT"[210]IGHT MARGIN :   [157][157][157]"RM:X=15:L=2:B=48:T=57
  148. 1570 S$=MID$(STR$(RM),2):GOSUB940:IF S$=""THENGOSUB860:GOTO1560
  149. 1580 RM=VAL(S$):IF RM>39THENGOSUB 860:GOTO1560
  150. 1590 X=0:Y=13:GOSUB1320:PRINT"[204]INE SPACING :   [157][157][157]"SP:X=15:L=1:B=49:T=50
  151. 1600 S$=MID$(STR$(SP),2):GOSUB940:IF S$=""THENGOSUB860:GOTO1590
  152. 1610 SP=VAL(S$)
  153. 1620 X=0:Y=16:GOSUB1320:PRINT"[201]S THIS CORRECT (Y/N)? : Y":X=25:L=1:B=78:T=89
  154. 1630 S$="Y":GOSUB940
  155. 1640 IFS$<>"[217]"AND S$<>"Y"AND S$<>"[206]"AND S$<>"N"THENGOSUB860:GOTO1620
  156. 1650 IF S$="[206]"OR S$="N"THEN1530
  157. 1660 IO=0:RETURN
  158. 1670 REM
  159. 1680 PRINT"[147]          [204]OAD TEXT TO FILE":GOSUB2230:PRINT
  160. 1690 IF S$=""THEN1820
  161. 1700 IF K$="D"THEN1720
  162. 1710 OPEN1,1,0,S$+".X":GOTO1730
  163. 1720 OPEN1,8,8,"0:"+S$+".X"+",S,R":GOSUB1250:IF E THEN1820
  164. 1730 INPUT#1,J
  165. 1740 INPUT#1,LM
  166. 1750 INPUT#1,RM
  167. 1760 FORI=1TOMX:TX$(I)=""
  168. 1770 GET#1,S$:IF S$="[144]"THENS$=""
  169. 1780 IFS$=CHR$(13)THEN1800
  170. 1790 TX$(I)=TX$(I)+S$:GOTO1770
  171. 1800 NEXT
  172. 1810 IF J THEN GOSUB2070
  173. 1820 CLOSE1:CLOSE15:GOSUB2490:GOSUB790:RETURN
  174. 1830 REM
  175. 1840 PRINT"[147]            [211]AVE TEXT FILE"
  176. 1850 X=0:Y=6:GOSUB1320:PRINT"[211]AVE TEXT WITH TEMPLATE (Y/N)? : N";:X=33
  177. 1860 L=1:B=78:T=89:S$="N":GOSUB940
  178. 1870 IF S$<>"[217]"AND S$<>"Y"AND S$<>"[206]" AND S$<>"N"THENGOSUB860:GOTO1850
  179. 1880 J=0:IF S$="[217]" OR S$="Y" THEN J=1
  180. 1890 GOSUB2230:PRINT:IF S$=""THEN2000
  181. 1900 IF K$="D"THEN1920
  182. 1910 OPEN1,1,1,S$+".X":GOTO1930
  183. 1920 OPEN1,8,8,"@0:"+S$+".X"+",S,W":GOSUB1250:IF E THEN2000
  184. 1930 PRINT#1,J
  185. 1940 PRINT#1,LM
  186. 1950 PRINT#1,RM
  187. 1960 FORI=1TOMX:S$=TX$(I):IF S$=""THEN S$="[144]"
  188. 1970 PRINT#1,S$
  189. 1980 NEXT
  190. 1990 IF J THEN GOSUB 2180
  191. 2000 CLOSE1:CLOSE15:GOSUB2490:GOSUB790:RETURN
  192. 2010 REM
  193. 2020 PRINT"[147]             [204]OAD TEMPLATE":GOSUB2230:PRINT
  194. 2030 IF S$=""THEN2110
  195. 2040 IF K$="D"THEN2060
  196. 2050 OPEN1,1,0,S$+".P":GOTO2070
  197. 2060 OPEN1,8,8,"0:"+S$+".P"+",P,R":GOSUB1250:IFE THEN 2110
  198. 2070 INPUT#1,SP
  199. 2080 FORI=1TO MX
  200. 2090 INPUT#1,TP$(I):IF TP$(I)="[144]" THEN TP$(I)=""
  201. 2100 NEXT
  202. 2110 CLOSE1:CLOSE15:GOSUB2490:GOSUB790:RETURN
  203. 2120 REM
  204. 2130 PRINT"[147]             [211]AVE TEMPLATE":GOSUB2230:PRINT
  205. 2140 IF S$=""THEN2220
  206. 2150 IF K$="D"THEN2170
  207. 2160 OPEN1,1,1,S$+".P":GOTO2180
  208. 2170 OPEN1,8,8,"@0:"+S$+".P"+",P,W":GOSUB1250:IF E THEN2220
  209. 2180 PRINT#1,SP
  210. 2190 FORI=1TOMX:S$=TP$(I):IF S$="" THENS$="[144]"
  211. 2200 PRINT#1,S$
  212. 2210 NEXT
  213. 2220 CLOSE1:CLOSE15:GOSUB2490:GOSUB790:RETURN
  214. 2230 REM
  215. 2240 F7$=""
  216. 2250 X=0:Y=8:GOSUB1320:PRINT"[197]NTER FILE NAME:";:IO=1:B=32:T=90:L=14:X=17
  217. 2260 GOSUB920:IO=0:IF S$=""THEN RETURN
  218. 2270 X=0:Y=10:GOSUB1320:PRINT"TAPE OR DISK (T/D)[157][157][157][157]";
  219. 2280 GETK$:IF K$<>"T" AND K$<>"[212]" AND K$<>"D" AND K$<>"[196]"THEN2280
  220. 2290 IF K$="D" OR K$="[196]"THEN PRINT"D":K$="D":RETURN
  221. 2300 PRINT"T":RETURN
  222. 2310 REM
  223. 2320 CLOSE4:OPEN4,4,7:T$="[160][208]RINT DOCUMENT":GOSUB1280
  224. 2330 S$=MID$(STR$(SP),2):X=24:Y=22:GOSUB1320:PRINT"[204]INE SPACING:  [157][157]"S$
  225. 2340 X=37:L=1:B=49:T=50:GOSUB940:Y=22:X=24:GOSUB1310:IF S$=""THEN RETURN
  226. 2350 SP=VAL(S$)
  227. 2360 X=24:Y=22:GOSUB1320:PRINT"[198]IRST LINE:    ":X=36:L=2:B=48:T=57:GOSUB920
  228. 2370 X=24:Y=22:GOSUB1310:IF S$="" THEN RETURN
  229. 2380 E=VAL(S$):IF E<1 OR E>MX THEN GOSUB860:GOTO2360
  230. 2390 X=24:Y=22:GOSUB1320:PRINT"[204]AST LINE:     ":X=35:L=2:B=48=T=57:GOSUB920
  231. 2400 X=24:Y=22:GOSUB1310:IF S$="" THEN RETURN
  232. 2410 IF VAL(S$)<1 OR VAL(S$)>MX THEN GOSUB860:GOTO2390
  233. 2420 T$="[160][208]OSITION PAPER":GOSUB1280:X=24:Y=22:GOSUB1320
  234. 2430 PRINT"  [208]RESS [210][197][212][213][210][206] ":POKE198,0
  235. 2440 GET K$:IF K$<>CHR$(13)THEN2440
  236. 2450 X=24:Y=22:GOSUB1310:S=LN:LN=E
  237. 2460 FOR J=LN TO VAL(S$):GOSUB790:C$=MID$(TP$(LN),1,1):IF C$="" THEN C$="A"
  238. 2470 ON ASC(C$)-64+128*(ASC(C$)>70) GOSUB670,680,710,720,730
  239. 2480 NEXT:LN=S:GOSUB790:RETURN
  240. 2490 REM
  241. 2500 PRINT"[147][155][198]1                  ";
  242. 2510 PRINT"    [198]3              ";
  243. 2520 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][154][178][192][192][192][174][155]   ";
  244. 2530 PRINT"   [176][192][192][192][192][192][192][192][192][192][154][178][192][192][192][192][192][174][155]";
  245. 2540 PRINT"[221][204]INE NUMBER[154][221]   [221][155]   ";
  246. 2550 PRINT"   [221][204]INE CODE[154][221]     [221][155]";
  247. 2560 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][154][177][192][192][192][189][155]   ";
  248. 2570 PRINT"   [173][192][192][192][192][192][192][192][192][192][154][177][192][192][192][192][192][189][155]";
  249. 2580 PRINT"                    ";
  250. 2590 PRINT"                    ";
  251. 2600 PRINT"                    ";
  252. 2610 PRINT"                    ";
  253. 2620 PRINT" [198]5                 ";
  254. 2630 PRINT"                    ";
  255. 2640 PRINT"[158]12345678901234567890";
  256. 2650 PRINT"12345678901234567890";
  257. 2660 PRINT"                    ";
  258. 2670 PRINT"                    ";
  259. 2680 PRINT"                    ";
  260. 2690 PRINT"                    ";
  261. 2700 PRINT"                    ";
  262. 2710 PRINT"                    ";
  263. 2720 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
  264. 2730 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][155]";
  265. 2740 PRINT"                    ";
  266. 2750 PRINT"                        ";
  267. 2760 PRINT" [198]7                 ";
  268. 2770 PRINT"                    ";
  269. 2780 PRINT"[176][192][192][192][192][154][178][192][192][174][155]           ";
  270. 2790 PRINT"                    ";
  271. 2800 PRINT"[221]     [165]         ";
  272. 2810 PRINT"    [[195][212][210][204]]-[208]        ";
  273. 2820 PRINT"[171][192][192][192][192][154][177][192][192][177][155][192][192][192][192][192][192][192][192][192][192][192]";
  274. 2830 PRINT"[192][174] [176][192][192][192][192][192][192][192][178][192][192][192][174]    ";
  275. 2840 PRINT"[221] 1 - [208]RINT DOCUMENT";
  276. 2850 PRINT" [221] [221][208]RINTER[221]O  [221]    ";
  277. 2860 PRINT"[221] 2 - [204]OAD TEXT FILE";
  278. 2870 PRINT" [155][221] [173][192][192][192][192][192][192][192][177][192][192][192][189]    ";
  279. 2880 PRINT"[221] 3 - [211]AVE TEXT FILE";
  280. 2890 PRINT" [221]                  ";
  281. 2900 PRINT"[221] [149]4 - [204]OAD TEMPLATE ";
  282. 2910 PRINT" [155][221]                  ";
  283. 2920 PRINT"[221] 5 - [211]AVE TEMPLATE ";
  284. 2930 PRINT" [221] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  285. 2940 PRINT"[221] 6 - [197]XIT PROGRAM  ";
  286. 2950 PRINT" [155][221] [221]               [221]";
  287. 2960 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
  288. 2970 PRINT"[192][189] [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";
  289. 2980 ONPR+1 GOTO1230,1240
  290. 2990 REMSOUND DATA
  291. 3000 DATA000,110,000,000,016,009,009
  292. 3010 DATA000,064,000,000,032,000,240
  293. 3020 DATA000,128,000,000,128,000,240
  294. 3030 DATA000,016,132,079
  295.