Atari 8-bit Source code

0REM
1REM
9DIMA$(40),B$(30),GUESS$(30),C$(30),D$(30):TIM=1490
10GRAPHICS2+16:POSITION2,4:?#6;"PROGRAMMING":POSITION2,6:?#6;"APTITUDETEST":FORX=1TO1600:NEXTX
15FORX=15TO1STEP-0.1:SOUND0,X,X,15:NEXTX
20GRAPHICS2+32:SETCOLOR2,0,0:POKE752,1:?"WrittenandProgrammedby":?:?"ROSSSCHWARTZBERG"
21FORX=1TO1000:NEXTX
30GRAPHICS2:SETCOLOR0,0,0
31POKE756,226
90OPEN#1,4,0,"K"
100FORQ=1TO22:GOSUB500
101IFQ<=17THENONQGOSUB501,550,600,650,700,750,800,850,900,950,1000,1050,1100,1150,1200,1250,1300
102IFQ>=18THENONQ-17GOSUB1350,1400,1450,1500,1550
105POKE764,255:?"ANSWER";:INPUTGUESS$
106IFGUESS$="HELP"THEN150
107FORR=1TOGUESSES:ONRGOTO110,115,120,125
110IFGUESS$=A$THENGOTO130
112GOTO127
115IFGUESS$=B$THENGOTO130
117GOTO127
120IFGUESS$=C$THENGOTO130
122GOTO127
125IFGUESS$=D$THENGOTO130
127NEXTR
128GOTO150
130READA$:?"";A$:CORRECT=CORRECT+1:GOTO180
150?"Theansweris-"
151?A$
180FORT=1TO1000:NEXTT:NEXTQ
200DATATHAT'SRIGHT,CORRECT!,VERYGOOD,GOODGUESS,YOUWEREJUSTLUCKYONTHATONE,RIGHT!,YEP,YOU'RERIGHT!
201DATASISENOR,GREAT!,THAT'STHEONE,YOU'REPRETTYSMART!,O.K.,FINE,WEREN'TYOUINMYCLASSLASTSEMESTER?
202DATALOOKIN'GOOD,KEEPUPTHEGOODWORK!,SOFAR-SOGOOD,RIGHTON!,EXCELLENT,GOOD--ONEMORE...
203DATAITHINKYOU'VETAKENTHISTESTBEFORE!
300GRAPHICS0:?"YOUGOT";CORRECT;"OUTOF22RIGHT."
310?"THATGIVESYOU";CORRECT*100/22;"%CORRECT!"
400IFCORRECT>3THEN410
401?"":?"HAVEYOUEVERTHROWNYOURSELFTO":?"THEGROUND.....ANDMISSED?":GOTO450
410IFCORRECT>6THEN420
411?"":?"HAVEYOUEVERBLOWNYOURNOSEONLY":?"TOHAVEYOURHEADCAVEIN?":GOTO450
420IFCORRECT>9THEN425
421?"":?"DOESYOURDOGHAVEAFLATFACEFROM":?"CHASINGPARKEDCARS?":GOTO450
425IFCORRECT>12THEN428
426?"":?"HAVEYOURPARENTSTOLDYOUTHATYOUR":?"BROTHERISANONLYCHILD?":GOTO450
428IFCORRECT>15THEN431
429?"":?""
430?"YOUHAVEBEENSPOTTEDRIDINGSHOTGUN":?"ONAGARBAGETRUCK...":GOTO450
431IFCORRECT>18THEN435
432?"":?"THEREFOREYOUHAVEPROVEDYOURSELF":?"ASAHUMANBEING.":GOTO450
435IFCORRECT>21THEN?"":?"YOUHAVEANI.Q.GREATERTHANALLOF":?"I.B.M.":GOTO450
440?"":?"YOURFAMILYTREEHASBEENCLEARED!":END
450END
500GRAPHICS2:SETCOLOR0,0,0:POKE756,226:RETURN
501POSITION6,2:?#6;"":POSITION6,3:?#6;"||":POSITION6,4:?#6;"||":POSITION6,5
502?#6;"||":POSITION6,6:?#6;""
505A$="SANDBOX":B$="SANDBOX":GUESSES=2:RETURN
550POSITION8,3:?#6;"":POSITION6,4:?#6;"":POSITION7,5:?#6;""
554A$="MANOVERBOARD":GUESSES=1:RETURN
600POSITION7,3:?#6;"stand":POSITION6,4:?#6;"":POSITION9,5:?#6;""
606A$="IUNDERSTAND":GUESSES=1:RETURN
650POSITION3,4:?#6;""
651COLOR124:FORX=2TO16STEP2:PLOTX,2:DRAWTOX,6:NEXTX
653A$="READINGBETWEENTHELINES":GUESSES=1:RETURN
700POSITION8,4:?#6;"wear":POSITION7,5:?#6;"":POSITION8,6:?#6;""
705A$="LONGUNDERWEAR":B$="LONGUNDERWARE":C$="LONGUNDERWEAR":GUESSES=3:RETURN
750POKE756,224
751POSITION8,2:PUT#6,242:POSITION8,3:PUT#6,207:POSITION8,4:PUT#6,225:POSITION8,5:PUT#6,228
752POSITION8,6:PUT#6,243:POSITION7,3:PUT#6,114:POSITION9,3:PUT#6,97:PUT#6,100:PUT#6,115
753A$="CROSSROADS":B$="CROSSROADS":GUESSES=2:RETURN
800POKE756,224
801POSITION9,2:?#6;"":POSITION9,3:?#6;"o":POSITION9,4:?#6;"":POSITION9,5:?#6;""
803A$="DOWNTOWN":B$="DOWNTOWN":GUESSES=2:RETURN
850POKE756,224:POSITION7,3:?#6;"":POSITION7,4:?#6;"":POSITION7,5:?#6;"cycle"
861A$="TRICYCLE":GUESSES=1:RETURN
900GRAPHICS3:COLOR1
902FORX=1TO33STEP32
903PLOTX,5:DRAWTOX,9:PLOTX+1,5:DRAWTOX+1,9:PLOTX,12:DRAWTOX,16:PLOTX+1,12:DRAWTOX+1,16
904FORY=1TO2:PLOTX+2,Y+14:DRAWTOX+5,Y+14:NEXTY:NEXTX
905FORX=8TO27STEP19
906FORY=1TO2:PLOTX,4+Y:DRAWTOX+4,4+Y:NEXTY
907FORY=1TO2:PLOTX-1+Y,7:DRAWTOX-1+Y,9:PLOTX,9:DRAWTOX+3,9:NEXTY
908PLOTX,12:DRAWTOX+3,12:FORY=XTOX+1:PLOTY,13:DRAWTOY,16:NEXTY:FORY=15TO16:PLOTX,Y:DRAWTOX+4,Y
909NEXTY:NEXTX
910FORX=14TO24STEP10:PLOTX,5:DRAWTOX+1,5:NEXTX:FORX=15TO23STEP8:FORY=6TO7:PLOTX,Y:DRAWTOX+1,Y
911NEXTY:NEXTX
912FORX=16TO22STEP6:FORY=8TO9:PLOTX,Y:DRAWTOX+1,Y:NEXTY:NEXTX
913FORX=17TO21STEP4:FORY=12TO13:PLOTX,Y:DRAWTOX+1,Y:NEXTY:NEXTX
914FORX=14TO15:PLOT18,X:DRAWTO21,X:NEXTX:PLOT19,16:DRAWTO20,16
915A$="SPLITLEVEL":GUESSES=1:RETURN
950SETCOLOR0,2,10:POKE756,224:POSITION10,2:?#6;"0":POSITION7,3:?#6;"":POSITION9,4:?#6;"md"
951POSITION8,5:?#6;"":POSITION9,6:?#6;""
955GUESSES=3:A$="THREEDEGREESBELOWZERO":B$="3DEGREESBELOW0":C$="3DEGREESBELOWZERO":RETURN
1000POKE756,226:POSITION8,2:?#6;"":POSITION6,3:?#6;"":POSITION6,4:?#6;"||"
1010POSITION6,5:?#6;""
1020GUESSES=2:A$="NEONLIGHTS":B$="NEONLITES":RETURN
1050POSITION9,2:?#6;"":POSITION8,3:?#6;"":POSITION7,4:?#6;""
1060POSITION8,5:?#6;""
1070GUESSES=1:A$="CIRCLESUNDERTHEEYES":RETURN
1100POKE756,224:POSITION8,0:?#6;""
1110GUESSES=2:A$="HIGHCHAIR":B$="HIGHCHAIR":RETURN
1150POSITION8,4:?#6;"":POSITION8,5:?#6;""
1160GUESSES=1:A$="PARADISE":RETURN
1200SETCOLOR0,2,10:POKE756,224:POSITION9,2:?#6;"T":POSITION9,3:?#6;"O":POSITION9,4:?#6;"U"
1210POSITION9,5:?#6;"C":POSITION9,6:?#6;"H"
1230GUESSES=2:A$="TOUCHDOWN":B$="TOUCHDOWN":RETURN
1250GRAPHICS1:POSITION7,3:?#6;"GROUND":POSITION6,4:?#6;"":POSITION8,5:?#6;""
1260POSITION8,6:?#6;"feet":POSITION8,7:?#6;"FEET":POSITION8,8:?#6;"":POSITION8,9:?#6;"":POSITION8,10:?#6;"feet"
1270GUESSES=4:A$="SIXFEETUNDERGROUND":B$="SIXFEETUNDERGROUND":C$="6FEETUNDERGROUND":D$="6FEETUNDERGROUND"
1280RETURN
1300POSITION8,3:?#6;"":POSITION6,4:?#6;"":POSITION7,5:?#6;""
1310GUESSES=1:A$="MINDOVERMATTER":RETURN
1350POSITION7,5:POKE756,224:?#6;"EcLg":SETCOLOR0,2,10
1360GUESSES=2:A$="ABACKWARDSGLANCE":B$="ABACKWARDGLANCE":RETURN
1400SETCOLOR0,1,10:POKE756,224:POSITION5,5:?#6;"|"
1410GUESSES=1:A$="LIFEAFTERDEATH":RETURN
1450POKE756,224:POSITION6,5:?#6;"":GOSUBTIM:POSITION6,5:?#6;"":GOSUBTIM:POSITION6,5:?#6;""
1460GOSUBTIM:POSITION6,5:?#6;""
1470GOSUBTIM:POSITION10,3:?#6;"":POSITION10,4:?#6;"":POSITION10,5:?#6;"":POSITION10,6:?#6;""
1480GUESSES=1:A$="JUSTBETWEENYOUANDME":RETURN
1490FORTIME=1TO120:NEXTTIME:RETURN
1500POKE756,224:POSITION1,3:?#6;"":POSITION1,4:?#6;"":POSITION1,5:?#6;""
1510GUESSES=1:A$="SPACEPROGRAM":RETURN
1550POSITION8,3:POKE756,224:?#6;"":POSITION6,4:?#6;""
1560POSITION8,5:?#6;"cccc":POSITION9,6:?#6;"cc"
1570GUESSES=4:A$="G.I.OVERSEAS":B$="GIOVERSEAS":C$="G.I.OVERSEAS":D$="GIOVERSEAS":RETURN
10000STOP
20000GRAPHICS2:OPEN#1,4,0,"K:":POKE756,226
20001GET#1,A:?#6;CHR$(A);:GOTO20001	

• Download link 1

• Download link 1
• Download link 2