home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Toolkit / F-KEYS64-V1.5 (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  9KB  |  340 lines
  1. 10 GOSUB1700
  2. 11 GOSUB2000
  3. 15 POKE53280,0:POKE53281,0
  4. 20 PRINT"[147][158]       ---- [198][213][206][195][212][201][207][206] [203][197][217][211] 64 ----"
  5. 30 PRINT" [198]1=[150][196][201][211][203] [206][193][205][197] [198]2=[154][211][195][210][193][212][195][200] [198]3=[158]$/8 [198]4=[155]$/9[150]"
  6. 40 PRINT"[198]5=[155][210][197][206][193][205][197] [198]6=[153][214][193][204][201][196][193][212][197] [198]7=[159][198][207][210][205][193][212] F8=[197][216][201][212]"
  7. 50 PRINT"'[150]+'=[158]$/8 [208][210][201][206][212] \=[153][198][201][204][197]/[204][207][195][203] '[150]-'=[155]$/9 [208][210][201][206][212]"
  8. 60 PRINT"[155]---------------------------------------"
  9. 230 GETA$:IFA$=""THEN 230
  10. 240 IFA$=CHR$(133)THEN350
  11. 250 IFA$=CHR$(137)THEN850
  12. 260 IFA$=CHR$(134)THEN1400
  13. 270 IFA$=CHR$(135)THEN1000
  14. 280 IFA$=CHR$(138)THEN1500
  15. 290 IFA$=CHR$(139)THEN790
  16. 300 IFA$=CHR$(136)THEN600
  17. 310 IFA$=CHR$(140)THENGOSUB2000:SYS64738
  18. 315 IFA$="+"THENDN=8:GOTO3000
  19. 317 IFA$="-"THENDN=9:GOTO3000
  20. 318 IFA$=CHR$(92)THEN4200
  21. 320 GOTO230
  22. 350 PRINT"[158]            [196][201][211][203] [206][193][205][197] [195][200][193][206][199][197][210]":SP$="                "
  23. 355 PRINT"[155]         -----------------------"
  24. 365 PRINT"[150]           [208][210][197][211][211] '[217]' [150][212][207] [195][207][206][212][201][206][213][197]"
  25. 370 PRINT"[154]         [208][210][197][211][211] '[206]'[154] [212][207] [197][216][201][212] [212][207] [205][197][206][213][155]"
  26. 380 GETN$:IFN$=""THEN380
  27. 390 IFN$="Y"THEN400
  28. 391 IFN$="N"THEN20
  29. 392 GOTO380
  30. 400 OPEN15,8,15,"I0":OPEN2,8,2,"#"
  31. 410 PRINT#15,"U1:2,0,18,0"
  32. 420 PRINT#15,"B-P:2,144"
  33. 430 FORJ=0TO15:GET#2,A$:D$=D$+A$:NEXT
  34. 440 PRINT"[158][195][213][210][210][197][206][212] [206][193][205][197]:[155] ";D$:PRINT
  35. 450 INPUT"[153][206][197][215] [206][193][205][197][155]";DN$:IFDN$=""THEN20
  36. 460 DN$=LEFT$(DN$+SP$,16)
  37. 470 PRINT#15,"B-P:2,144":PRINT#2,DN$;
  38. 480 PRINT#15,"U2:2,0,18,0":CLOSE2
  39. 490 INPUT#15,A,B$:PRINTB$
  40. 500 PRINT#15,"I0":CLOSE15
  41. 510 GOTO20
  42. 600 OPEN15,8,15
  43. 610 PRINT"[154]    -------- [196][201][211][203] [198][207][210][205][193][212][212][197][210] --------"
  44. 615 PRINT"[158]            [201][206][211][197][210][212] [193] [206][197][215] [196][201][211][203]"
  45. 620 PRINT"     [197][206][212][197][210] [206][193][205][197] [213][208] [212][207] 16 [195][200][193][210][193][195][212][197][210][211][155]"
  46. 630 INPUTN$:IFLEN(N$)>16THENPRINT"[150][206][193][205][197] [212][207][207] [204][207][206][199][155]":GOTO620
  47. 640 PRINT"[154]     [197][206][212][197][210] [193] [212][215][207] [195][200][193][210][193][195][212][197][210] [196][201][211][203] [201][196]#[155]"
  48. 650 INPUTID$:IFLEN(ID$)>2THENPRINT"[153][212][207][207] [205][193][206][217] [195][200][193][210][193][195][212][197][210][211][155]":GOTO640
  49. 652 PRINT"[150]           [208][210][197][211][211] '[217]'[150] [212][207] [198][207][210][205][193][212]"
  50. 655 PRINT"           [208][210][197][211][211] '[206]'[150] [212][207] [209][213][201][212][155]"
  51. 656 GETB$:IFB$=""THEN656
  52. 657 IFB$="Y"THEN660
  53. 658 IFB$="N"THENCLOSE15:GOTO20
  54. 659 GOTO656
  55. 660 PRINT"                [215][207][210][203][201][206][199]..."
  56. 670 PRINT#15,"N0:"+N$+","+ID$
  57. 680 INPUT#15,EN,EM$,ET,ES
  58. 690 IFEN=0THEN700
  59. 700 PRINT"[155]            STATUS:";EN;EM$;ET;ES
  60. 720 CLOSE15
  61. 730 PRINT"[158]           [198][207][210][205][193][212] [193][206][207][207][212][200][197][210] [196][201][211][203]?"
  62. 740 PRINT"                '[217]' OR '[206]'[155]"
  63. 750 GETS$:IFS$=""THEN750
  64. 760 IFS$="Y"THEN600
  65. 770 IFS$="N"THEN20
  66. 775 GOTO750
  67. 790 PRINT"[158]          [193][210][197] [217][207][213] [211][213][210][197] [217][207][213] [215][193][206][212]"
  68. 791 PRINT"         [212][207] [214][193][204][201][196][193][212][197] [212][200][201][211] [196][201][211][203] ?"
  69. 792 PRINT"               '[217]' [154]OR '[206]'[155]"
  70. 793 GETT$:IFT$=""THEN793
  71. 794 IFT$="Y"THEN800
  72. 795 IFT$="N"THEN20
  73. 796 GOTO793
  74. 800 PRINT"[154]             [214][193][204][201][196][193][212][201][206][199] [196][201][211][203]"
  75. 805 PRINT"[150]              [208][204][197][193][211][197] [215][193][201][212]..."
  76. 810 OPEN15,8,15,"V0"
  77. 820 CLOSE15
  78. 830 GOTO20
  79. 850 PRINT"[153]           [204][201][211][212] [212][200][197][160][196][201][210][197][195][212][207][210][217] ?"
  80. 860 PRINT"               '[217]' [154]OR '[206]'[155]"
  81. 870 GETF$:IFF$=""THEN870
  82. 880 IFF$="Y"THENGOSUB1600:GOTO900
  83. 890 IFF$="N"THEN900
  84. 895 GOTO870
  85. 900 PRINT"[158]        [197][206][212][197][210] [198][201][204][197][206][193][205][197] [212][207][160][211][195][210][193][212][195][200][155]"
  86. 910 INPUTN$:IFN$=""THEN20
  87. 920 PRINT"[153]           [211][195][210][193][212][195][200] [212][200][201][211][160][198][201][204][197] ?"
  88. 930 PRINT"               '[217]' OR '[206]'[155]"
  89. 940 GETB$:IFB$=""THEN940
  90. 950 IFB$="Y"THEN970
  91. 960 IFB$="N"THEN20
  92. 965 GOTO940
  93. 970 OPEN15,8,15,"S0:"+N$
  94. 980 CLOSE15
  95. 985 PRINT"[158]          [211][195][210][193][212][195][200] [193][206][207][212][200][197][210] [198][201][204][197]"
  96. 986 PRINT"               '[217]' OR '[206]'[155]"
  97. 987 GETA$:IFA$=""THEN987
  98. 988 IFA$="Y"THEN850
  99. 989 IFA$="N"THEN20
  100. 990 GOTO987
  101. 1000 PRINT"[158]            [196][201][211][203] [198][201][204][197] [195][200][193][206][199][197][210]"
  102. 1005 PRINT"[155]          ---------------------"
  103. 1010 PRINT"[153]           [204][201][211][212] [212][200][197] [196][201][210][197][195][212][207][210][217] ?"
  104. 1020 PRINT"               '[217]' [154]OR '[206]'[155]"
  105. 1030 GETN$:IFN$=""THEN1030
  106. 1035 IFN$="Y"THENGOSUB1600:GOTO1050
  107. 1040 IFN$="N"THEN1050
  108. 1045 GOTO1030
  109. 1050 PRINT"[158]   [197][206][212][197][210] [206][193][205][197] [207][198] [198][201][204][197] [212][207][160][194][197][160][195][200][193][206][199][197][196][155]"
  110. 1060 INPUTA$:IFA$=""THEN20
  111. 1070 PRINT"[153]   [197][206][212][197][210] [206][197][215] [206][193][205][197] [198][207][210][160][198][201][204][197][155]"
  112. 1080 INPUTR$:IFR$=""THEN20
  113. 1090 OPEN15,8,15,"R0:"+R$+"="+A$:CLOSE15
  114. 1100 PRINT"[158]    [195][200][193][206][199][197] [193][206][207][212][200][197][210] [198][201][204][197]?[155]"
  115. 1110 PRINT"         '[217]' OR '[206]'[155]"
  116. 1120 GETB$:IFB$=""THEN1120
  117. 1130 IFB$="Y"THEN1010
  118. 1135 IFB$="N"THEN20
  119. 1136 GOTO1120
  120. 1400 PRINT"[158]    [196][201][210][197][195][212][207][210][217] [207][206] [196][210][201][214][197] 8[155]"
  121. 1405 PRINT"[153] [208][210][197][211][211] '[193]'[153][212][207] [193][194][207][210][212] [204][201][211][212][201][206][199]"
  122. 1410 OPEN1,8,0,"$":GET#1,A$,A$
  123. 1420 GET#1,A$,A$:IFA$=""THENCLOSE1:GOTO1460
  124. 1425 GET#1,B$,C$
  125. 1430 BL=ASC(B$+CHR$(0)):BH=ASC(C$+CHR$(0))
  126. 1440 D$=MID$(STR$(BL+256*BH),2)+CHR$(32)
  127. 1450 PRINTD$;:GET#1,D$:IFD$<>""THEN1450
  128. 1455 PRINT:GETH$:IFH$<>"A"THEN1420
  129. 1457 CLOSE1
  130. 1460 PRINT"[158]  [204][201][211][212] [193][206][207][212][200][197][210] [196][201][210][197][195][212][207][210][217] ?"
  131. 1470 PRINT"        '[217]' OR '[206]'[155]"
  132. 1480 GETC$:IFC$=""THEN1480
  133. 1490 IFC$="Y"THEN1400
  134. 1495 IFC$="N"THEN20
  135. 1497 GOTO1480
  136. 1500 PRINT"[154]    [196][201][210][197][195][212][207][210][217] [207][206] [196][210][201][214][197] 9[153]"
  137. 1505 PRINT"[153] [208][210][197][211][211] '[193]'[153][212][207] [193][194][207][210][212] [204][201][211][212][201][206][199]"
  138. 1510 OPEN1,9,0,"$":GET#1,A$,A$
  139. 1520 GET#1,A$,A$:IFA$=""THENCLOSE1:GOTO1460
  140. 1525 GET#1,B$,C$
  141. 1530 BL=ASC(B$+CHR$(0)):BH=ASC(C$+CHR$(0))
  142. 1540 D$=MID$(STR$(BL+256*BH),2)+CHR$(32)
  143. 1550 PRINTD$;:GET#1,D$:IFD$<>""THEN1450
  144. 1555 PRINT:GETH$:IFH$<>"A"THEN1420
  145. 1557 CLOSE1
  146. 1560 PRINT"[158]  [204][201][211][212] [193][206][207][212][200][197][210] [196][201][210][197][195][212][207][210][217] ?"
  147. 1570 PRINT"        '[217]' OR '[206]'[155]"
  148. 1580 GETC$:IFC$=""THEN1580
  149. 1590 IFC$="Y"THEN1500
  150. 1595 IFC$="N"THEN20
  151. 1597 GOTO1580
  152. 1600 PRINT"[158]    [196][201][210][197][195][212][207][210][217] [207][206] [196][210][201][214][197] 8[155]"
  153. 1605 PRINT"[153] [208][210][197][211][211] '[193]'[153][212][207] [193][194][207][210][212] [204][201][211][212][201][206][199]"
  154. 1610 OPEN1,8,0,"$":GET#1,A$,A$
  155. 1620 GET#1,A$,A$:IFA$=""THENCLOSE1:GOTO1660
  156. 1625 GET#1,B$,C$
  157. 1630 BL=ASC(B$+CHR$(0)):BH=ASC(C$+CHR$(0))
  158. 1640 D$=MID$(STR$(BL+256*BH),2)+CHR$(32)
  159. 1650 PRINTD$;:GET#1,D$:IFD$<>""THEN1650
  160. 1655 PRINT:GETH$:IFH$<>"A"THEN1620
  161. 1657 CLOSE1
  162. 1660 RETURN
  163. 1700 POKE53280,11:POKE53281,0
  164. 1705 PRINT"[147][158]          ...[196][210][201][214][197] [211][197][204][197][195][212][201][207][206]..."
  165. 1710 PRINT"[153]           1) [207][206][197] 1541 [196][210][201][214][197]"
  166. 1720 PRINT"[154]           2) [207][206][197] 1571 [196][210][201][214][197]"
  167. 1730 PRINT"[155]           3) [212][215][207] 1541 [196][210][201][214][197][211]"
  168. 1740 PRINT"[150]           4) [212][215][207] 1571 [196][210][201][214][197][211]"
  169. 1750 PRINT"          [208][204][197][193][211][197] [205][193][203][197][160][211][197][204][197][195][212][201][207][206]"
  170. 1760 GETB$:IFB$=""THEN1760
  171. 1770 IFB$="1"THEN1800
  172. 1775 IFB$="2"THEN1850
  173. 1780 IFB$="3"THEN1900
  174. 1790 IFB$="4"THEN1950
  175. 1800 OPEN15,8,15,"U0>M0":CLOSE15:RETURN
  176. 1850 OPEN15,8,15,"U0>M1":CLOSE15:RETURN
  177. 1900 OPEN15,8,15,"U0>M0":CLOSE15:OPEN15,9,15,"U0>M0":CLOSE15:RETURN
  178. 1950 OPEN15,8,15,"U0>M1":CLOSE15:OPEN15,9,15,"U0>M1":CLOSE15:RETURN
  179. 2000 S=54272:POKES+6,240:POKES+5,34
  180. 2005 POKES+24,15:POKES+4,21
  181. 2010 FORI=1TO30
  182. 2020 POKES+1,RND(1)*180:POKES,RND(1)*20
  183. 2030 FORJ=1TO60:NEXT:NEXT
  184. 2040 POKES+4,0
  185. 2050 RETURN
  186. 3000 PRINT"[147]"SPC(240)TAB(9)"[153][208][204][197][193][211][197] [211][197][204][197][195][212][160][217][207][213][210][160][208][210][201][206][212][197][210]"
  187. 3010 PRINT"[155]         --------------------------"
  188. 3040 PRINTTAB(6)"[154]    [198]1 [146]  [198][207][210] [195][207][205][205][207][196][207][210][197] [208][210][201][206][212][197][210]
  189. 3050 [153][163]6)"SYS    ASC3 WAIT  ASC(null)(null)CLOSE(null)(null)ATN(null) (null)(null)RIGHT$(null)(null)VAL(null)
  190. 3060 PRINTTAB(6)"[150]    [198]5 [146]  [198][207][210][160][205][193][201][206][160][205][197][206][213]
  191. 3070 [161]S$:[139]S$[179][177]"INPUT"[175]S$[179][177]"DIM"[175]S$[179][177]"READ"[167]3070
  192. 3080 [139]S$[178]"DIM"[167]3700
  193. 3090 [139]S$[178]"READ"[167]20
  194. 3100 [141]3640
  195. 3110 [153]""
  196. 3120 [153][163]12);"CONTSTR$RIGHT$(null)(null) STR$RIGHT$(null)VALLEN(null)(null)(null)(null)
  197. 3130 ES$=CHR$(27):J=PEEK(820)
  198. 3140 PRINT"       [212][217][208][197]  2  [198][207][210] 2 [195][207][204][213][205][206][211]":PRINT"       [212][217][208][197]  3  [198][207][210] 3 [195][207][204][213][205][206][211]"
  199. 3150 GETG$:IFG$<>"2"ANDG$<>"3"THEN3150
  200. 3160 NC=VAL(G$)
  201. 3170 PRINT" [153] [208][210][197][211][211]  [210][197][212][213][210][206] [146][153] [215][200][197][206] [196][201][211][203] [201][211][160][210][197][193][196][217][155]"
  202. 3180 GETCC$:IFCC$=""THEN3180
  203. 3190 IFCC$<>CHR$(13)THEN3110
  204. 3200 PN=4
  205. 3220 ES$=CHR$(27)
  206. 3230 REM     BI$=ES$+CHR$(66)+CHR$(3):BI$=BI$+LI$+SP$
  207. 3240 BI$=""
  208. 3250 RS$=ES$+CHR$(64)
  209. 3260 DIMP$(150):C$="[196][201][211][203] [206][193][205][197]=":N$=CHR$(0)
  210. 3270 T$="--------------------------"
  211. 3290 FORI=1TONC:X$=X$+T$:Y$=Y$+U$:NEXTI:T$=X$:U$=Y$
  212. 3300 PRINT"[147]":X=1:Z=1:X$=""
  213. 3310 CLOSE4:CLOSE6:OPEN4,PN:OPEN6,DN,0,"$0"
  214. 3320 GET#6,A$,A$,A$,A$,A$,A$
  215. 3330 GET#6,A$:IFA$=""THEN3350
  216. 3340 X$=X$+A$:GOTO3330
  217. 3350 B$=MID$(X$,21,2):A$=MID$(X$,3,16)
  218. 3360 DN$=C$+CHR$(34)+A$+CHR$(34)+B$
  219. 3370 P$="":PRINT"[147]"DN$""
  220. 3380 GET#6,A$,A$:IFA$=""THENCLOSE6:GOTO3420
  221. 3390 GET#6,A$,B$:B$=STR$(ASC(A$+N$)+ASC(B$+N$)*256)+" "
  222. 3400 GET#6,A$:IFA$=""THENP$(X)=B$:PRINTP$(X);:GOSUB3560:X=X+1:B$="":GOTO3380
  223. 3410 B$=B$+A$:GOTO3400
  224. 3420 PRINT:PRINT"[153]   [208][210][197][211][211]  [210][197][212][213][210][206] [146] [153][215][200][197][206] [208][210][201][206][212][197][210] [201][211] [210][197][193][196][217]
  225. 3430 [161]G$:[139]G$[179][177][199](13)[167]3430
  226. 3440 [152]4:[152]4,U$
  227. 3450 [152]4,BI$;BO$;DN$;":":[152]4,T$
  228. 3460 [129]B[178]1[164]NC:P$[178]P$[170][200](P$(Z),26):Z[178]Z[170]1
  229. 3470 [139]Z[178]X[171]1[167][152]4,P$:[137]3500
  230. 3480 [130]B:[152]4,P$:P$[178]"":[139]Z[178]X[171]1[167]3500
  231. 3490 [137]3460
  232. 3500 [152]4,U$:[152]4
  233. 3510 [152]4,""
  234. 3520 [152]4:[152]4,RS$:[160]4
  235. 3550 [156]:[137]20
  236. 3560 [139]J[178]1[167][153]:[142]
  237. 3570 [143]    IFMID$(P$(X),15,1)="."THENRETURN
  238. 3580 [143]    IFMID$(P$(X),16,1)="."THENRETURN
  239. 3590 [143]    IFMID$(P$(X),17,1)="."THENRETURN
  240. 3600 [153]" (null)/(null) WAIT ";
  241. 3610 [161]Y$:[139]Y$[179][177]"Y"[175]Y$[179][177]"N"[167]3610
  242. 3620 [139]Y$[178]"N"[167]P$(X)[178]"":X[178]X[171]1
  243. 3630 [153]Y$:[142]
  244. 3640 [153]"LOAD"[166]240)[163]12)"(null)(null)VALATN(null)VAL (null)VAL(null)VALLEN(null)":[153][163]12)" (null)(null)(null)(null) LENLEFT$(null)RIGHT$LENVAL "
  245. 3650 [153][163]6)"  ASC1 WAIT  (null)(null) VALSTR$RIGHT$(null) VALATNLENLEFT$ ASCRIGHT$(null)VAL
  246. 3660 PRINTTAB(6)"  [198]3 [146]  [198][207][210] [198][213][204][204] [196][201][210][197][195][212][207][210][217]
  247. 3670 [161]G$:[139]G$[179][177]"INPUT"[175]G$[179][177]"DIM"[167]3670
  248. 3680 J1[178][198](G$):J[178]135[171]J1:[151]820,J
  249. 3690 [142]
  250. 3700 [141]3640
  251. 3710 [151]53280,0:[151]53281,0:[151]646,7
  252. 3720 [153]"
  253. 3730 PRINTTAB(12);"[154][196][201][211][203] [196][201][210][197][195][212][207][210][217]
  254. 3740 ES$[178][199](27)
  255. 3750 J[178][194](820)
  256. 3760 LI$[178]ES$[170][199](70)[170][199](0)
  257. 3770 SP$[178]ES$[170][199](45)[170][199](10)
  258. 3780 [133]"(null)(null)(null)PEEKVAL(null) (null)ASC LEN(null)(null)(null)(null)(null)(null)  2 TO 5 WAITLIST";NC:[139]NC[179]2[176]NC[177]5[167]3780
  259. 3790 PN[178]4
  260. 3810 ES$[178][199](27)
  261. 3820 BI$[178]ES$[170][199](15):BI$[178]BI$[170]LI$[170]SP$
  262. 3830 BI$[178]BI$[170]LI$[170]SP$
  263. 3840 RS$[178]ES$[170][199](64)
  264. 3850 [134]P$(150):C$[178]"STR$RIGHT$(null)(null) (null)ATN(null)VAL=":N$[178][199](0)
  265. 3860 T$[178]"---------------------------"
  266. 3880 [129]I[178]1[164]NC:X$[178]X$[170]T$:Y$[178]Y$[170]U$:[130]I:T$[178]X$:U$[178]Y$
  267. 3890 [153]"LOAD":X[178]1:Z[178]1:X$[178]""
  268. 3900 [160]4:[160]6:[159]4,PN:[159]6,DN,0,"$0"
  269. 3910 [161]#6,A$,A$,A$,A$,A$,A$
  270. 3920 [161]#6,A$:[139]A$[178]""[167]3940
  271. 3930 X$[178]X$[170]A$:[137]3920
  272. 3940 B$[178][202](X$,21,2):A$[178][202](X$,3,16)
  273. 3950 DN$[178]C$[170][199](34)[170]A$[170][199](34)[170]B$
  274. 3960 P$[178]" ":[153]"LOAD"DN$""
  275. 3970 [161]#6,A$,A$:[139]A$[178]""[167][160]6:[137]4010
  276. 3980 [161]#6,A$,B$:B$[178][196]([198](A$[170]N$)[170][198](B$[170]N$)[172]256)[170]" "
  277. 3990 [161]#6,A$:[139]A$[178]""[167]P$(X)[178]B$:[153]P$(X);:[141]3560:X[178]X[170]1:B$[178]"":[137]3970
  278. 4000 B$[178]B$[170]A$:[137]3990
  279. 4010 [153]:[153]"PRINT   (null)(null)VAL(null)(null)  (null)VAL(null)(null)(null)(null) WAIT PRINT(null)LEFT$VAL(null) (null)(null)RIGHT$(null)(null)VAL(null) RIGHT$(null) (null)VALATNSTR$(null)
  280. 4020 GETG$:IFG$<>CHR$(13)THEN4020
  281. 4030 PRINT#4,BI$;U$
  282. 4040 PRINT#4,BI$;BO$;DN$;":";LI$;P$(X-1);BF$:PRINT#4,T$
  283. 4050 FORB=1TONC:P$=P$+LEFT$(P$(Z),26)+" ":Z=Z+1
  284. 4060 IFZ=X-1THENPRINT#4,P$:GOTO4090
  285. 4070 NEXTB:PRINT#4,P$:P$=" ":IFZ=X-1THEN4090
  286. 4080 GOTO4050
  287. 4090 PRINT#4,U$:PRINT#4
  288. 4100 PRINT#4:PRINT#4,RS$:CLOSE4
  289. 4130 CLR:GOTO20
  290. 4200 PRINT"[147]       [211][213][194][210][207][213][212][201][206][197] [194][217] [205][201][195][200][193][197][204] [205][217][197][210][211]"
  291. 4205 PRINT"[158]     [196][207] [206][207][212] [204][207][195][203] [198][201][204][197][211] [212][200][193][212] [193][210][197] [213][211][197][196]"
  292. 4210 PRINT"    [198][207][210][160][212][200][197][160]1571 [196][207][213][194][204][197][160][211][201][196][197][196][160][205][207][196][197]!!!"
  293. 4215 PRINT"[153]            [195][207][206][212][201][206][213][197][160]? ([217]/[206])"
  294. 4216 GETA$:IFA$=""THEN4216
  295. 4217 IFA$="Y"THENCLR:GOTO4220
  296. 4218 IFA$="N"THEN20
  297. 4219 GOTO4216
  298. 4220 OPEN15,8,15:OPEN2,8,2,"#":S=1:IFFRE(0)=FRE(1)THEN4250
  299. 4230 R=133:FORP=1TO7STEP2:KEYP,CHR$(R):KEYP+1,CHR$(R+4):R=R+1:NEXT
  300. 4250 PRINT"[158][147]            [198][201][204][197][160][204][207][195][203]/[213][206][204][207][195][203]"
  301. 4260 PRINT"[153]        [198]1= [206][197][216][212] [198][201][204][197]"
  302. 4270 PRINT"[150]        [198]3= [206][197][216][212] [211][197][195][212][207][210]"
  303. 4280 PRINT"[154]        [198]5= [204][207][195][203] [198][201][204][197]"
  304. 4290 PRINT"[155]        [198]6= [213][206][204][207][195][203] [198][201][204][197]"
  305. 4300 PRINT"[159]        [198]7= [210][197][212][213][210][206] [212][207] [205][193][201][206] [205][197][206][213]":GOSUB4550:GOTO4320
  306. 4310 RESTORE:S=S1:IFS>18ORS<1THENS=1
  307. 4320 PRINT"           [212][210][193][195][203] 18 [211][197][195][212][207][210]:"S"[157]"
  308. 4330 PRINT#15,"U1";2;0;18;S:PRINT#15,"B-P";2;0:GET#2,T$,S$:S1=ASC(S$+CHR$(0))
  309. 4340 PRINT#15,"U1";2;0;18;S
  310. 4350 READP:IFP=0THEN4310
  311. 4360 PRINT#15,"B-P";2;P
  312. 4370 FORI=1TO19:POKE1551+I,32:NEXT
  313. 4380 FORI=1TO19:GET#2,A$:POKE1551+I,ASC(A$+CHR$(0)):NEXT
  314. 4390 GETQ$:IFQ$=""THEN4390
  315. 4400 IFQ$=CHR$(133)THEN4350
  316. 4410 IFQ$=CHR$(134)THEN4310
  317. 4420 IFQ$=CHR$(135)THENQ=1:GOTO4460
  318. 4430 IFQ$=CHR$(139)THENQ=2:GOTO4460
  319. 4440 IFQ$=CHR$(136)THEN4540
  320. 4450 GOTO4390
  321. 4460 PRINT#15,"B-P";2;P
  322. 4470 GET#2,A$:IFA$=""THENA$=CHR$(0)
  323. 4480 IFQ=1THENA=ASC(A$)OR64
  324. 4490 IFQ=2THENA=ASC(A$)AND191
  325. 4500 PRINT#15,"B-P";2;P
  326. 4510 PRINT#2,CHR$(A);
  327. 4520 PRINT#15,"U2";2;0;18;S
  328. 4530 GOTO4360
  329. 4540 CLOSE2:CLOSE15:GOTO20
  330. 4550 PRINT"       [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  331. 4560 PRINT"       [221]                      [221]"
  332. 4570 PRINT"       [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":PRINT"        ^"
  333. 4580 PRINT"        [173][192][192]  [198][201][204][197] [212][217][208][197] [195][207][196][197]:"
  334. 4590 PRINT"        [158][193]=[211][197][209] [154][194]=[208][210][199] [150][195]=[213][211][210] [153][196]=[210][197][204]"
  335. 4600 PRINT:PRINT"            [158][211][200][201][198][212][197][196]=[204][207][195][203][197][196]"
  336. 4605 PRINT"          [153][213][206][211][200][201][198][212][197][196]=[213][206][204][207][195][203][197][196]"
  337. 4610 RETURN
  338. 4620 DATA2,34,66,98,130,162,194,226,0
  339. 6682 
  340.