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