Atari 8-bit Source code

10GOTO90
20IFR$=""THENRETURN
22FORQ7=1TOLEN(R$):Q8=ASC(R$(Q7,Q7)):IFQ8>96THENR$(Q7,Q7)=CHR$(Q8-32)
24NEXTQ7:RETURN
40?G$:?"HITTOCONTINUE";:POSITION2,PEEK(84)+1:?G$:?G$:POSITION24,PEEK(84)-3
50INPUTR$:F8=1:GOTO420
90DIMC(10,3),P(18),DI(34,6),V$(315),N$(495),Q(10),SZ$(11),R$(150),S$(38),T$(75),N1$(25),V1$(25),G$(37)
100GRAPHICS18:SETCOLOR4,4,0:SETCOLOR0,5,15:POSITION7,2:?#6;"HIGH"
110F1=0:F2=0:F3=0:F4=0:F5=0:F6=0:F7=0:F8=1:F9=0:I=0:S=33:M=0:M1=0:C=0:M2=0:SZ$="":SZ=11:VZ=9
120FORN=1TO10:FORT=1TO3:C(N,T)=0:NEXTT:NEXTN:FORN=1TO38:S$(N,N)="-":NEXTN
130FORN=1TO45:N$(N*SZ-SZ+1,N*SZ)=SZ$:READR$:N$(N*SZ-SZ+1,N*SZ)=R$:NEXTN
133POSITION6,3:?#6;"SCHOOL"
140DATACOINS,MONEY,CHECK,FLUTE,HALLPASS,MUSIC,KEY,PENCIL,CASSETTE,APPLE,EXODUS,MACBETH,PEN,FOOD,HAMMER
142DATACAP,GOWN,PAPER
144DATAFINE,FEE,EQUATIONS,HOMEWORK,TRINOMIALS,FLOWCHART,STORY,KEYBOARD,MAP,PREAMBLE,TERMPAPER,LETTER,DIALOGUE
150DATAVOCABULARY,DEFINITIONS,PROOF,THEOREM,BADMINTON,BASKETBALL,VOLLEYBALL,TIME,WORM,FROG,PROGRAM
152DATAGRAFFITI,TRAY,TRAYS
160FORN=1TO35:V$(N*VZ-VZ+1,N*VZ)="":READR$:V$(N*VZ-VZ+1,N*VZ)=R$:NEXTN
163POSITION3,4:?#6;"CONFIDENTIAL"
167DATAN,S,E,W,U,D,I
170DATAQUIT,HELP,SCORE,READ,WRITE,RECITE,LEARN,MAKE,DO,CSAVE,CLOAD,SOLVE,FACTOR,PAY,GET,DROP
172DATAEAT,TYPE,GIVE,PLAY,COUNT,DISSECT,CONJUGATE,DRAW,BUY,UNLOCK,SWING,LOOK
180FORN=1TO34:FORT=1TO6:READV:DI(N,T)=V:NEXTT:NEXTN
185POSITION8,6:?#6;"AN":POSITION5,7:?#6;"ADVENTURE":FORN=1TO37:G$(N,N)="":NEXTN
190DATA2,0,0,0,0,33,12,0,13,0,0,0,15,14,0,13,0,0,17,18,18,0,0,0,33,16,32,0,0,0,33,16,0,28,0,0,0,30,0,8,0,16
192DATA33,9,7,9,0,16,8,10,10,33,0,0,9,30,30,33,0,34,23,33,0,0,14,0,15,0,13,0,0,0,15,0,3,2,0,0,3,0,0,0,0,11,4,3
194DATA19,31,30,11,6,15,22,33,7,0,16,0,0,0,0,0,16,15,16,4,7,0,20,15,0,0,0,0,21,19,33,15,0,0,16,20,22,15,0
196DATA0,0,21,0,0,7,0,0,0,0,0,24,0,24,24,24,24,25,24,26,24,24,24,25,24,26,25,25,27,26,11,9,0,0,0,0,0
197DATA29,0,0,5,0,0,0,28,0,0,0,0,7,0,7,10,0,31,0,0,15,0,30,0,0,0,0,5,0,0,11,6,9,20,1,0,0,33,15,33,0,33
220FORN=1TO18:READV:P(N)=V:NEXTN
225POSITION2,9:?#6;"BYD.PLEACHER":FORN=1TO1250:NEXTN
230DATA34,23,18,17,21,17,20,14,17,16,13,13,12,34,11,27,27,29
250DATAYou'reintheCOMPUTERLABwith3ATARI800'sand2ATARI1200XLcomputers.
251DATAYouareinanGEOMETRYclass.
252DATAYouareinanALGEBRAclass.
253DATAYouareinanENGLISHclass.
254DATAYouareinaHISTORYclass.
255DATAYouareinaTYPINGclass.
256DATAYouareinaFRENCHclass.
257DATAYouareintheGYM.
258DATAYouareintheBANDROOM.
259DATAYouareinaBIOLOGYclass.Therearetraysonthetables.
260DATAYouareintheSHOP.
261DATAYouareintheSUSPENSIONroom.
262DATAYouareintheLIBRARY.
263DATAYouareintheMATHoffice.
264DATAYouareintheCORRIDOR.
265DATAYouareintheCOMMONS.
266DATAYouareatyourLOCKER.
267DATAYouareintheAUDITORIUM.
268DATAYouareintheCLINIC.
269DATAYouareinthegeneralOFFICE.
270DATAYouareintheTREASURER'Soffice.
271DATAYouareintheGUIDANCEoffice.
272DATAYouareintheVAULT.
273DATAYouareinadarkPASSAGEWAY.
274DATAYouareinadarkPASSAGEWAY.
275DATAYouareinadarkPASSAGEWAY.Adoorleadstothewest.
276DATAYouareinadarkPASSAGEWAY.
277DATAYouareinaHALLWAY.
278DATAYouareintheschoolSTORE.
279DATAYouareintheupstairsHALLWAY.
280DATAYouareintheELEVATOR.
281DATAYouareintheBATHROOM.Thereisgraffitionawall.
282DATAYouareOUTSIDEoftheschool.
283DATAYouareintheCAFETERIA.
310DATAGotoguidance.,Gototheprincipal'soffice.,Cleanoutyourlocker.
312DATAAvoidsuspensionclass.,Usehallpasssparingly.
314DATAEng.teacherlikesLeonUrisbooks.,AllP.E.classesusenets.,Payyourdebts.
316DATAWorkontermpaper.,Recitedialogue...,Wethepeople...,QWERTY
340DATACOMPUTERSCI.,GEOMETRY,ALGEBRA,ENGLISH,HISTORY,TYPING,FRENCH,P.E.,BAND,BIOLOGY
360GRAPHICS0:SETCOLOR1,0,15:SETCOLOR2,12,0:?:?:?"WelcometoJohnHandleyHighSchool";
362?"inWinchester,Virginia.Youareabouttoembarkonajourneythroughhigh"
364?"schoolinwhichyouareseekingyourdiploma.Butbeforeyougraduateyou"
366?"mustfirstpassaminimumof6subjects.":?
367?"Ineachclassthereare3activitieswhichyoumaydoinordertopassthat";
368?"class.Ifyoudoallthree,youwillreceivean";CHR$(34);"A";CHR$(34);"inthatsubject.You"
370?"willpasswithaminimumgradeof";CHR$(34);"D";CHR$(34);"butyoushouldstriveforashigha"
372?"gradeaspossible(straightA's).":?:?"Presstobeginyouradventure";:INPUTR$:POKE752,1
420IFF8THEN?"":SETCOLOR2,0,0
430POSITION2,0:RESTORE249+S:READR$:?R$:?
440IFS=12THENC=C+1:IFC>15THENFORN=1TO500:NEXTN:GOTO2960
450IFS=12ANDC>1THEN?"Youhavebeeninsuspension":?"classfor";C;"days.":?
470FORN=1TO18:IFP(N)<>STHENNEXTN:GOTO540
480RESTORE140:?"Youcansee:":T$=""
490FORN=1TO18:READR$:IFP(N)<>STHEN520
500IFLEN(T$)+LEN(R$)>33THEN?T$:T$=""
510T$(LEN(T$)+1)=R$:T$(LEN(T$)+1)=""
520NEXTN
530?T$
540?:IFS=22THEN?"Yourcounselorsays:":?G$:POSITION2,PEEK(84)-1:?CHR$(34);:X=INT(RND(0)*10)+1
542IFS=22ANDX<8THENRESTORE314:FORN=1TOX:READR$:NEXTN:?R$;CHR$(34):GOTO550
544IFS=22THEN?"Tryto";:X=INT(RND(0)*5)+14+13*(INT(RND(0)*2)):RESTORE167:FORN=1TOX:READR$:NEXTN
545IFS=22THEN?R$;"something.";CHR$(34)
550IFS=20THEN?"Theassistantprincipalsays:":RESTORE312:X=INT(RND(0)*2)+1
551IFS=20THENFORN=1TOX:READR$:NEXTN:?CHR$(34);R$;CHR$(34)
560?:?"Possibledirections:";:NN=0
570FORN=1TO7:IFN=7THEN?V$(NN*VZ-VZ+1,NN*VZ-VZ+1);".":GOTO580
572IFDI(S,N)=0THEN580
574IFNN=0THENNN=N:GOTO580
576?V$(NN*VZ-VZ+1,NN*VZ-VZ+1);",";:NN=N
580NEXTN
590?:?S$
600IFF8THEN?:F8=0
620IFR$="GRADUATE"THEN630
622GOTO700
630IFS=18ANDF1ANDF3THEN650
632IFS=18THEN680
640?"Youmustgotothe":?"auditorium":?"forgraduation.":GOTO1350
650IFP(16)ORP(17)THEN660
652GOTO670
660?"Youmustwearyourcapandgown.":GOTO1350
670F7=1:GOTO1130
680?"Youhavenotpaidallyourfees!":GOTO1350
700IFS=15ORS=16ORS=30ORS=32THEN710
702GOTO760
710IFM<30ORP(5)=0THEN760
720IFINT(RND(0)*4)+1<4THEN760
740?:?"Theassistantprincipaljustwalkedin.Youaresuspendedbecouse"
742?"youdonothaveahallpass.":S=12:GOTO40
760IFS=33THENM2=M2+1:IFM2>5THEN?"Youarespendingtoomuchtimeoutside";:X5=76
762IFX5=76THEN?"ofschool.Youhavebeensuspended.":M2=0:S=12:X5=0:GOTO40
770M=M+1:IFF2=MTHEN?"Yougotsickonthecafeterialunchandhavetobesenttothenurse."
772IFF2=MTHENS=19:F2=0:GOTO1350
780IFP(5)=0THENM1=M1+1:IFM1>60THENP(5)=-1:?"Yourhallpassisnolongervalid.":I=I-1
790POKE752,0:X5=0:?"-->Whatwillyoudo";:PK=PEEK(84):INPUTR$:POKE752,1:L=LEN(R$):GOSUB20
791TRAP3050:POSITION39,PK:?"":POSITION2,PK-1:FORN=1TO9:?G$:NEXTN:POSITION2,PK+3
792IFLEN(R$)=1THENRESTORE167:FORV=1TO7:READT$:IFR$=T$THEN900
793IFLEN(R$)=1THENNEXTV:GOTO880
794IFL>3THENIFR$(1,4)="HINT"THEN4000
795IFR$="LOOK"THENF8=1:GOTO420
796IFL>8THENIFR$(1,9)="LISTVERB"THEN?"":SETCOLOR2,7,0:Q7=-1:XX=1:YY=5
797IFXX=1THENRESTORE170:FORN=1TO28:Q7=Q7+1:POSITIONQ7*11,YY:READR$:?R$:IFQ7=3THENYY=YY+1:Q7=-1
798IFXX=1THENNEXTN:XX=0:F8=1:GOTO40
800IFR$="GRADUATE"THEN620
810FORT=1TOL:IFR$(T,T)=""THEN830
815NEXTT
820V1$=R$:N1$=""
822IFLEN(V1$)<4THENV1$(LEN(V1$)+1)="":GOTO822
823GOTO840
830V1$=R$(1,T-1):N1$=R$(T+1,LEN(R$)):IFV1$="DO"THENV1$="DO":T=T+1
833IFLEN(V1$)<4THENV1$(LEN(V1$)+1)="":GOTO833
840IFV1$="STEAL"ORV1$="SMOKE"ORV1$="KILL"ORV1$="SELL"ORV1$="SKIP"ORV1$="SLEEP"THENX5=1
842IFV1$="HIT"ORV1$="THROW"ORV1$="SHOOT"THENX5=1
844IFX5=1ANDS=27THEN1860
846IFX5=1THEN860
850GOTO870
860?"Youhavebeensuspended":?"fortryingto";R$:S=12:F8=1:GOTO40
870FORN=1TO35:IFV1$(1,4)=V$(N*VZ-VZ+1,N*VZ-VZ+4)THEN890
875NEXTN
880IFR$<>""THEN?"Youdon'tknowhowto";R$;"."
882GOTO420
890V=N
900IFV<7THEN1010
910IFV<11THENONV-6GOTO1060,1110,1360,1130
920N2=0
930TRAP983:N1$(LEN(N1$)+1)="":FORN=1TO45:IFN1$(1,4)=N$(N*SZ-SZ+1,N*SZ-SZ+4)THENN2=N
940NEXTN
950IFV>32THEN1790
960IFV=11THEN1880
970IFV=30THEN2920
980IFN2=0ANDN1$<>""THEN?"Youdon'tknowwhat";N1$;"is.":GOTO420
983IFN2=0THEN?"Thatverbneedsanoun.":GOTO420
990ONV-10GOTO1880,2230,2040,2040,2230,2230,2730,2680,2770,2810,1660,1380,1500,1610,2430,2610,2500,2840
992ONV-28GOTO2880,2920,1980,1580
1010T=DI(S,V)
1020IFT=0THEN?"Youcan'tgothatway.":GOTO420
1030IFS=26ANDV=4ANDF4=0THEN?"Youcan't.Thedoorislocked.":GOTO420
1040S=T:F8=1:GOTO420
1060?"You'recarrying:":T=1
1070RESTORE140:FORN=1TO18:READR$:IFP(N)=0THEN?R$;"";:T=0:X5=X5+1:IFX5=4THEN?
1080NEXTN:IFT=0THEN?
1090IFTTHEN?"NOTHING"
1100GOTO420
1110GRAPHICS2:SETCOLOR4,6,0:SETCOLOR2,5,0:SETCOLOR0,1,15:SETCOLOR1,0,15:POSITION0,2
1112?#6;"HOWDOESITFEELTOBEAHIGHSCHOOL":?#6;"DROPOUT?NEXTTIMEDOYOURHOMEWORK!":GOTO2980
1130F5=0:F6=0
1140FORN=1TO10
1150Q(N)=0
1160FORW=1TO3
1170Q(N)=Q(N)+C(N,W)
1180NEXTW
1190IFQ(N)>0THENF5=F5+1
1200F6=F6+Q(N)
1210NEXTN
1220?"":SETCOLOR2,INT(RND(0)*12)+1,0:T=F6/10:IFT>3THEN?"CONGRATULATIONS!"
1221IFT>3THEN?"YOU'REONTHEHONORROLL!":?
1230?"Youhavepassed";F5;"subjects":?"withagradepointaverageof";
1232?T;:IFT=INT(T)THEN?".0":?:GOTO1237
1234?:?
1237?"YOURREPORTCARD:"
1240RESTORE340:FORN=1TO10:READR$:T$="FDCBA":T$=T$(Q(N)+1,Q(N)+1)
1250?"";R$;G$(1,15-LEN(R$));T$:NEXTN
1260?:?"Presstocontinue";:INPUTT$:?
1270IFF7THEN1280
1275GOTO1310
1280IFF5<6THEN1290
1285GOTO1300
1290?"Youhavenotcompletedenough":?"subjects.STUDYMORE!":F7=0:GOTO1350
1300?"CONGRATULATIONS.Youmeetall":?"graduationrequirements.":T=F6*2.25+10:GOTO1320
1310T=F6*2.25
1320?"Youhavecompleted";STR$(INT(T));"%ofyour":?"adventurethroughhighschool."
1330IFT=0THEN?"Youmustdovariousactivitiesineachsubjecttopass.TRYDOINGHOMEWORK!"
1340IFF7THENPRINT:GOTO2980
1350R$="":?:?"Hittocontinue";:INPUTR$:F8=1:GOTO420
1360RESTORE310:FORN=1TOINT(RND(0)*3+1):READR$:NEXTN:?R$:GOTO420
1380IFN2>18THEN1810
1390IFP(N2)=0THEN?"You'realreadycarryingit.":GOTO420
1400IFI>4THEN?"Youcan'tcarryanymore.":GOTO420
1410IFP(N2)<>STHEN?"Youdon'tseeithere.":GOTO420
1420IFN2=18THEN1430
1425GOTO1480
1430IFF9THEN1480
1440FORN=1TO3
1450IFP(N)=0THENP(N)=-1:F9=1:I=I-1:GOTO1480
1460NEXTN
1470?"Youhaven'tanymoneytopayforit.":GOTO420
1480?"O.K.":P(N2)=0:I=I+1:F8=1:FORN=1TO150:NEXTN:GOTO420
1500T=0
1510TRAP3060:IFP(N2)THEN3060
1520?"O.K.":P(N2)=S:I=I-1
1530IFN2=16ORN2=17THEN?"You'lllookfunnyat":?"graduationwithoutit.":FORN=1TO400:NEXTN
1540IFN2=9ORN2=4THEN?"HEY!Becareful!":FORN=1TO100:NEXTN
1550IFN2=15THEN?"OUCH!Rightonyourtoe.":FORN=1TO100:NEXTN
1560FORN=1TO150:NEXTN:F8=1:GOTO420
1580IFN2=18THEN1390
1590?"Youdon'thavetopurchaseit.":GOTO420
1610TRAP3030:IFN2=14ANDP(N2)=0THEN?"OH-H...thatwasbad...":F2=M+6:P(14)=-1:I=I-1:GOTO420
1620IFN2=10ANDP(N2)=0THEN?"UM-M...GOOD.":P(10)=-1:I=I-1:GOTO420
1630IFP(N2)THEN?"Butyou'renotcarryingit.":GOTO420
1640?"Youwouldn'tlikethetasteofthat!":GOTO420
1660IFN2<19ORN2>20THEN?"Thatdoesn'tmakesense.":GOTO420
1670IFN2=19THEN1680
1675GOTO1730
1680IFF1THEN?"Yourlibraryfinehas":?"alreadybeenpaid.":GOTO420
1690FORN=1TO3:IFP(N)=0THEN1710
1695NEXTN
1700?"Youdon'thaveenough":?"moneytopayit.":GOTO420
1710IFS=13THENP(N)=-1:F1=1:I=I-1:?"O.K.":GOTO420
1720GOTO1860
1730IFF3THEN?"Feehasbeenpaid.":GOTO420
1740IFS<>21THEN1860
1750IFP(2)=0THENP(2)=-1:F3=1:?"O.K.":I=I-1:GOTO420
1760IFP(3)=0THENP(3)=-1:F3=1:?"O.K.":I=I-1:GOTO420
1770GOTO1700
1790IFV=33ANDN1$(1,4)="DOOR"ANDS=26THEN1840
1791IFV=33ANDN1$(1,4)="DOOR"THEN1860
1800IFV=34ANDN2=15ANDS=26THEN1820
1801IFV=34ANDN2=15THEN1860
1805IFV=35THENIF(N2=44ORN2=45)ANDS=10THENX5=22
1807IFX5=22THEN?"Inoneofthetraysthere'sadeadfrog,andintheother,aworm.":GOTO420
1808IFV=35THEN?"Youseenothingspecial.":GOTO420
1810?"Youarenotabletodothat.":GOTO420
1820IFP(15)=0THEN?"O.K.Butyouaresuspended":?"fordestroyingschoolproperty.":S=12:F4=1:GOTO40
1830?"Youcan'tdothatyet.":GOTO420
1840IFP(7)=0THEN?"O.K.":F4=1:GOTO420
1850?"Youdon'thavethekey.":GOTO420
1860?"Nothere.":GOTO420
1880IFN2=43ANDS=32THEN?"":SETCOLOR2,0,15:SETCOLOR1,0,0:POSITION10,7:?"SHADDUPYOURFACE!"
1882IFN2=43ANDS=32THEN?"ICANCOUNTTHETIMES":?"IWASSUSPENDED!"
1883IFN2=43ANDS=32THEN?"TRYNOMIALSINMATH!!":?"ENGLISHISGREEKTOME."
1884IFN2=43ANDS=32THEN?"HOMEWORKCOMESIN3'S.":?"HIT";
1885IFN2=43ANDS=32THENINPUTR$:SETCOLOR1,0,15:F8=1:GOTO420
1890IFN2=11ANDS=4THEN1930
1893IFN2=11THEN1860
1900IFN2=0THEN?"Itisgoodforyouto";R$:?"butyoudonotreceive":?"creditforthatinclass.":GOTO420
1910IFN2=6ANDS=9THEN1960
1911IFN2=6THEN1860
1920GOTO1810
1930IFP(11)THEN1950
1940?"O.K.":C(4,1)=1:GOTO420
1950?"Howcanyoureadthe";N$(N2*SZ-SZ+1,N2*SZ):?"ifit'snotwithyou?":GOTO420
1960IFP(6)THEN1950
1970?"O.K.":C(9,2)=2:GOTO420
1980IFN2=24ANDS=1THEN2010
1981IFN2=24THEN1860
1990IFN2=27ANDS=5THEN2020
1991IFN2=27THEN1860
2000?"Youcan'tdrawthat!":GOTO420
2010?"O.K.":C(1,1)=1:GOTO420
2020?"O.K.":C(5,1)=1:GOTO420
2040IFN2=35ANDS=2THEN2180
2041IFN2=35THEN1860
2050IFN2=32ORN2=33THENIFS=2THEN2140
2051IFN2=32ORN2=33THEN2150
2060IFN2=31ANDS=7THEN2190
2061IFN2=31THEN1860
2070IFN2=12ANDP(12)=0THEN2120
2071IFN2=12THEN2110
2080IFN2=28ANDS=5THEN2200
2081IFN2=28THEN1860
2090IFN2=26ANDS=6THEN2210
2091IFN2=26THEN1860
2100GOTO1810
2110?"Youforgotyourbook.":GOTO420
2120IFS<>4THEN1860
2130?"O.K.":C(4,2)=2:GOTO420
2140?"O.K.":C(2,3)=1:GOTO420
2150IFS=7THEN2170
2160GOTO1860
2170?"C'estfait.":C(7,1)=1:GOTO420
2180?"O.K.":C(2,2)=1:GOTO420
2190?"Tresbien.":C(7,2)=2:GOTO420
2200?"O.K.":C(5,2)=1:GOTO420
2210?"O.K.":C(6,1)=2:GOTO420
2230IFP(18)THEN?"Youneedpaper.":GOTO420
2240IFN2=42THEN?"GOOD.Butwhatisthefirst":?"stepinwritingaprogram?":GOTO420
2250IFP(8)ANDP(13)THEN?"Areyouwritingwithyourfingers?":GOTO420
2260IFN2=22ANDS=10THEN2310
2261IFN2=22THEN2320
2270IFN2=34ANDS=2THEN2370
2271IFN2=34THEN1860
2280IFN2=29ANDS=5THEN2380
2281IFN2=29THEN1860
2290IFN2=25ANDS=4THEN2390
2291IFN2=25THEN1860
2300GOTO1810
2310?"O.K.":C(10,3)=1:GOTO420
2320IFS=7THEN?"C'estfini.":C(7,3)=1:GOTO420
2330IFS=3ANDP(8)THEN2350
2331IFS=3THEN2360
2340GOTO1860
2350?"Youmustusepencilinmathclass!":GOTO420
2360?"O.K.":C(3,2)=1:GOTO420
2370?"O.K.":C(2,1)=2:GOTO420
2380?"O.K.":C(5,3)=2:GOTO420
2390IFP(13)THEN2410
2400?"O.K.":C(4,3)=1:GOTO420
2410?"YoumustusepeninEnglishclass!":GOTO420
2430IFP(18)THEN?"Youneedpaper.":GOTO420
2440IFN2=18ANDS=6THEN2470
2441IFN2=18THEN1860
2450IFN2=30ANDS=6THEN2480
2451IFN2=30THEN1860
2460GOTO1810
2470?"O.K.":C(6,2)=1:GOTO420
2480?"O.K.":C(6,3)=1:GOTO420
2500IFN2=36ANDS=8THEN2550
2501IFN2=36THEN1860
2510IFN2=37ANDS=8THEN2560
2511IFN2=37THEN1860
2520IFN2=38ANDS=8THEN2570
2521IFN2=38THEN1860
2530IFN2=4ANDS=9THEN2580
2531IFN2=4THEN1860
2540GOTO1810
2550?"O.K.":C(8,1)=2:GOTO420
2551IFN2=36THEN1860
2560?"O.K.":C(8,2)=1:GOTO420
2570?"O.K.":C(8,3)=1:GOTO420
2580IFP(4)THEN?"Youforgotyourflute.":GOTO420
2590?"O.K.":C(9,1)=1:GOTO420
2610IFN2=10ANDP(10)=0ANDS<11THEN2630
2611IFN2=10ANDP(10)=0THEN2660
2620GOTO1810
2630IFINT(RND(0)*2)THEN2650
2640?"Youhavebeensuspendedfor":?"tryingtobribeyourteacher.":S=12:GOTO40
2650IFC(S,1)>0THEN?"Theapplehadaworminit!":?"Youhavebeensuspended.":I=I-1:S=12:P(10)=-1:GOTO40
2652?"Teacherthanksyou.":?"(Checkscore)":I=I-1:P(10)=-1:C(S,1)=1:GOTO420
2660?"O.K.":P(10)=-1:I=I-1:GOTO420
2680IF(N2=9ORN2=42)ANDP(9)THEN2700
2681IFN2=9ORN2=42THEN2710
2690GOTO1810
2700?"Youneedacassetteforthis.":GOTO420
2710IFS=1THEN?"O.K.":C(1,2)=1:GOTO420
2720GOTO1810
2730IF(N2=9ORN2=42)ANDP(9)THEN2700
2731IFN2=9ORN2=42THEN2750
2740GOTO1810
2750IFS=1THEN?"O.K.":C(1,3)=2:GOTO420
2760GOTO1860
2770IFN2=21ANDS=3THEN2790
2771IFN2=21THEN1860
2780GOTO1860
2790?"O.K.":C(3,1)=1:GOTO420
2810IFN2=23ANDS=3THEN2830
2811IFN2=23THEN1860
2820GOTO1860
2830?"O.K.":C(3,3)=2:GOTO420
2840IFN2=39ANDS=9THEN2860
2841IFN2=39THEN1860
2850GOTO1860
2860?"O.K.":C(9,3)=1:GOTO420
2880IFN2=40ANDS=10THEN2910
2881IFN2=40THEN1860
2890IFN2=41ANDS=10THEN2940
2891IFN2=41THEN1860
2900?"That'sweird!!!":GOTO420
2910?"O.K.":C(10,1)=2:GOTO420
2920IFS=7THEN?"Verygood!Butyoudonot":?"receivecreditforit.":GOTO420
2930GOTO1810
2940?"O.K.":C(10,2)=1:GOTO420
2960GRAPHICS2:SETCOLOR1,0,15:SETCOLOR4,5,0:SETCOLOR2,12,0:SETCOLOR0,0,15:?#6;"YOUHAVEBEENIN"
2962?#6;"SUSPENSIONCLASSFOR15DAYS!THESCHOOLHASDECIDEDTOEXPELYOU."
2980?"Doyouwanttotryagain";:INPUTR$
2990IFR$(1,1)="Y"ORR$(1,1)="y"THENRUN
2991?"BYEBYE"
2992END
3030?"Youcan'tdothat.":GOTO420
3050?"Idon'tknowwhatyoumean.":GOTO420
3060?"You'renotcarryingit.":GOTO420
4000IFL<3THEN420
4010Q8=5:IFL=4THEN?"":POSITION2,5:?"Pleaseentertheencodedhintyouwishdecrypted.":X5=1:POKE752,0
4020IFL=4THEN?:INPUTR$:?:GOSUB20:Q8=1:L=LEN(R$):IFL<3THEN420
4030FORQ7=Q8TOL:N=ASC(R$(Q7,Q7)):?CHR$(ABS(155*(N>64)-N));:NEXTQ7:?:?:IFX5=0THEN420
4040F8=1:POKE752,1:GOTO40	

• Download link 1

• Download link 1
• Download link 2
• Download link 3