home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / MEMORIZER-1992 (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  5KB  |  182 lines
  1. 0 GOTO77
  2. 1 REM  MEMORIZER
  3. 2 :
  4. 3 REM  BILL BALDOCK   6/12/82
  5. 4 :
  6. 5 REM   TOOL FOR MEMORIZING ANY TEXT
  7. 6 :
  8. 7 REM MODIFIED BY CUE - WHO KNOWS WHEN
  9. 8 :
  10. 9 REM UPGRADE FOR 92 BY PAUL MC ALEER
  11. 10 REM"[176][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][174]
  12. 11 [143]"(null)       SAN MATEO COUNTY      (null)
  13. 12 REM"[221]     OFFICE OF EDUCATION     [221]
  14. 13 [143]"(null)             &               (null)
  15. 14 REM"[221]  COMPUTER-USING EDUCATORS   [221]
  16. 15 [143]"(null)                             (null)
  17. 16 REM"[221]          SOFTSWAP           [221]
  18. 17 [143]"(null)                             (null)
  19. 18 REM"[221]333 MAIN STREET, REDWOOD CITY[221]
  20. 19 [143]"(null)CA  94063      (415) 363-5472(null)
  21. 20 REM"[173][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][189]
  22. 21 [143]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^
  23. 22 REM"[221] PROGRAMS MAY BE COPIED FOR  [221]
  24. 23 [143]"(null) EDUCATIONAL USE ONLY AND    (null)
  25. 24 REM"[221] ARE NOT TO BE SOLD.         [221]
  26. 25 [143]"(null) COPYRIGHT 1983    CUE INC.  (null)
  27. 26 REM"[173][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][189]
  28. 30 [143]"NEWNEWNEWINPUT ROUTINE
  29. 31 DEFFNZ(Z)=PEEK(196)+256*PEEK(197)+PEEK(198):POKE158,0:ZZ$="":POKE167,0
  30. 32 GETZ$:IFZ$=""ORZ$="[147]"ORZ$=""ORZ$=""ORZ$="[145]"ORZ$=""ORZ$="[157]"ORZ$="[148]"THEN32
  31. 33 IFZ$=CHR$(13)THENPOKE167,1:POKEFNZ(Z),32:Z$=ZZ$:PRINT:GOTO37
  32. 34 IF(ZZ$=""ANDZ$=CHR$(20))THEN31
  33. 35 IFZCANDLEN(ZZ$)>ZC-1THENGOSUB38:GOTO31
  34. 36 ZZ$=ZZ$+Z$:ZZ$=LEFT$(ZZ$,LEN(ZZ$)+(CHR$(20)=Z$)*2):PRINTZ$;:GOTO32
  35. 37 ZC=0:RETURN
  36. 38 FORZX=1TOZC:PRINTCHR$(20);:NEXT:RETURN
  37. 40 REM"[162][162][162]GET ROUTINE
  38. 41 [161]Z$:[153][202](" CMDTOCMD",(ZU[170]1)[172]2[171]1,2);:ZU[178][171]1[172](ZU[178]0):[139]Z$[178]""[167]41
  39. 42 [139]Z$[178][199](20)[175][194](211)[178]0[167]41
  40. 43 [139]ZC$[179][177]""[167][129]ZX[178]1[164][195](ZC$):ZF[178]ZF[170]ZX[172][171](Z$[178][202](ZC$,ZX,1)):[130]:[139]ZF[178]0[167]4
  41. 44 ZC$[178]"":ZF[178]0:[142]
  42. 50 [143]"NEWNEWNEWCONTINUE ROUTINE1
  43. 51 PRINT"[208]RESS [210][197][212][213][210][206][146][145][157][157][157][157][157][157][164][164][164][164][164][164] TO CONTINUE ";
  44. 55 GETZ$:PRINTMID$(" [157][164][157]",(ZU+1)*2-1,2);:ZU=-1*(ZU=0)
  45. 58 IFZ$<>CHR$(13)THEN55
  46. 59 RETURN
  47. 60 REM"[162][162][162]CONTINUE ROUTINE2
  48. 61 [153]"PRESS RETURNWAITONCMDCMDCMDCMDCMDCMDTOTOTOTOTOTO TO CONTINUE ";
  49. 62 [137]55
  50. 77 [153][199](14)[199](8)"LOAD":[151]53280,6:[151]53281,0:[137]1000
  51. 200 [143]----GET STRING----
  52. 220 [141]40:A$[178]Z$:[153]" CMD";:A[178][198](A$)
  53. 240 [139] B$[178]""[175] A[178]20 [167] [142]
  54. 250 [139] B$[178]"" [175] A[178]13 [167] [142]
  55. 260 [139] A[178]13 [167] [153]A$;:[142]
  56. 270 [139] A[178]20 [175] [195](B$)[179]2 [167] [153]A$;:B$[178]"":[137] 220
  57. 280 [139] A[178]20 [167] [153]A$;:B$[178][200](B$,[195](B$)[171]1):[137] 220
  58. 290 [139] A[179]32 [176] (A[177]127 [175] A[179]160) [167] 220
  59. 300 [139] A$[178][199](34)[167][153]A$;[199](20);
  60. 320 [153]A$;:B$[178]B$[170]A$:[139][195](B$)[178]LL[171]5[167][153][199](7);
  61. 325 [139] [195](B$)[177][178]LL [167] [141]900:[153]:[142]:[143] BACKSPACE
  62. 340 [137] 220
  63. 400 [143]---GET NON-EMPTY STRING---
  64. 410 B$[178]"":[151] 158,0
  65. 420 [141] 200
  66. 430 [139] B$[178]"" [167] 420
  67. 440 [142]
  68. 600 [143]--GET BODY-
  69. 610 NL[178]0:[143] # OF TEXT LINES
  70. 620 B$[178]""
  71. 630 W$[178]"":[141] 200 [161] STRING
  72. 631 [153]
  73. 640 [139]B$[178]""[175] A[178]20[175]NL[178]0[167]610
  74. 650 [139]B$[178]""[175] A[178]20 [167] NL[178]NL[171]1:B$[178]T$(NL):[153]"ONONON"[163][195](B$));:[137]720
  75. 660 [139]B$[178]""[175] A[178]13 [167] 730
  76. 670 : T$(NL)[178]B$
  77. 680 : [139] B$[178]"" [167] [153]""
  78. 690 : NL[178]NL[170]1:[139]NL[177]11[167]730
  79. 700 : [139] W$[179][177]"" [167] B$[178]W$:[153]W$;:[137] 720
  80. 710 : B$[178]"":W$[178]""
  81. 720 [137] 630
  82. 730 [142]
  83. 900 [143]------BACK TO SPACE-------
  84. 910 W$[178]"":L[178][195](B$)
  85. 920 [139] L[178]0 [167] B$[178]W$:[137]990
  86. 930 [139] [201](B$,1)[178]" "[176][201](B$,1)[178]"CLOSE"[167]990
  87. 940 :  W$[178][201](B$,1)[170]W$
  88. 950 :  B$[178][200](B$,L[171]1)
  89. 960 :  [153][199](20);
  90. 970 :  L[178][195](B$)
  91. 980 [137]920
  92. 990 [142]
  93. 1000 [143]*** MAIN PROGRAM
  94. 1005 [141] 1200, INITIALIZE
  95. 1010 [143] * WAS SETUP FOR DA PET COMPUTER
  96. 1020 [141] 2000, INSTRUCTI[145]S
  97. 1030 [141] 4000, [133]
  98. 1040 [141] 5000, INSTRUCTI[145]S 2
  99. 1050 [141] 6000, FEEDBACK
  100. 1055 [139]Z$[178]"Y"[167][138]
  101. 1060 [128]
  102. 1200 [143]*** INITIALIZE
  103. 1210 [134] T$(25),LT(25),SP(25,80),X$(25):[153]""
  104. 1220 LL[178]38:P[178][194](59271):[139]P[178]32[167]LL[178]78
  105. 1290 [142]
  106. 2000 [153]"LOAD"[163]11)"SYS (null)VAL(null)(null)(null)RIGHT$(null)VAL(null) 1992 WAIT"
  107. 2001 [153][163]6)"LIST(null)RIGINAL BY PEEKILL PEEKALDOCK"
  108. 2002 [153][163]6)"LIST(null)PGRADED BY (null)AUL (null)CATNLEER"
  109. 2003 [153]"CONTATNRE YOU SUFFERING FROM MEMORY BLOCK?"
  110. 2004 [153]"PRINT(null)HIS HANDY LITTLE PROGRAM WILL HELP!"
  111. 2005 [153]"PRINT#(null)N THE NEXT SCREEN, ENTER THE TEXT"
  112. 2006 [153]"YOU WANT TO MEMORIZE, LINE BY LINE."
  113. 2007 [153]"(null)HEN, RIGHT$'LL TAKE AWAY PARTS OF YOUR"
  114. 2008 [153]"TEXT.  PEEKY THE LAST PASS, YOU'LL HAVE"
  115. 2009 [153]"IT MEMORIZED!"
  116. 2010 [153]"DEFRIGHT$ FOUND THIS GREAT PROGRAM ON A (null)STR$"
  117. 2011 [153]"DISK, AND DESPITE ITS AGE (1982,) IT"
  118. 2012 [153]"IS A GREAT AID.  VALNJOY!"
  119. 2100 [153]"SYS (null)RESS (null)VAL(null)(null)(null)(null)WAIT TO END A PARAGRAPH,"
  120. 2110 [153]" OR WHEN YOU'RE FINISHED ENTERING TEXT.CONT"
  121. 2135 [141]50
  122. 2160 [153]"LOAD";:[139]NP[167][151]59468,12
  123. 2165 [153]"LOADPRINTNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW"
  124. 2170 [153]"  (null)YPE THE TEXT YOU WANT TO MEMORIZE.  WAITCONT";
  125. 2990 [142]
  126. 4000 [143]*** INPUT
  127. 4010 [141]600
  128. 4990 [142]
  129. 5000 [143]"NEWNEWNEWNEWINSTRUCTIONS, PART TWO
  130. 5010 PRINT"[147]":IFNPTHENPOKE59468,14
  131. 5020 PRINT"[215]HEN YOU CONTINUE [201]'LL PRINT YOUR "
  132. 5030 PRINT"ENTRY JUST THE WAY YOU TYPED IT IN."
  133. 5040 PRINT"[210]EAD IT ALOUD VERY CAREFULLY."
  134. 5050 PRINT"[193]S YOU CONTINUE, SOME OF THE LETTERS"
  135. 5060 PRINT"WILL VANISH.  [210]EAD IT ALOUD AGAIN, THEN"
  136. 5070 PRINT"CONTINUE AGAIN; MORE LETTERS WILL VANISH"
  137. 5080 PRINT"[201]N TEN PASSES, ALL THE LETTERS WILL BE"
  138. 5090 PRINT"GONE.  [194]Y THEN, YOU WILL HAVE IT "
  139. 5100 PRINT"MEMORIZED!"
  140. 5110 GOSUB50:PRINT"[154]"
  141. 5990 RETURN
  142. 6000 REM"[162][162][162][162]FEEDBACK
  143. 6030 [153]"LOAD"[163]15)"RIGHT$'M THINKING.":[151]53280,14
  144. 6040 [129] I[178]0[164] NL:[129] J[178]1[164] [195](T$(I))
  145. 6042 [151]53280,[181]([187](1)[172]15)[170]1
  146. 6050 [139] [202](T$(I),J,1)[179][177]" "[167] LT(I)[178]LT(I)[170]1:SP(I,J)[178]1
  147. 6060 [130] J,I
  148. 6070 [153]"LOAD";:[151]53280,6
  149. 6080 [129] R[178]0[164] NL
  150. 6090 [153] T$(R);:[139]R[179]NL[167][153]:[153]
  151. 6100 [130] R
  152. 6110 [141] 6500
  153. 6120 [153]"LOAD":[137] 6900
  154. 6500 [141]60
  155. 6510 [129] CT[178]1[164] 9
  156. 6520 :[129] L[178]0[164] NL
  157. 6530 :ND[178][181](LT(L)[173](11[171]CT))
  158. 6540 :[139] ND[178]0 [167] 6630
  159. 6550 ::[129] D[178]1[164] ND
  160. 6560 ::CH[178][181]([195](T$(L))[172][187](1)[170]1)
  161. 6570 ::[139] SP(L,CH)[179][177]1 [167] 6560
  162. 6580 ::X$(L)[178]" "
  163. 6590 ::T$(L)[178][200](T$(L),CH[171]1)[170]X$(L)[170][202](T$(L),CH[170]1)
  164. 6600 ::SP(L,CH)[178]0
  165. 6610 ::LT(L)[178]LT(L)[171]1
  166. 6620 ::[130] D
  167. 6630 :[130] L
  168. 6640 [153]"LOAD";
  169. 6650 :[129] I[178]0[164] NL:[153] T$(I);:[139]I[179][177]NL[167][153]:[153]
  170. 6655 [130] I
  171. 6660 [141]60
  172. 6670 [130] CT
  173. 6680 [142]
  174. 6900 [139]NP[167][151]59468,14
  175. 6910 [153]"LOADCONT(null)OW YOU HAVE IT MEMORIZED, RIGHT?"
  176. 6920 [153]"(null)O REALLY BE SURE, YOU CAN (null)(null)(null)WAITONCMDCMDCMDTOTOTO THIS"
  177. 6930 [153]"PROGRAM AGAIN, TYPING IN YOUR TEXT FROM"
  178. 6940 [153]"MEMORY."
  179. 6950 [153]"ATNGAIN  (Y/N) ";:ZC$[178]"YN":[141]40:
  180. 6980 [153]"LOAD";:[139]P[179][177]32[167][153][199](142):[153][199](9):[151]53280,14:[151]53281,6
  181. 6990 [142]
  182.