home *** CD-ROM | disk | FTP | other *** search
- 10 GOSUB51000:GOSUB60000
- 11 C0$="[144][129][149][150][151][152][154][155]":C0=LEN(C0$):C1$="[144][159][158][129][149][150][151][152][153][154][155]":C1=LEN(C1$)
- 12 B7=PEEK(646):B8=PEEK(53280):B9=PEEK(53281)
- 13 POKE53280,14:POKE53281,1:DEFFNR(A)=INT(RND(TI)*A+1):PRINTCHR$(142);CHR$(8);
- 20 PRINT"[147]":DIMTP$(6),A$(11),ZN$(9)
- 30 RR=15:CC=12:GOSUB52040:PRINT"[144] ADDITION CONCEPT "
- 40 PRINTTAB(14)"PRODUCED BY:"
- 50 PRINTTAB(7)"JMH SOFTWARE OF MINNESOTA"
- 90 GOSUB39000
- 100 FORA=1TO1500:NEXT:GOSUB38000
- 200 RR=15:CC=0:GOSUB52040:PRINT"CHOOSE ONE OF THE FOLLOWING:"
- 210 PRINT" 1 [146]","SUMS TO 5"
- 220 PRINT" 2 [146]","SUMS TO 10"
- 230 PRINT"";TAB(5)" ENTER 1 OR 2 "
- 1000 GETA$:IFA$<>""THEN1000
- 1010 GETOP$:IFOP$=""THEN1010
- 1020 OP=VAL(OP$):IFOP<1OROP>2THEN1010
- 1030 MN=OP*5:GOSUB38000
- 1050 FORNP=1TO5
- 1100 A1=INT(RND(TI)*MN):A2=INT(RND(TI)*(MN-A1))+1:RA=A1+A2
- 1105 IFA1>9ORA2>9THEN1100
- 1110 RR=15:CC=5:GOSUB52040:PRINTZN$(A1):CC=10:GOSUB52040:PRINTAN$(4)
- 1120 CC=15:GOSUB52040:PRINTZN$(A2):CC=20:GOSUB52040:PRINTAN$(1)
- 1130 ES=16:IFA1THENRR=14:CC=6-INT(A1/2):GOSUB52040:FORA=1TOA1:PRINT"[209]";:NEXT
- 1140 IFA2THENRR=14:CC=16-INT(A2/2):N2=CC:ES=CC+A2:GOSUB52040:FORA=1TOA2:PRINT"[209]";:NEXT
- 1150 IFA1=0ANDA2=0THEN1400
- 1200 RR=13:IFA1<1THEN1300
- 1205 FORA=1TO11:A$(A)="":NEXT
- 1210 C=6-INT(A1/2):N1=C:FORA=CTOA1+C-1:CC=A:GOSUB52040
- 1220 PRINT"[209][157][215]":FORB=1TO50:NEXT:NEXT
- 1225 IFA1-ATHENB=0:FORB=1TOA1-A:A$(A)="[209]"+A$(A):NEXT:FORA=1TOA1
- 1230 FORA=1TOA1:A$(A)=A$(A)+"[209]":IFA>1THENB=0:FORB=1TOA-1:A$(A)=A$(A)+"[209]":NEXT
- 1235 IFA1-ATHENB=0:FORB=1TOA1-A:A$(A)="[209]"+A$(A):NEXT
- 1240 FORB=1TOA:A$(A)=" [157]"+A$(A):NEXT:NEXT
- 1250 A$=" ":FORA=1TOA1:A$=A$+"[209]":NEXT:FORA=CTOES-A1:CC=A:GOSUB52040:PRINTA$
- 1260 FORB=1TO100:NEXT:NEXT:FORA=1TOA1:GOSUB52040:PRINTA$(A)
- 1270 FORB=1TO100:NEXT:NEXT
- 1300 A$="":FORA=1TOA1+A2:A$=A$+"[209]":NEXT
- 1305 ES=28-INT((A1+A2)/2):IFA2<1THENCC=CC+A1-1:RR=RR+1:GOTO1330
- 1310 RR=RR+1:FORA=0TOA2-1:CC=16-INT(A2/2)+A:GOSUB52040
- 1320 PRINT"[215]"+A$:FORB=1TO100:NEXT:NEXT
- 1330 C=CC:FORA=C+1TOES:CC=A:GOSUB52040:PRINT" ";A$:FORB=1TO100:NEXT:NEXT
- 1400 ZL=2:RR=17:CC=27:GOSUB52040:GOSUB41000
- 1410 IFZI=RAANDNI<1THENCP=CP+1:GOTO39600
- 1420 IFZI=RATHEN1600
- 1425 RR=15:CC=25:GOSUB52040:PRINTSP$;"";SP$
- 1430 NI=NI+1:IFNI=1THENGOTO1500
- 1440 A$=STR$(RA):A$=RIGHT$(A$,LEN(A$)-1):RR=13:CC=ES+RA:FORA=1TO5:GOSUB52040
- 1450 PRINTA$:FORB=1TO200:NEXT:GOSUB52040:PRINT"";A$:FORB=1TO200:NEXT
- 1460 NEXT:GOTO1400
- 1500 IFA1<1THEN1530
- 1510 RR=13:CC=N1-1:GOSUB52040:FORA=1TOA1:PRINTA;:GOSUB1590:PRINT"[157][157]";:NEXT
- 1520 PRINT"";RIGHT$(STR$(A1),1);"[146][145][157][164]":GOSUB1590:GOSUB1590
- 1530 RR=13:CC=N2-1:GOSUB52040:FORA=1TOA2:PRINTA;:GOSUB1590:PRINT"[157][157]";:NEXT
- 1540 PRINT"";RIGHT$(STR$(A2),1);"[146][145][157][164]":GOSUB1590:GOSUB1590
- 1550 CC=ES:GOSUB52040:FORA=1TORA:PRINTA;:GOSUB1590:PRINT"[157][157]";:NEXT:GOTO1400
- 1590 FORB=1TO500:NEXT:RETURN
- 1600 NI=0:GOSUB56000:GOSUB38000:NEXTNP
- 1610 FORA=1TO30-((CP+1)*4+CP):PRINT"";TAB(A);TP$(6):FORB=1TO70:NEXT:NEXT
- 1620 PRINT"";TAB(A+3);"[192]"
- 1630 GOSUB56000
- 1650 FORA=1TO38:PRINT"":FORB=1TO4:PRINTCHR$(148)" ";TAB(39);CHR$(20)
- 1660 NEXT:FORC=1TO120-A*5:NEXT:NEXT
- 1670 GOSUB38000:RR=13:CC=5:GOSUB52040:PRINT"YOU ANSWERED"CP"CORRECTLY ON THE"
- 1680 RR=RR+2:GOSUB52040:PRINT"FIRST TRY, OUT OF A POSSIBLE 5."
- 1690 GOTO55000
- 10000 GETA$:IFA$=""THEN10000
- 10005 GOSUB38000
- 10010 NEXTNP
- 38000 ONINT(RND(TI)*4)+1GOTO38100,38200,38300,38400
- 38100 :
- 38110 GOSUB38500:CC=0:FORRR=12TO24:GOSUB52040:PRINTA$:NEXT:RETURN
- 38200 :
- 38210 GOSUB38500:CC=0:FORRR=24TO12STEP-1:GOSUB52040:PRINTA$:NEXT:RETURN
- 38300 :
- 38310 GOSUB38600:RR=12:CC=1:GOSUB52040:FORCC=1TO38:PRINTA$;"[145][145][145][145][145][145][145][145][145][145][145][145]";:NEXT
- 38320 RETURN
- 38400 :
- 38410 GOSUB38600:RR=12:CC=38:GOSUB52040:FORCC=1TO38:PRINTA$;"[157][145][145][145][145][145][145][145][145][145][145][145][145]";:NEXT
- 38500 A$=" ":RETURN
- 38600 A$="":FORA=1TO12:A$=A$+" [157]":NEXT:RETURN
- 39000 PRINTMID$(C1$,FNR(C1),1)"";:FORA=1TO17:PRINT"[163][184]";:NEXT:PRINT"
- 39020 RR[178]7:CC[178]35:[141]52040:[153]"(null) THEN(null)FNCMDCMDCMDCMDFNTHEN(null)FNCMDCMDCMDCMDTAB(TAB(TAB(FNCMD(null)(null)STOP"
- 39030 [129]A[178]0[164]6:[135]TP$(A):[130]
- 39070 C$[178][202](C1$,[165]R(C1),1)
- 39080 [129]A[178]1[164]30:[153]"";[163]A);C$;TP$(0):[129]B[178]1[164]100:[130]:[130]
- 39300 [137]63000
- 39500 [131]" *WAITFN RNDRNDCMDCMDCMDCMDCMDCMDCMD OR WAITRNDCMDCMDCMDCMDCMDCMDSTOP (null)(null) (null)"
- 39510 [131]" (null)CMDCMDCMDCMDCMDWAIT OR WAIT^"," (null)TAB(TAB((null)CMDCMDCMDCMDCMDCMD OR(null)TOTOSQR^"
- 39520 [131]" SPC(SPC(SPC(SPC(CMDCMDCMDCMDCMDCMD ORSPC((null)SQRSPC(^","CMD ORFREFREFREFREWAIT^"," *NEWNEWRNDCMDCMDCMDCMDCMDCMDWAIT ORLOGCOSLOGCOSWAIT^"
- 39530 [131]" COSNEWLOGCMDCMDCMDCMDWAIT WAIT^CMDCMDCMDCMDCMD (null) (null)"
- 39600 C$[178][202](C1$,[165]R(C1),1)
- 39605 [129]A[178]1[164]30[171]CP[172]6[170]CP:[153]"";[163]A);C$;TP$(NP);"STOPCMDCMDCMDCMDCMDCMD (null) (null)":[129]B[178]1[164]70
- 39610 [130]:[130]:[153]"";[163]A[170]4)"STOPTAN"
- 39650 [137]1600
- 39999 [137]39999
- 41000 :
- 41010 :
- 41050 ZI$[178]""
- 41060 [161]ZG$:[139]ZG$[179][177]""[167]41080
- 41065 [139][195](ZI$)[178]ZL[167]41060
- 41070 [153]"?CMD";:[129]Z1[178]1[164]60:[130]:[153]" CMD";:[129]Z1[178]1[164]02:[130]Z1:[137]41060
- 41080 Z9[178][198](ZG$):Z8[178][195](ZI$)
- 41090 [139]Z9[178]20[167]41150
- 41100 [139]Z9[178]13[167]41200
- 41110 [139]Z8[178]ZL[167]41060
- 41111 [139] Z9[178]34 [167] 41060
- 41120 [139]Z9[179]48[176]Z9[177]57[167]41060
- 41125 [139] ZO[178]1 [167]41135
- 41130 RR[178]15:CC[178]25[170][195](ZI$)[172]4:[141]52040:[153]ZN$([197](ZG$))
- 41135 ZI$[178]ZI$[170]ZG$
- 41140 RR[178]17:CC[178]27[170][195](ZI$)[172]4:[141]52040:[137]41060
- 41150 [139]Z8[178]0[167]41060
- 41160 CC[178]25[170]([195](ZI$)[171]1)[172]4:RR[178]15:[141]52040:[153]SP$:RR[178]17:CC[178]27:[141]52040
- 41170 [139]Z8[178]1[167]41050
- 41180 ZI$[178][200](ZI$,Z8[171]1)
- 41190 [137]41140
- 41200 [139]Z8[178]0[167]41060
- 41210 ZI[178][197](ZI$):[129]Z1[178]1[164]Z8:[153]"CMD";:[130]
- 41220 [139]ZC[178]1[167][129]Z1[178]1[164]Z8:[153]" ";:[130]:[129]Z1[178]1[164]Z8:[153]"CMD";:[130]
- 41230 [142]
- 51000 :
- 51030 ZR$[178]"":ZC$[178]""
- 51040 [129] Z1[178]1[164]41:ZC$[178]ZC$[170]"":[130]
- 51050 [129] Z2[178]1[164]25:ZR$[178]ZR$[170]"":[130]
- 51060 [143] IFPEEK(833)<>93THENNEW
- 51070 [151]59468,12
- 51080 [142]
- 52000 :
- 52040 [153]"";
- 52050 [139]CC[179]2[167]52070
- 52060 [153][200](ZC$,CC[171]1);
- 52070 [139]RR[179]2[167]52090
- 52080 [153][200](ZR$,RR[171]1);
- 52090 [142]
- 53030 [142]
- 55000 :
- 55040 RR[178]20:CC[178]1:[141]52000
- 55060 [153]" SWAITTART OVER "
- 55070 [153]" EWAITND "
- 55080 [153]" TYPE S, OR E ON"
- 55090 [161]ZG$:[139]ZG$[179][177]""[167]55090
- 55100 [161]ZG$:[139]ZG$[178]""[167]55100
- 55120 [139]ZG$[178]"S"[167][138]
- 55130 [139]ZG$[179][177]"E"[167]55100
- 55140 [141]60500:[151]53280,B8:[151]53281,B9:[151]646,B7
- 55150 [153]"LOAD"
- 55160 [137] 61000
- 55170 [141]52000:[129]Z1[178]1[164]5:[153]" "
- 55180 [130]:[153]"":[142]
- 56000 :
- 56010 C[178][165]R(C0):[161]ZG$:[139]ZG$[177]""[167]56010
- 56020 [129]A[178]C[164]C0:RR[178]24:CC[178]5:[141]52000
- 56030 [153][202](C0$,A,1)" PRESS SPACE BAR TO CONTINUE ON"
- 56040 [129]B[178]1[164]200:[161]ZG$:[139]ZG$[178]" "[167]56050
- 56045 [130]:[130]:C[178]1:[137]56020
- 56050 [153]" STOP";
- 56060 [142]
- 60000 :
- 60010 [151]788,52
- 60050 [142]
- 60500 :
- 60510 [151]788,49:[142]
- 60430 [139] [194](50003)[178]160[167][151]144,85:[142]
- 61000 [153]"LOAD"
- 61010 [153]" LOAD"[199](34)"0:MENU"[199](34)",8"
- 61020 [153]"RUN":[153]"ONONONONONONONONON"
- 61030 [151]631,13:[151]632,13:[151]198,2:[128]
- 63000 :
- 63010 UP$[178]"ONONONONCMDCMDCMD"
- 63020 ZN$(0)[178]"NEWNEWNEWCMDCMDCMDGET GETWAITCMDCMDCMDGET GETWAITCMDCMDCMDGET GETWAITCMDCMDCMDLOGWAITNEWCOSWAIT"
- 63030 ZN$(1)[178]" NEWCMDGETCMDGETCMDGETCMDCOSWAITRND"
- 63040 ZN$(2)[178]"NEWNEWNEWCMDGETCMDCMDCMDWAITNEWNEWCOSWAITCMDCMDCMDGETCMDLOGWAITNEWNEWWAIT"
- 63050 ZN$(3)[178]"NEWNEWNEWCMDGETWAITCMDCMDCMDNEWNEWCOSCMDGETWAITCMDCMDCMDNEWNEWCOSWAIT"
- 63060 ZN$(4)[178]"RND *CMDCMDCMDWAITGET GETCMDCMDCMDLOGWAITNEWCOSCMDGETCMDGETWAIT"
- 63070 ZN$(5)[178]"NEWNEWNEWCMDCMDCMDGETCMDLOGWAITNEWNEWCMDGETCMDCMDCMDWAITNEWNEWCOSWAIT"
- 63080 ZN$(6)[178]"NEWNEWNEWCMDCMDCMDGETCMDLOGWAITNEWNEWCMDCMDCMDGET GETWAITCMDCMDCMDLOGWAITNEWCOSWAIT"
- 63090 ZN$(7)[178]"NEWNEWNEWCMDGETCMDGETCMDGETCMDGETWAIT"
- 63100 ZN$(8)[178]"NEWNEWNEWCMDCMDCMDGET GETCMDCMDCMDLOGWAITNEWCOSWAITCMDCMDCMDGET GETCMDCMDCMDLOGWAITNEWCOS"
- 63110 ZN$(9)[178]"NEWNEWNEWCMDCMDCMDGET GETCMDCMDCMDLOGWAITNEWCOSCMDGETWAITCMDCMDCMDNEWNEWCOSWAIT"
- 63120 AN$(4)[178]"*CMDCMD*COSWAITNEWCMDCMDGETWAIT"
- 63150 AN$(1)[178]"NEWNEWNEWCMDCMDCMDNEWNEWNEWWAIT"
- 63160 SP$[178]" CMDCMDCMD CMDCMDCMD CMDCMDCMD CMDCMDCMD "[170]UP$
- 63180 [129]Z1[178]0[164]9:ZN$(Z1)[178]ZN$(Z1)[170]UP$:[130]
- 63190 [142]
-