1 REM D


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Math Raiders 1000
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Math Raiders 1000
			
		


	
	
	


							

				

  
Download
  


Softsync, Inc.
Products: Computer Tutors: Math Raiders 1000
Developer(s): Rudolph Daniel
Date: 1982
Type: Cassette
Platform(s): TS 1000


					
				
		
		
							

				










Content









Appears On









Related Products




Computer Tutors: Math Raiders 1000
Math Raiders combines valuable math tutorial exercises with the fun of arcade games. You are the captain of the USS...








Related Articles









Related Content









Image Gallery




  
    
    
    
    






Source Code



  
   1 REM \80\80\80\80\80\80\80\03\09\9D\09\03\80\80\83\97\83\80\00\00\00\00\00\00\2A\0C\40\11\86\00\19\11\82\40\06\03\C5\06\06\1A\77\23\13\10\FA\D5\11\1B\00\19\D1\C1\10\EE\C9\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22
   2 LET RIGHT=0
   3 LET TOT=0
   6 DIM Z(4)
   7 DIM G(4)
   8 DIM Y(4)
   9 GOTO 63
  10 PRINT "\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##"
  20 FOR J=1 TO 20
  30 PRINT "\##% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % \##"
  40 NEXT J
  50 PRINT "\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##"
  60 RETURN 
  63 DIM D(5)
  64 DIM R(10)
  65 LET R(1)=4
  66 LET R(2)=6
  67 LET R(3)=7
  68 LET R(4)=8
  69 LET R(5)=9
  70 LET R(6)=11
  71 LET R(7)=12
  72 LET D(1)=2
  73 LET D(2)=3
  74 LET D(3)=5
  75 LET D(4)=10
  90 GOSUB 10
 100 PRINT AT 6,10;"%W%E%L%C%O%M%E% %H%U%M%A%N";AT 8,5;"%I% %A%M% %Y%O%U%R% %R%A%I%D%E%R% %1%0%0%0% % % % % \##\##% % % % % % % % %S%U%P%E%R%C%O%M%P%U%T%E%R% ";AT 11,6;"%I% %W%I%L%L% %H%E%L%P% %Y%O%U% %I%N% %Y%O%U%R% % \##\##% %M%I%S%S%I%O%N% %T%O%D%A%Y%."
 110 PRINT AT 17,3;"%P%L%E%A%S%E% %E%N%T%E%R% %Y%O%U%R% %N%A%M%E"
 120 INPUT N$
 125 PRINT AT 0,0;
 130 GOSUB 10
 131 FOR J=1 TO LEN N$
 132 LET N$(J)=CHR$ (CODE N$(J)+128)
 133 NEXT J
 135 PRINT AT 2,11;"%S%H%I%P%S% %L%O%G"
 140 PRINT AT 4,3;"%S%T%A%R% %D%A%T%E%-% %3%4%7%.%6%5%4"
 150 PRINT AT 6,3;"%C%A%P%T%A%I%N%-% ";N$
 160 PRINT AT 8,3;"%M%I%S%S%I%O%N% % %-% %T%O% %P%R%O%T%E%C%T% %T%H%E% % % \##\##% % % % % % % % % % % % % %P%L%A%N%E%T% %E%A%R%T%H"
 165 PRINT AT 11,3;"%S%H%I%P% % % %-% %U%.%S%.%S%.% %R%A%I%D%E%R% %1%0%0%0"
 170 PRINT AT 17,3;"%P%R%E%S%S% %E%N%T%E%R% ";N$
 171 INPUT A$
 172 PRINT AT 0,0;
 173 GOSUB 10
 174 PRINT AT 2,12;"%O%B%J%E%C%T";AT 5,4;"%T%O% %D%E%S%T%R%O%Y% %T%H%E% %I%N%V%A%D%E%R%S% %B%Y";AT 7,3;"%A%N%S%W%E%R%I%N%G% %T%H%E% %M%A%T%H% %P%R%O%B%L%E%M%S";AT 9,3;"%C%O%R%R%E%C%T%L%Y%.% % %I%F% %Y%O%U% %D%E%S%T%R%O%Y% ";AT 11,3;"%T%H%E% %W%A%V%E% %O%F% %9% %I%N%V%A%D%E%R%S% %Y%O%U";AT 13,3;"%W%I%L%L% %B%E% %P%R%O%M%O%T%E%D% %T%O% %A%D%M%I%R%A%L"
 175 PRINT AT 17,3;"%G%O%O%D% %L%U%C%K% %C%A%P%T%.% ";N$;AT 19,3;"%P%R%E%S%S% %E%N%T%E%R"
 180 INPUT A$
 190 GOTO 500
 200 PRINT AT 0,0;
 201 GOSUB 10
 210 PRINT AT 3,8;"%C%H%O%O%S%E% %W%E%A%P%O%N";AT 6,3;"%1% %-% %A%D%D%I%T%I%O%N";AT 8,3;"%2% %-% %S%U%B%T%R%A%C%T%I%O%N";AT 12,3;"%4% %-% %D%I%V%I%S%I%O%N";AT 10,3;"%3% %-% %M%U%L%T%I%P%L%I%C%A%T%I%O%N"
 220 PRINT AT 17,3;"%E%N%T%E%R% %N%U%M%B%E%R% ";N$
 230 INPUT T
 240 IF T>4 THEN GOTO 230
 250 RETURN 
 300 PRINT AT 0,0;
 301 GOSUB 10
 310 PRINT AT 5,9;"%C%H%O%O%S%E% %L%E%V%E%L";AT 8,4;"%1% %-% %E%A%S%Y";AT 10,4;"%2% %-% %A% %L%I%T%T%L%E% %H%A%R%D%E%R"
 320 PRINT AT 17,3;"%E%N%T%E%R% %N%U%M%B%E%R% ";N$
 330 INPUT L
 340 IF L>2 THEN GOTO 330
 350 RETURN 
 500 LET T0T=0
 505 GOSUB 200
 510 GOSUB 300
 520 GOSUB T*100+1000
 530 STOP 
1100 REM %A%D%D%I%T%I%O%N
1110 LET Y$=STR$ (INT (RND*(25*L))+10*L)
1115 LET Y=VAL Y$
1120 LET Z$=STR$ (INT (RND*(25*L))+10*L)
1121 LET Y$(1)=CHR$ (CODE Y$(1)+128)
1122 IF LEN Y$>=2 THEN LET Y$(2)=CHR$ (CODE Y$(2)+128)
1123 LET Z=VAL Z$
1124 LET Z$(1)=CHR$ (CODE Z$(1)+128)
1125 IF LEN Z$>=2 THEN LET Z$(2)=CHR$ (CODE Z$(2)+128)
1130 PRINT AT 0,0;
1140 GOSUB 10
1150 GOSUB 5000
1160 PRINT AT 9,13;Y$;AT 10,10;"% %+% ";AT 10,13+LEN Y$-LEN Z$;Z$;AT 11,10;"%-%-%-%-%-%-%-"
1170 PRINT AT 17,3;"%E%N%T%E%R% %Y%O%U%R% %A%N%S%W%E%R"
1180 INPUT A
1181 PRINT AT 12,13+LEN Y$-LEN STR$ A;A
1182 LET C$=STR$ Y+" + "+STR$ Z+" = "+STR$ (Y+Z)
1185 IF Y+Z=A THEN LET RIGHT=1
1186 IF Y+Z<>A THEN LET RIGHT=0
1190 GOTO 6000
1200 REM %S%U%B%T%R%A%C%T%I%O%N
1205 LET Y$=STR$ (INT (RND*(80*L))+20)
1210 LET Y=VAL Y$
1220 LET Z$=STR$ (INT (RND*Y)+1)
1230 IF Y-VAL Z$<6 AND L=2 THEN GOTO 1220
1235 LET Z=VAL Z$
1240 LET Y$(1)=CHR$ (CODE Y$(1)+128)
1241 IF LEN Y$>=2 THEN LET Y$(2)=CHR$ (CODE Y$(2)+128)
1242 LET Z$(1)=CHR$ (CODE Z$(1)+128)
1243 IF LEN Z$>=2 THEN LET Z$(2)=CHR$ (CODE Z$(2)+128)
1244 IF LEN Z$>=3 THEN LET Z$(3)=CHR$ (CODE Z$(3)+128)
1245 PRINT AT 0,0;
1246 GOSUB 10
1247 IF LEN Y$>=3 THEN LET Y$(3)=CHR$ (CODE Y$(3)+128)
1248 GOSUB 5000
1250 PRINT AT 9,13;Y$;AT 10,10;"% %-% ";AT 10,13+LEN Y$-LEN Z$;Z$;AT 11,10;"%-%-%-%-%-%-%-"
1260 PRINT AT 17,3;"%E%N%T%E%R% %A%N%S%W%E%R"
1265 INPUT A
1266 PRINT AT 12,13+LEN Y$-(LEN STR$ A);A
1267 LET C$=STR$ Y+" - "+STR$ Z+" = "+STR$ (Y-Z)
1270 IF Y-Z<>A THEN LET RIGHT=0
1271 IF Y-Z=A THEN LET RIGHT=1
1280 GOTO 6000
1300 REM %M%U%L%T%I%P%L%I%C%A%T%I%O%N
1303 IF L=1 THEN GOTO 1310
1305 LET Y$=STR$ (R(INT (RND*7)+1))
1306 LET Z$=STR$ (INT (RND*10)+7)
1307 GOTO 1320
1310 LET Y$=STR$ (INT (RND*11)+2)
1315 LET Z$=STR$ (D(INT (RND*4)+1))
1320 LET Y=VAL Y$
1322 LET Z=VAL Z$
1325 LET Y$(1)=CHR$ (CODE Y$(1)+128)
1326 IF LEN Y$>=2 THEN LET Y$(2)=CHR$ (CODE Y$(2)+128)
1328 LET Z$(1)=CHR$ (CODE Z$(1)+128)
1330 IF LEN Z$>=2 THEN LET Z$(2)=CHR$ (CODE Z$(2)+128)
1340 PRINT AT 0,0;
1341 GOSUB 10
1342 GOSUB 5000
1344 PRINT AT 9,13;Y$;AT 10,10;"% %X% ";Z$;AT 11,10;"%-%-%-%-%-%-%-"
1346 PRINT AT 17,3;"%E%N%T%E%R% %A%N%S%W%E%R"
1347 INPUT A
1348 PRINT AT 12,13+LEN Y$-LEN STR$ A;A
1349 LET C$=STR$ Y+" X "+STR$ Z+" = "+STR$ (Y*Z)
1350 IF A<>Y*Z THEN LET RIGHT=0
1352 IF A=Y*Z THEN LET RIGHT=1
1353 IF A<>Y*Z THEN LET RIGHT=0
1360 GOTO 6000
1400 LET Y$=STR$ (R(INT (RND*7)+1))
1405 LET Z$=STR$ ((INT (RND*11)+6))
1410 IF L=1 THEN LET Z$=STR$ (D(INT (RND*4)+1))
1415 LET Y=VAL Y$
1416 LET Z=VAL Z$
1417 LET G$=STR$ (Y*Z)
1418 LET G$(1)=CHR$ (CODE G$(1)+128)
1419 IF LEN G$>=2 THEN LET G$(2)=CHR$ (CODE G$(2)+128)
1420 IF LEN G$>=3 THEN LET G$(3)=CHR$ (CODE G$(3)+128)
1421 LET Y$(1)=CHR$ (CODE Y$(1)+128)
1422 IF LEN Y$>=2 THEN LET Y$(2)=CHR$ (CODE Y$(2)+128)
1423 PRINT AT 0,0;
1424 GOSUB 10
1430 GOSUB 5000
1440 PRINT AT 9,13;G$;"% %/% ";Y$;"% %=%?"
1442 PRINT AT 17,3;"%E%N%T%E%R% %A%N%S%W%E%R% ";N$
1445 INPUT A
1446 PRINT AT 9,18+LEN G$+LEN Y$;"% ";A
1447 LET C$=STR$ (Z*Y)+" / "+STR$ Y+" = "+STR$ Z
1448 IF A=Z THEN LET RIGHT=1
1449 IF A<>Z THEN LET RIGHT=0
1450 GOTO 6000
5000 REM %I%N%T%R%U%D%E%R% %A%L%E%R%T
5010 FOR J=1 TO 10
5020 PRINT AT 3,9;"%I%N%T%R%U%D%E%R% %A%L%E%R%T";AT 3,9;"INTRUDER ALERT"
5022 NEXT J
5024 FOR J=1 TO 24
5026 LET F=USR 16538
5028 POKE 16542,134+J
5030 NEXT J
5032 POKE 16542,134
5033 PRINT AT 5,25;"% % % % % ";AT 6,25;"% % % % % "
5040 PRINT AT 6,4;"%C%O%O%R%D%I%N%A%T%E% %I%S% %A%N%S%W%E%R% %:"
5045 PRINT AT 9,3;"%W%H%A%T% %I%S%:"
5050 RETURN 
6000 REM %R%M%D%A%N%I%E%L
6005 PRINT AT 0,0;
6010 GOSUB 10
6020 PRINT AT 18,1;"\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##"
6030 FOR J=1 TO 14
6040 LET F=USR 16538
6050 POKE 16542,134+J
6060 NEXT J
6070 POKE 16542,134
6080 PRINT AT 19,1;"      SENSORS LOCKED ON       "
6085 PRINT AT 20,16;"               "
6090 PRINT AT 20,1;"       COORDINATE ";A
6100 POKE 16521,3
6101 POKE 16522,9
6102 POKE 16523,157
6103 POKE 16524,9
6104 POKE 16525,3
6105 POKE 16528,131
6106 POKE 16529,151
6107 POKE 16530,131
6108 POKE 16542,142
6109 POKE 16543,1
6115 FOR J=1 TO 14
6118 LET F=USR 16538
6120 POKE 16542,J+142
6125 NEXT J
6126 POKE 16542,134
6127 POKE 16543,0
6140 PRINT AT 19,1;" MISSILE FIXED ON COORDINATE  "
6150 REM PAUSE
6160 PRINT AT 20,2;"      PRESS 0 TO FIRE    "
6170 LET Q$=INKEY$
6180 IF Q$<>"0" THEN GOTO 6170
6200 IF RIGHT=1 THEN LET TOT=TOT+1
6205 LET Q=5
6210 IF RIGHT=1 THEN LET Q=8
6230 FOR J=1 TO Q
6240 PRINT AT 14-J,17;"%1"
6241 PRINT AT 14-J,17;"% "
6250 NEXT J
6300 IF RIGHT=0 THEN GOTO 7000
6310 FOR J=15 TO 20
6320 PRINT AT 5,J;"\ .";AT 6,J;"\:'";AT 5,J;"% ";AT 6,J;"% "
6330 NEXT J
6350 PRINT AT 5,3;"%T%H%A%T% %W%A%S% %A% %C%O%R%R%E%C%T% %A%N%S%W%E%R"
6360 PRINT AT 8,3;"%I%N%V%A%D%E%R%S% %D%E%S%T%R%O%Y%E%D% %=% ";CHR$ (TOT+156)
6370 PRINT AT 16,3;"%P%R%E%S%S% %E%N%T%E%R% %C%A%P%T%.% ";N$
6380 INPUT A$
6382 GOSUB 9000
6386 IF TOT<9 THEN GOTO 520
6390 GOTO 8000
7000 FOR J=6 TO 13
7010 PRINT AT J,17;"%*";AT J,17;"% "
7020 NEXT J
7030 PRINT AT 12,19;"%O%H% %N%O%O%O%O"
7031 FOR J=15 TO 20
7032 PRINT AT 13,J;"\':";AT 13,J;"% ";AT 14,J;"\:'";AT 14,J;"% "
7034 NEXT J
7035 PRINT AT 12,19;"% % % % % % % % "
7039 PRINT AT 20,7;"                   "
7040 PRINT AT 19,2;"     THE CORRECT ANSWER      "
7041 PRINT AT 20,15;"                "
7042 PRINT AT 20,4;"     ";C$
7050 FOR J=1 TO 50
7055 NEXT J
7060 FOR J=15 TO 20
7067 PRINT AT 13,J;"% ";AT 14,J;"% "
7070 NEXT J
7074 GOSUB 9000
7080 LET P=148
7081 POKE 16542,P
7090 FOR J=5 TO 17
7095 LET F=USR 16538
7105 LET P1=INT (P/256)
7106 LET P2=((P/256)-P1)*256
7107 LET P=P+33
7110 POKE 16542,P2
7111 POKE 16543,P1
7120 NEXT J
7200 GOSUB 9000
7210 PRINT AT 5,6;"%T%H%E% %I%N%V%A%D%E%R% %H%A%S% %L%A%N%D%E%D"
7300 FOR J=1 TO 25
7400 NEXT J
7420 PRINT AT 0,0;
7440 GOSUB 10
7450 GOTO 9400
8000 PRINT AT 0,0;
8001 GOSUB 10
8003 PRINT AT 4,9;"%C%O%N%G%R%A%T%U%L%A%T%I%O%N%S"
8004 PRINT AT 7,3;"%Y%O%U% %A%R%E% %P%R%O%M%O%T%E%D% %T%O% %A%D%M%I%R%A%L"
8005 PRINT AT 10,6;"%T%H%E% %P%E%O%P%L%E% %T%H%A%N%K% %Y%O%U"
8009 PRINT AT 12,14;"%A%N%D"
8010 PRINT AT 15,4;"%T%H%E% %S%T%A%R% %C%O%U%N%C%I%L% %P%R%E%S%E%N%T%S"
8011 PRINT AT 17,6;"%Y%O%U% %T%H%I%S% %C%E%R%T%I%F%I%C%A%T%E"
8020 FOR J=1 TO 35
8030 NEXT J
8040 PRINT AT 0,0;
8050 GOSUB 10
8051 PRINT AT 16,3;"%I%S% %A% %P%R%I%N%T%E%R% %A%T%T%A%C%H%E%D%?";AT 18,3;"%E%N%T%E%R% %Y%E%S% %O%R% %N%O"
8052 INPUT L$
8053 PRINT AT 0,0;
8054 GOSUB 10
8055 PRINT AT 1,8;"T.S. RAIDER 1000"
8060 PRINT AT 4,6;"%P%R%O%M%O%T%I%O%N% %C%E%R%T%I%F%I%C%A%T%E"
8070 PRINT AT 7,3;"%T%H%I%S% %I%S% %P%R%O%O%F% %T%H%A%T% ";N$;AT 9,3;"%H%A%S% %S%A%V%E%D% %T%H%E% %E%A%R%T%H% %A%N%D% %I%S";AT 11,3;"%P%R%O%M%O%T%E%D% %T%O% %A%D%M%I%R%A%L%.";AT 17,12;"%U%N%I%T%E%D% %S%T%A%R% %C%O%U%N%C%I%L"
8080 PRINT AT 15,13;"%C%O%M%M%A%N%D%E%R% %R% %D%A%N%I%E%L"
8090 IF L$="YES" THEN COPY 
8100 FOR J=1 TO 55
8125 NEXT J
8200 PRINT AT 0,0;
8300 GOSUB 10
8400 GOTO 9400
8999 STOP 
9000 POKE 16521,137
9002 POKE 16522,136
9004 POKE 16523,138
9006 POKE 16524,136
9008 POKE 16525,137
9010 POKE 16528,138
9012 POKE 16529,151
9014 POKE 16530,138
9016 POKE 16542,134
9018 POKE 16543,0
9020 PRINT AT 0,0;
9024 RETURN 
9400 PRINT AT 4,3;"%D%O% %Y%O%U% %W%I%S%H% %T%O% "
9420 PRINT AT 7,5;"%1% %-% %P%L%A%Y% %A%G%A%I%N";AT 9,5;"%2% %-% %C%H%A%N%G%E% %W%E%A%P%O%N";AT 11,5;"%3% %-% %C%H%A%N%G%E% %L%E%V%E%L";AT 13,5;"%4% %-% %E%X%I%T% %P%R%O%G%R%A%M"
9430 PRINT AT 18,3;"%E%N%T%E%R% %N%U%M%B%E%R"
9440 INPUT F
9450 IF F>4 THEN GOTO 9400
9460 IF F=2 THEN GOSUB 200
9470 IF F=3 THEN GOSUB 300
9480 LET TOT=0
9490 IF F=1 THEN GOTO 520
9495 IF F=4 THEN STOP 
9500 PRINT AT 0,0;
9510 GOSUB 10
9520 GOTO 9400
9800 SAVE "MAT%H"
9900 PRINT AT 0,0;
9910 GOSUB 10
9920 PRINT AT 8,11;"%M%A%T%H% %T%U%T%O%R";AT 10,5;"%(%C%)%1%9%8%2% %R%U%D%O%L%P%H% %D%A%N%I%E%L"
9930 PAUSE 240
9940 PRINT AT 0,0;
9949 RUN 


					
				
			



						

				


Tags


Archived Media, Downloadable, Softsync, TS 1000




People



    Rudolph Daniel



					
				


			

			
		
	



	
 
	


	







		Scroll to Top























			
				


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Math Raiders 1000
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Math Raiders 1000
			
		


	
	
	


							

				

  
Download
  


Softsync, Inc.
Products: Computer Tutors: Math Raiders 1000
Developer(s): Rudolph Daniel
Date: 1982
Type: Cassette
Platform(s): TS 1000


					
				
		
		
							

				










Content









Appears On









Related Products




Computer Tutors: Math Raiders 1000
Math Raiders combines valuable math tutorial exercises with the fun of arcade games. You are the captain of the USS...








Related Articles









Related Content









Image Gallery




  
    
    
    
    






Source Code



  
   1 REM \80\80\80\80\80\80\80\03\09\9D\09\03\80\80\83\97\83\80\00\00\00\00\00\00\2A\0C\40\11\86\00\19\11\82\40\06\03\C5\06\06\1A\77\23\13\10\FA\D5\11\1B\00\19\D1\C1\10\EE\C9\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22
   2 LET RIGHT=0
   3 LET TOT=0
   6 DIM Z(4)
   7 DIM G(4)
   8 DIM Y(4)
   9 GOTO 63
  10 PRINT "\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##"
  20 FOR J=1 TO 20
  30 PRINT "\##% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % \##"
  40 NEXT J
  50 PRINT "\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##"
  60 RETURN 
  63 DIM D(5)
  64 DIM R(10)
  65 LET R(1)=4
  66 LET R(2)=6
  67 LET R(3)=7
  68 LET R(4)=8
  69 LET R(5)=9
  70 LET R(6)=11
  71 LET R(7)=12
  72 LET D(1)=2
  73 LET D(2)=3
  74 LET D(3)=5
  75 LET D(4)=10
  90 GOSUB 10
 100 PRINT AT 6,10;"%W%E%L%C%O%M%E% %H%U%M%A%N";AT 8,5;"%I% %A%M% %Y%O%U%R% %R%A%I%D%E%R% %1%0%0%0% % % % % \##\##% % % % % % % % %S%U%P%E%R%C%O%M%P%U%T%E%R% ";AT 11,6;"%I% %W%I%L%L% %H%E%L%P% %Y%O%U% %I%N% %Y%O%U%R% % \##\##% %M%I%S%S%I%O%N% %T%O%D%A%Y%."
 110 PRINT AT 17,3;"%P%L%E%A%S%E% %E%N%T%E%R% %Y%O%U%R% %N%A%M%E"
 120 INPUT N$
 125 PRINT AT 0,0;
 130 GOSUB 10
 131 FOR J=1 TO LEN N$
 132 LET N$(J)=CHR$ (CODE N$(J)+128)
 133 NEXT J
 135 PRINT AT 2,11;"%S%H%I%P%S% %L%O%G"
 140 PRINT AT 4,3;"%S%T%A%R% %D%A%T%E%-% %3%4%7%.%6%5%4"
 150 PRINT AT 6,3;"%C%A%P%T%A%I%N%-% ";N$
 160 PRINT AT 8,3;"%M%I%S%S%I%O%N% % %-% %T%O% %P%R%O%T%E%C%T% %T%H%E% % % \##\##% % % % % % % % % % % % % %P%L%A%N%E%T% %E%A%R%T%H"
 165 PRINT AT 11,3;"%S%H%I%P% % % %-% %U%.%S%.%S%.% %R%A%I%D%E%R% %1%0%0%0"
 170 PRINT AT 17,3;"%P%R%E%S%S% %E%N%T%E%R% ";N$
 171 INPUT A$
 172 PRINT AT 0,0;
 173 GOSUB 10
 174 PRINT AT 2,12;"%O%B%J%E%C%T";AT 5,4;"%T%O% %D%E%S%T%R%O%Y% %T%H%E% %I%N%V%A%D%E%R%S% %B%Y";AT 7,3;"%A%N%S%W%E%R%I%N%G% %T%H%E% %M%A%T%H% %P%R%O%B%L%E%M%S";AT 9,3;"%C%O%R%R%E%C%T%L%Y%.% % %I%F% %Y%O%U% %D%E%S%T%R%O%Y% ";AT 11,3;"%T%H%E% %W%A%V%E% %O%F% %9% %I%N%V%A%D%E%R%S% %Y%O%U";AT 13,3;"%W%I%L%L% %B%E% %P%R%O%M%O%T%E%D% %T%O% %A%D%M%I%R%A%L"
 175 PRINT AT 17,3;"%G%O%O%D% %L%U%C%K% %C%A%P%T%.% ";N$;AT 19,3;"%P%R%E%S%S% %E%N%T%E%R"
 180 INPUT A$
 190 GOTO 500
 200 PRINT AT 0,0;
 201 GOSUB 10
 210 PRINT AT 3,8;"%C%H%O%O%S%E% %W%E%A%P%O%N";AT 6,3;"%1% %-% %A%D%D%I%T%I%O%N";AT 8,3;"%2% %-% %S%U%B%T%R%A%C%T%I%O%N";AT 12,3;"%4% %-% %D%I%V%I%S%I%O%N";AT 10,3;"%3% %-% %M%U%L%T%I%P%L%I%C%A%T%I%O%N"
 220 PRINT AT 17,3;"%E%N%T%E%R% %N%U%M%B%E%R% ";N$
 230 INPUT T
 240 IF T>4 THEN GOTO 230
 250 RETURN 
 300 PRINT AT 0,0;
 301 GOSUB 10
 310 PRINT AT 5,9;"%C%H%O%O%S%E% %L%E%V%E%L";AT 8,4;"%1% %-% %E%A%S%Y";AT 10,4;"%2% %-% %A% %L%I%T%T%L%E% %H%A%R%D%E%R"
 320 PRINT AT 17,3;"%E%N%T%E%R% %N%U%M%B%E%R% ";N$
 330 INPUT L
 340 IF L>2 THEN GOTO 330
 350 RETURN 
 500 LET T0T=0
 505 GOSUB 200
 510 GOSUB 300
 520 GOSUB T*100+1000
 530 STOP 
1100 REM %A%D%D%I%T%I%O%N
1110 LET Y$=STR$ (INT (RND*(25*L))+10*L)
1115 LET Y=VAL Y$
1120 LET Z$=STR$ (INT (RND*(25*L))+10*L)
1121 LET Y$(1)=CHR$ (CODE Y$(1)+128)
1122 IF LEN Y$>=2 THEN LET Y$(2)=CHR$ (CODE Y$(2)+128)
1123 LET Z=VAL Z$
1124 LET Z$(1)=CHR$ (CODE Z$(1)+128)
1125 IF LEN Z$>=2 THEN LET Z$(2)=CHR$ (CODE Z$(2)+128)
1130 PRINT AT 0,0;
1140 GOSUB 10
1150 GOSUB 5000
1160 PRINT AT 9,13;Y$;AT 10,10;"% %+% ";AT 10,13+LEN Y$-LEN Z$;Z$;AT 11,10;"%-%-%-%-%-%-%-"
1170 PRINT AT 17,3;"%E%N%T%E%R% %Y%O%U%R% %A%N%S%W%E%R"
1180 INPUT A
1181 PRINT AT 12,13+LEN Y$-LEN STR$ A;A
1182 LET C$=STR$ Y+" + "+STR$ Z+" = "+STR$ (Y+Z)
1185 IF Y+Z=A THEN LET RIGHT=1
1186 IF Y+Z<>A THEN LET RIGHT=0
1190 GOTO 6000
1200 REM %S%U%B%T%R%A%C%T%I%O%N
1205 LET Y$=STR$ (INT (RND*(80*L))+20)
1210 LET Y=VAL Y$
1220 LET Z$=STR$ (INT (RND*Y)+1)
1230 IF Y-VAL Z$<6 AND L=2 THEN GOTO 1220
1235 LET Z=VAL Z$
1240 LET Y$(1)=CHR$ (CODE Y$(1)+128)
1241 IF LEN Y$>=2 THEN LET Y$(2)=CHR$ (CODE Y$(2)+128)
1242 LET Z$(1)=CHR$ (CODE Z$(1)+128)
1243 IF LEN Z$>=2 THEN LET Z$(2)=CHR$ (CODE Z$(2)+128)
1244 IF LEN Z$>=3 THEN LET Z$(3)=CHR$ (CODE Z$(3)+128)
1245 PRINT AT 0,0;
1246 GOSUB 10
1247 IF LEN Y$>=3 THEN LET Y$(3)=CHR$ (CODE Y$(3)+128)
1248 GOSUB 5000
1250 PRINT AT 9,13;Y$;AT 10,10;"% %-% ";AT 10,13+LEN Y$-LEN Z$;Z$;AT 11,10;"%-%-%-%-%-%-%-"
1260 PRINT AT 17,3;"%E%N%T%E%R% %A%N%S%W%E%R"
1265 INPUT A
1266 PRINT AT 12,13+LEN Y$-(LEN STR$ A);A
1267 LET C$=STR$ Y+" - "+STR$ Z+" = "+STR$ (Y-Z)
1270 IF Y-Z<>A THEN LET RIGHT=0
1271 IF Y-Z=A THEN LET RIGHT=1
1280 GOTO 6000
1300 REM %M%U%L%T%I%P%L%I%C%A%T%I%O%N
1303 IF L=1 THEN GOTO 1310
1305 LET Y$=STR$ (R(INT (RND*7)+1))
1306 LET Z$=STR$ (INT (RND*10)+7)
1307 GOTO 1320
1310 LET Y$=STR$ (INT (RND*11)+2)
1315 LET Z$=STR$ (D(INT (RND*4)+1))
1320 LET Y=VAL Y$
1322 LET Z=VAL Z$
1325 LET Y$(1)=CHR$ (CODE Y$(1)+128)
1326 IF LEN Y$>=2 THEN LET Y$(2)=CHR$ (CODE Y$(2)+128)
1328 LET Z$(1)=CHR$ (CODE Z$(1)+128)
1330 IF LEN Z$>=2 THEN LET Z$(2)=CHR$ (CODE Z$(2)+128)
1340 PRINT AT 0,0;
1341 GOSUB 10
1342 GOSUB 5000
1344 PRINT AT 9,13;Y$;AT 10,10;"% %X% ";Z$;AT 11,10;"%-%-%-%-%-%-%-"
1346 PRINT AT 17,3;"%E%N%T%E%R% %A%N%S%W%E%R"
1347 INPUT A
1348 PRINT AT 12,13+LEN Y$-LEN STR$ A;A
1349 LET C$=STR$ Y+" X "+STR$ Z+" = "+STR$ (Y*Z)
1350 IF A<>Y*Z THEN LET RIGHT=0
1352 IF A=Y*Z THEN LET RIGHT=1
1353 IF A<>Y*Z THEN LET RIGHT=0
1360 GOTO 6000
1400 LET Y$=STR$ (R(INT (RND*7)+1))
1405 LET Z$=STR$ ((INT (RND*11)+6))
1410 IF L=1 THEN LET Z$=STR$ (D(INT (RND*4)+1))
1415 LET Y=VAL Y$
1416 LET Z=VAL Z$
1417 LET G$=STR$ (Y*Z)
1418 LET G$(1)=CHR$ (CODE G$(1)+128)
1419 IF LEN G$>=2 THEN LET G$(2)=CHR$ (CODE G$(2)+128)
1420 IF LEN G$>=3 THEN LET G$(3)=CHR$ (CODE G$(3)+128)
1421 LET Y$(1)=CHR$ (CODE Y$(1)+128)
1422 IF LEN Y$>=2 THEN LET Y$(2)=CHR$ (CODE Y$(2)+128)
1423 PRINT AT 0,0;
1424 GOSUB 10
1430 GOSUB 5000
1440 PRINT AT 9,13;G$;"% %/% ";Y$;"% %=%?"
1442 PRINT AT 17,3;"%E%N%T%E%R% %A%N%S%W%E%R% ";N$
1445 INPUT A
1446 PRINT AT 9,18+LEN G$+LEN Y$;"% ";A
1447 LET C$=STR$ (Z*Y)+" / "+STR$ Y+" = "+STR$ Z
1448 IF A=Z THEN LET RIGHT=1
1449 IF A<>Z THEN LET RIGHT=0
1450 GOTO 6000
5000 REM %I%N%T%R%U%D%E%R% %A%L%E%R%T
5010 FOR J=1 TO 10
5020 PRINT AT 3,9;"%I%N%T%R%U%D%E%R% %A%L%E%R%T";AT 3,9;"INTRUDER ALERT"
5022 NEXT J
5024 FOR J=1 TO 24
5026 LET F=USR 16538
5028 POKE 16542,134+J
5030 NEXT J
5032 POKE 16542,134
5033 PRINT AT 5,25;"% % % % % ";AT 6,25;"% % % % % "
5040 PRINT AT 6,4;"%C%O%O%R%D%I%N%A%T%E% %I%S% %A%N%S%W%E%R% %:"
5045 PRINT AT 9,3;"%W%H%A%T% %I%S%:"
5050 RETURN 
6000 REM %R%M%D%A%N%I%E%L
6005 PRINT AT 0,0;
6010 GOSUB 10
6020 PRINT AT 18,1;"\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##"
6030 FOR J=1 TO 14
6040 LET F=USR 16538
6050 POKE 16542,134+J
6060 NEXT J
6070 POKE 16542,134
6080 PRINT AT 19,1;"      SENSORS LOCKED ON       "
6085 PRINT AT 20,16;"               "
6090 PRINT AT 20,1;"       COORDINATE ";A
6100 POKE 16521,3
6101 POKE 16522,9
6102 POKE 16523,157
6103 POKE 16524,9
6104 POKE 16525,3
6105 POKE 16528,131
6106 POKE 16529,151
6107 POKE 16530,131
6108 POKE 16542,142
6109 POKE 16543,1
6115 FOR J=1 TO 14
6118 LET F=USR 16538
6120 POKE 16542,J+142
6125 NEXT J
6126 POKE 16542,134
6127 POKE 16543,0
6140 PRINT AT 19,1;" MISSILE FIXED ON COORDINATE  "
6150 REM PAUSE
6160 PRINT AT 20,2;"      PRESS 0 TO FIRE    "
6170 LET Q$=INKEY$
6180 IF Q$<>"0" THEN GOTO 6170
6200 IF RIGHT=1 THEN LET TOT=TOT+1
6205 LET Q=5
6210 IF RIGHT=1 THEN LET Q=8
6230 FOR J=1 TO Q
6240 PRINT AT 14-J,17;"%1"
6241 PRINT AT 14-J,17;"% "
6250 NEXT J
6300 IF RIGHT=0 THEN GOTO 7000
6310 FOR J=15 TO 20
6320 PRINT AT 5,J;"\ .";AT 6,J;"\:'";AT 5,J;"% ";AT 6,J;"% "
6330 NEXT J
6350 PRINT AT 5,3;"%T%H%A%T% %W%A%S% %A% %C%O%R%R%E%C%T% %A%N%S%W%E%R"
6360 PRINT AT 8,3;"%I%N%V%A%D%E%R%S% %D%E%S%T%R%O%Y%E%D% %=% ";CHR$ (TOT+156)
6370 PRINT AT 16,3;"%P%R%E%S%S% %E%N%T%E%R% %C%A%P%T%.% ";N$
6380 INPUT A$
6382 GOSUB 9000
6386 IF TOT<9 THEN GOTO 520
6390 GOTO 8000
7000 FOR J=6 TO 13
7010 PRINT AT J,17;"%*";AT J,17;"% "
7020 NEXT J
7030 PRINT AT 12,19;"%O%H% %N%O%O%O%O"
7031 FOR J=15 TO 20
7032 PRINT AT 13,J;"\':";AT 13,J;"% ";AT 14,J;"\:'";AT 14,J;"% "
7034 NEXT J
7035 PRINT AT 12,19;"% % % % % % % % "
7039 PRINT AT 20,7;"                   "
7040 PRINT AT 19,2;"     THE CORRECT ANSWER      "
7041 PRINT AT 20,15;"                "
7042 PRINT AT 20,4;"     ";C$
7050 FOR J=1 TO 50
7055 NEXT J
7060 FOR J=15 TO 20
7067 PRINT AT 13,J;"% ";AT 14,J;"% "
7070 NEXT J
7074 GOSUB 9000
7080 LET P=148
7081 POKE 16542,P
7090 FOR J=5 TO 17
7095 LET F=USR 16538
7105 LET P1=INT (P/256)
7106 LET P2=((P/256)-P1)*256
7107 LET P=P+33
7110 POKE 16542,P2
7111 POKE 16543,P1
7120 NEXT J
7200 GOSUB 9000
7210 PRINT AT 5,6;"%T%H%E% %I%N%V%A%D%E%R% %H%A%S% %L%A%N%D%E%D"
7300 FOR J=1 TO 25
7400 NEXT J
7420 PRINT AT 0,0;
7440 GOSUB 10
7450 GOTO 9400
8000 PRINT AT 0,0;
8001 GOSUB 10
8003 PRINT AT 4,9;"%C%O%N%G%R%A%T%U%L%A%T%I%O%N%S"
8004 PRINT AT 7,3;"%Y%O%U% %A%R%E% %P%R%O%M%O%T%E%D% %T%O% %A%D%M%I%R%A%L"
8005 PRINT AT 10,6;"%T%H%E% %P%E%O%P%L%E% %T%H%A%N%K% %Y%O%U"
8009 PRINT AT 12,14;"%A%N%D"
8010 PRINT AT 15,4;"%T%H%E% %S%T%A%R% %C%O%U%N%C%I%L% %P%R%E%S%E%N%T%S"
8011 PRINT AT 17,6;"%Y%O%U% %T%H%I%S% %C%E%R%T%I%F%I%C%A%T%E"
8020 FOR J=1 TO 35
8030 NEXT J
8040 PRINT AT 0,0;
8050 GOSUB 10
8051 PRINT AT 16,3;"%I%S% %A% %P%R%I%N%T%E%R% %A%T%T%A%C%H%E%D%?";AT 18,3;"%E%N%T%E%R% %Y%E%S% %O%R% %N%O"
8052 INPUT L$
8053 PRINT AT 0,0;
8054 GOSUB 10
8055 PRINT AT 1,8;"T.S. RAIDER 1000"
8060 PRINT AT 4,6;"%P%R%O%M%O%T%I%O%N% %C%E%R%T%I%F%I%C%A%T%E"
8070 PRINT AT 7,3;"%T%H%I%S% %I%S% %P%R%O%O%F% %T%H%A%T% ";N$;AT 9,3;"%H%A%S% %S%A%V%E%D% %T%H%E% %E%A%R%T%H% %A%N%D% %I%S";AT 11,3;"%P%R%O%M%O%T%E%D% %T%O% %A%D%M%I%R%A%L%.";AT 17,12;"%U%N%I%T%E%D% %S%T%A%R% %C%O%U%N%C%I%L"
8080 PRINT AT 15,13;"%C%O%M%M%A%N%D%E%R% %R% %D%A%N%I%E%L"
8090 IF L$="YES" THEN COPY 
8100 FOR J=1 TO 55
8125 NEXT J
8200 PRINT AT 0,0;
8300 GOSUB 10
8400 GOTO 9400
8999 STOP 
9000 POKE 16521,137
9002 POKE 16522,136
9004 POKE 16523,138
9006 POKE 16524,136
9008 POKE 16525,137
9010 POKE 16528,138
9012 POKE 16529,151
9014 POKE 16530,138
9016 POKE 16542,134
9018 POKE 16543,0
9020 PRINT AT 0,0;
9024 RETURN 
9400 PRINT AT 4,3;"%D%O% %Y%O%U% %W%I%S%H% %T%O% "
9420 PRINT AT 7,5;"%1% %-% %P%L%A%Y% %A%G%A%I%N";AT 9,5;"%2% %-% %C%H%A%N%G%E% %W%E%A%P%O%N";AT 11,5;"%3% %-% %C%H%A%N%G%E% %L%E%V%E%L";AT 13,5;"%4% %-% %E%X%I%T% %P%R%O%G%R%A%M"
9430 PRINT AT 18,3;"%E%N%T%E%R% %N%U%M%B%E%R"
9440 INPUT F
9450 IF F>4 THEN GOTO 9400
9460 IF F=2 THEN GOSUB 200
9470 IF F=3 THEN GOSUB 300
9480 LET TOT=0
9490 IF F=1 THEN GOTO 520
9495 IF F=4 THEN STOP 
9500 PRINT AT 0,0;
9510 GOSUB 10
9520 GOTO 9400
9800 SAVE "MAT%H"
9900 PRINT AT 0,0;
9910 GOSUB 10
9920 PRINT AT 8,11;"%M%A%T%H% %T%U%T%O%R";AT 10,5;"%(%C%)%1%9%8%2% %R%U%D%O%L%P%H% %D%A%N%I%E%L"
9930 PAUSE 240
9940 PRINT AT 0,0;
9949 RUN 


					
				
			



						

				


Tags


Archived Media, Downloadable, Softsync, TS 1000




People



    Rudolph Daniel



					
				


			

			
		
	



	
 
	


	







		Scroll to Top























			
				


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Math Raiders 1000
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Math Raiders 1000
			
		


	
	
	


							

				

  
Download
  


Softsync, Inc.
Products: Computer Tutors: Math Raiders 1000
Developer(s): Rudolph Daniel
Date: 1982
Type: Cassette
Platform(s): TS 1000


					
				
		
		
							

				










Content









Appears On









Related Products




Computer Tutors: Math Raiders 1000
Math Raiders combines valuable math tutorial exercises with the fun of arcade games. You are the captain of the USS...








Related Articles









Related Content









Image Gallery




  
    
    
    
    






Source Code



  
   1 REM \80\80\80\80\80\80\80\03\09\9D\09\03\80\80\83\97\83\80\00\00\00\00\00\00\2A\0C\40\11\86\00\19\11\82\40\06\03\C5\06\06\1A\77\23\13\10\FA\D5\11\1B\00\19\D1\C1\10\EE\C9\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22
   2 LET RIGHT=0
   3 LET TOT=0
   6 DIM Z(4)
   7 DIM G(4)
   8 DIM Y(4)
   9 GOTO 63
  10 PRINT "\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##"
  20 FOR J=1 TO 20
  30 PRINT "\##% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % \##"
  40 NEXT J
  50 PRINT "\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##"
  60 RETURN 
  63 DIM D(5)
  64 DIM R(10)
  65 LET R(1)=4
  66 LET R(2)=6
  67 LET R(3)=7
  68 LET R(4)=8
  69 LET R(5)=9
  70 LET R(6)=11
  71 LET R(7)=12
  72 LET D(1)=2
  73 LET D(2)=3
  74 LET D(3)=5
  75 LET D(4)=10
  90 GOSUB 10
 100 PRINT AT 6,10;"%W%E%L%C%O%M%E% %H%U%M%A%N";AT 8,5;"%I% %A%M% %Y%O%U%R% %R%A%I%D%E%R% %1%0%0%0% % % % % \##\##% % % % % % % % %S%U%P%E%R%C%O%M%P%U%T%E%R% ";AT 11,6;"%I% %W%I%L%L% %H%E%L%P% %Y%O%U% %I%N% %Y%O%U%R% % \##\##% %M%I%S%S%I%O%N% %T%O%D%A%Y%."
 110 PRINT AT 17,3;"%P%L%E%A%S%E% %E%N%T%E%R% %Y%O%U%R% %N%A%M%E"
 120 INPUT N$
 125 PRINT AT 0,0;
 130 GOSUB 10
 131 FOR J=1 TO LEN N$
 132 LET N$(J)=CHR$ (CODE N$(J)+128)
 133 NEXT J
 135 PRINT AT 2,11;"%S%H%I%P%S% %L%O%G"
 140 PRINT AT 4,3;"%S%T%A%R% %D%A%T%E%-% %3%4%7%.%6%5%4"
 150 PRINT AT 6,3;"%C%A%P%T%A%I%N%-% ";N$
 160 PRINT AT 8,3;"%M%I%S%S%I%O%N% % %-% %T%O% %P%R%O%T%E%C%T% %T%H%E% % % \##\##% % % % % % % % % % % % % %P%L%A%N%E%T% %E%A%R%T%H"
 165 PRINT AT 11,3;"%S%H%I%P% % % %-% %U%.%S%.%S%.% %R%A%I%D%E%R% %1%0%0%0"
 170 PRINT AT 17,3;"%P%R%E%S%S% %E%N%T%E%R% ";N$
 171 INPUT A$
 172 PRINT AT 0,0;
 173 GOSUB 10
 174 PRINT AT 2,12;"%O%B%J%E%C%T";AT 5,4;"%T%O% %D%E%S%T%R%O%Y% %T%H%E% %I%N%V%A%D%E%R%S% %B%Y";AT 7,3;"%A%N%S%W%E%R%I%N%G% %T%H%E% %M%A%T%H% %P%R%O%B%L%E%M%S";AT 9,3;"%C%O%R%R%E%C%T%L%Y%.% % %I%F% %Y%O%U% %D%E%S%T%R%O%Y% ";AT 11,3;"%T%H%E% %W%A%V%E% %O%F% %9% %I%N%V%A%D%E%R%S% %Y%O%U";AT 13,3;"%W%I%L%L% %B%E% %P%R%O%M%O%T%E%D% %T%O% %A%D%M%I%R%A%L"
 175 PRINT AT 17,3;"%G%O%O%D% %L%U%C%K% %C%A%P%T%.% ";N$;AT 19,3;"%P%R%E%S%S% %E%N%T%E%R"
 180 INPUT A$
 190 GOTO 500
 200 PRINT AT 0,0;
 201 GOSUB 10
 210 PRINT AT 3,8;"%C%H%O%O%S%E% %W%E%A%P%O%N";AT 6,3;"%1% %-% %A%D%D%I%T%I%O%N";AT 8,3;"%2% %-% %S%U%B%T%R%A%C%T%I%O%N";AT 12,3;"%4% %-% %D%I%V%I%S%I%O%N";AT 10,3;"%3% %-% %M%U%L%T%I%P%L%I%C%A%T%I%O%N"
 220 PRINT AT 17,3;"%E%N%T%E%R% %N%U%M%B%E%R% ";N$
 230 INPUT T
 240 IF T>4 THEN GOTO 230
 250 RETURN 
 300 PRINT AT 0,0;
 301 GOSUB 10
 310 PRINT AT 5,9;"%C%H%O%O%S%E% %L%E%V%E%L";AT 8,4;"%1% %-% %E%A%S%Y";AT 10,4;"%2% %-% %A% %L%I%T%T%L%E% %H%A%R%D%E%R"
 320 PRINT AT 17,3;"%E%N%T%E%R% %N%U%M%B%E%R% ";N$
 330 INPUT L
 340 IF L>2 THEN GOTO 330
 350 RETURN 
 500 LET T0T=0
 505 GOSUB 200
 510 GOSUB 300
 520 GOSUB T*100+1000
 530 STOP 
1100 REM %A%D%D%I%T%I%O%N
1110 LET Y$=STR$ (INT (RND*(25*L))+10*L)
1115 LET Y=VAL Y$
1120 LET Z$=STR$ (INT (RND*(25*L))+10*L)
1121 LET Y$(1)=CHR$ (CODE Y$(1)+128)
1122 IF LEN Y$>=2 THEN LET Y$(2)=CHR$ (CODE Y$(2)+128)
1123 LET Z=VAL Z$
1124 LET Z$(1)=CHR$ (CODE Z$(1)+128)
1125 IF LEN Z$>=2 THEN LET Z$(2)=CHR$ (CODE Z$(2)+128)
1130 PRINT AT 0,0;
1140 GOSUB 10
1150 GOSUB 5000
1160 PRINT AT 9,13;Y$;AT 10,10;"% %+% ";AT 10,13+LEN Y$-LEN Z$;Z$;AT 11,10;"%-%-%-%-%-%-%-"
1170 PRINT AT 17,3;"%E%N%T%E%R% %Y%O%U%R% %A%N%S%W%E%R"
1180 INPUT A
1181 PRINT AT 12,13+LEN Y$-LEN STR$ A;A
1182 LET C$=STR$ Y+" + "+STR$ Z+" = "+STR$ (Y+Z)
1185 IF Y+Z=A THEN LET RIGHT=1
1186 IF Y+Z<>A THEN LET RIGHT=0
1190 GOTO 6000
1200 REM %S%U%B%T%R%A%C%T%I%O%N
1205 LET Y$=STR$ (INT (RND*(80*L))+20)
1210 LET Y=VAL Y$
1220 LET Z$=STR$ (INT (RND*Y)+1)
1230 IF Y-VAL Z$<6 AND L=2 THEN GOTO 1220
1235 LET Z=VAL Z$
1240 LET Y$(1)=CHR$ (CODE Y$(1)+128)
1241 IF LEN Y$>=2 THEN LET Y$(2)=CHR$ (CODE Y$(2)+128)
1242 LET Z$(1)=CHR$ (CODE Z$(1)+128)
1243 IF LEN Z$>=2 THEN LET Z$(2)=CHR$ (CODE Z$(2)+128)
1244 IF LEN Z$>=3 THEN LET Z$(3)=CHR$ (CODE Z$(3)+128)
1245 PRINT AT 0,0;
1246 GOSUB 10
1247 IF LEN Y$>=3 THEN LET Y$(3)=CHR$ (CODE Y$(3)+128)
1248 GOSUB 5000
1250 PRINT AT 9,13;Y$;AT 10,10;"% %-% ";AT 10,13+LEN Y$-LEN Z$;Z$;AT 11,10;"%-%-%-%-%-%-%-"
1260 PRINT AT 17,3;"%E%N%T%E%R% %A%N%S%W%E%R"
1265 INPUT A
1266 PRINT AT 12,13+LEN Y$-(LEN STR$ A);A
1267 LET C$=STR$ Y+" - "+STR$ Z+" = "+STR$ (Y-Z)
1270 IF Y-Z<>A THEN LET RIGHT=0
1271 IF Y-Z=A THEN LET RIGHT=1
1280 GOTO 6000
1300 REM %M%U%L%T%I%P%L%I%C%A%T%I%O%N
1303 IF L=1 THEN GOTO 1310
1305 LET Y$=STR$ (R(INT (RND*7)+1))
1306 LET Z$=STR$ (INT (RND*10)+7)
1307 GOTO 1320
1310 LET Y$=STR$ (INT (RND*11)+2)
1315 LET Z$=STR$ (D(INT (RND*4)+1))
1320 LET Y=VAL Y$
1322 LET Z=VAL Z$
1325 LET Y$(1)=CHR$ (CODE Y$(1)+128)
1326 IF LEN Y$>=2 THEN LET Y$(2)=CHR$ (CODE Y$(2)+128)
1328 LET Z$(1)=CHR$ (CODE Z$(1)+128)
1330 IF LEN Z$>=2 THEN LET Z$(2)=CHR$ (CODE Z$(2)+128)
1340 PRINT AT 0,0;
1341 GOSUB 10
1342 GOSUB 5000
1344 PRINT AT 9,13;Y$;AT 10,10;"% %X% ";Z$;AT 11,10;"%-%-%-%-%-%-%-"
1346 PRINT AT 17,3;"%E%N%T%E%R% %A%N%S%W%E%R"
1347 INPUT A
1348 PRINT AT 12,13+LEN Y$-LEN STR$ A;A
1349 LET C$=STR$ Y+" X "+STR$ Z+" = "+STR$ (Y*Z)
1350 IF A<>Y*Z THEN LET RIGHT=0
1352 IF A=Y*Z THEN LET RIGHT=1
1353 IF A<>Y*Z THEN LET RIGHT=0
1360 GOTO 6000
1400 LET Y$=STR$ (R(INT (RND*7)+1))
1405 LET Z$=STR$ ((INT (RND*11)+6))
1410 IF L=1 THEN LET Z$=STR$ (D(INT (RND*4)+1))
1415 LET Y=VAL Y$
1416 LET Z=VAL Z$
1417 LET G$=STR$ (Y*Z)
1418 LET G$(1)=CHR$ (CODE G$(1)+128)
1419 IF LEN G$>=2 THEN LET G$(2)=CHR$ (CODE G$(2)+128)
1420 IF LEN G$>=3 THEN LET G$(3)=CHR$ (CODE G$(3)+128)
1421 LET Y$(1)=CHR$ (CODE Y$(1)+128)
1422 IF LEN Y$>=2 THEN LET Y$(2)=CHR$ (CODE Y$(2)+128)
1423 PRINT AT 0,0;
1424 GOSUB 10
1430 GOSUB 5000
1440 PRINT AT 9,13;G$;"% %/% ";Y$;"% %=%?"
1442 PRINT AT 17,3;"%E%N%T%E%R% %A%N%S%W%E%R% ";N$
1445 INPUT A
1446 PRINT AT 9,18+LEN G$+LEN Y$;"% ";A
1447 LET C$=STR$ (Z*Y)+" / "+STR$ Y+" = "+STR$ Z
1448 IF A=Z THEN LET RIGHT=1
1449 IF A<>Z THEN LET RIGHT=0
1450 GOTO 6000
5000 REM %I%N%T%R%U%D%E%R% %A%L%E%R%T
5010 FOR J=1 TO 10
5020 PRINT AT 3,9;"%I%N%T%R%U%D%E%R% %A%L%E%R%T";AT 3,9;"INTRUDER ALERT"
5022 NEXT J
5024 FOR J=1 TO 24
5026 LET F=USR 16538
5028 POKE 16542,134+J
5030 NEXT J
5032 POKE 16542,134
5033 PRINT AT 5,25;"% % % % % ";AT 6,25;"% % % % % "
5040 PRINT AT 6,4;"%C%O%O%R%D%I%N%A%T%E% %I%S% %A%N%S%W%E%R% %:"
5045 PRINT AT 9,3;"%W%H%A%T% %I%S%:"
5050 RETURN 
6000 REM %R%M%D%A%N%I%E%L
6005 PRINT AT 0,0;
6010 GOSUB 10
6020 PRINT AT 18,1;"\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##"
6030 FOR J=1 TO 14
6040 LET F=USR 16538
6050 POKE 16542,134+J
6060 NEXT J
6070 POKE 16542,134
6080 PRINT AT 19,1;"      SENSORS LOCKED ON       "
6085 PRINT AT 20,16;"               "
6090 PRINT AT 20,1;"       COORDINATE ";A
6100 POKE 16521,3
6101 POKE 16522,9
6102 POKE 16523,157
6103 POKE 16524,9
6104 POKE 16525,3
6105 POKE 16528,131
6106 POKE 16529,151
6107 POKE 16530,131
6108 POKE 16542,142
6109 POKE 16543,1
6115 FOR J=1 TO 14
6118 LET F=USR 16538
6120 POKE 16542,J+142
6125 NEXT J
6126 POKE 16542,134
6127 POKE 16543,0
6140 PRINT AT 19,1;" MISSILE FIXED ON COORDINATE  "
6150 REM PAUSE
6160 PRINT AT 20,2;"      PRESS 0 TO FIRE    "
6170 LET Q$=INKEY$
6180 IF Q$<>"0" THEN GOTO 6170
6200 IF RIGHT=1 THEN LET TOT=TOT+1
6205 LET Q=5
6210 IF RIGHT=1 THEN LET Q=8
6230 FOR J=1 TO Q
6240 PRINT AT 14-J,17;"%1"
6241 PRINT AT 14-J,17;"% "
6250 NEXT J
6300 IF RIGHT=0 THEN GOTO 7000
6310 FOR J=15 TO 20
6320 PRINT AT 5,J;"\ .";AT 6,J;"\:'";AT 5,J;"% ";AT 6,J;"% "
6330 NEXT J
6350 PRINT AT 5,3;"%T%H%A%T% %W%A%S% %A% %C%O%R%R%E%C%T% %A%N%S%W%E%R"
6360 PRINT AT 8,3;"%I%N%V%A%D%E%R%S% %D%E%S%T%R%O%Y%E%D% %=% ";CHR$ (TOT+156)
6370 PRINT AT 16,3;"%P%R%E%S%S% %E%N%T%E%R% %C%A%P%T%.% ";N$
6380 INPUT A$
6382 GOSUB 9000
6386 IF TOT<9 THEN GOTO 520
6390 GOTO 8000
7000 FOR J=6 TO 13
7010 PRINT AT J,17;"%*";AT J,17;"% "
7020 NEXT J
7030 PRINT AT 12,19;"%O%H% %N%O%O%O%O"
7031 FOR J=15 TO 20
7032 PRINT AT 13,J;"\':";AT 13,J;"% ";AT 14,J;"\:'";AT 14,J;"% "
7034 NEXT J
7035 PRINT AT 12,19;"% % % % % % % % "
7039 PRINT AT 20,7;"                   "
7040 PRINT AT 19,2;"     THE CORRECT ANSWER      "
7041 PRINT AT 20,15;"                "
7042 PRINT AT 20,4;"     ";C$
7050 FOR J=1 TO 50
7055 NEXT J
7060 FOR J=15 TO 20
7067 PRINT AT 13,J;"% ";AT 14,J;"% "
7070 NEXT J
7074 GOSUB 9000
7080 LET P=148
7081 POKE 16542,P
7090 FOR J=5 TO 17
7095 LET F=USR 16538
7105 LET P1=INT (P/256)
7106 LET P2=((P/256)-P1)*256
7107 LET P=P+33
7110 POKE 16542,P2
7111 POKE 16543,P1
7120 NEXT J
7200 GOSUB 9000
7210 PRINT AT 5,6;"%T%H%E% %I%N%V%A%D%E%R% %H%A%S% %L%A%N%D%E%D"
7300 FOR J=1 TO 25
7400 NEXT J
7420 PRINT AT 0,0;
7440 GOSUB 10
7450 GOTO 9400
8000 PRINT AT 0,0;
8001 GOSUB 10
8003 PRINT AT 4,9;"%C%O%N%G%R%A%T%U%L%A%T%I%O%N%S"
8004 PRINT AT 7,3;"%Y%O%U% %A%R%E% %P%R%O%M%O%T%E%D% %T%O% %A%D%M%I%R%A%L"
8005 PRINT AT 10,6;"%T%H%E% %P%E%O%P%L%E% %T%H%A%N%K% %Y%O%U"
8009 PRINT AT 12,14;"%A%N%D"
8010 PRINT AT 15,4;"%T%H%E% %S%T%A%R% %C%O%U%N%C%I%L% %P%R%E%S%E%N%T%S"
8011 PRINT AT 17,6;"%Y%O%U% %T%H%I%S% %C%E%R%T%I%F%I%C%A%T%E"
8020 FOR J=1 TO 35
8030 NEXT J
8040 PRINT AT 0,0;
8050 GOSUB 10
8051 PRINT AT 16,3;"%I%S% %A% %P%R%I%N%T%E%R% %A%T%T%A%C%H%E%D%?";AT 18,3;"%E%N%T%E%R% %Y%E%S% %O%R% %N%O"
8052 INPUT L$
8053 PRINT AT 0,0;
8054 GOSUB 10
8055 PRINT AT 1,8;"T.S. RAIDER 1000"
8060 PRINT AT 4,6;"%P%R%O%M%O%T%I%O%N% %C%E%R%T%I%F%I%C%A%T%E"
8070 PRINT AT 7,3;"%T%H%I%S% %I%S% %P%R%O%O%F% %T%H%A%T% ";N$;AT 9,3;"%H%A%S% %S%A%V%E%D% %T%H%E% %E%A%R%T%H% %A%N%D% %I%S";AT 11,3;"%P%R%O%M%O%T%E%D% %T%O% %A%D%M%I%R%A%L%.";AT 17,12;"%U%N%I%T%E%D% %S%T%A%R% %C%O%U%N%C%I%L"
8080 PRINT AT 15,13;"%C%O%M%M%A%N%D%E%R% %R% %D%A%N%I%E%L"
8090 IF L$="YES" THEN COPY 
8100 FOR J=1 TO 55
8125 NEXT J
8200 PRINT AT 0,0;
8300 GOSUB 10
8400 GOTO 9400
8999 STOP 
9000 POKE 16521,137
9002 POKE 16522,136
9004 POKE 16523,138
9006 POKE 16524,136
9008 POKE 16525,137
9010 POKE 16528,138
9012 POKE 16529,151
9014 POKE 16530,138
9016 POKE 16542,134
9018 POKE 16543,0
9020 PRINT AT 0,0;
9024 RETURN 
9400 PRINT AT 4,3;"%D%O% %Y%O%U% %W%I%S%H% %T%O% "
9420 PRINT AT 7,5;"%1% %-% %P%L%A%Y% %A%G%A%I%N";AT 9,5;"%2% %-% %C%H%A%N%G%E% %W%E%A%P%O%N";AT 11,5;"%3% %-% %C%H%A%N%G%E% %L%E%V%E%L";AT 13,5;"%4% %-% %E%X%I%T% %P%R%O%G%R%A%M"
9430 PRINT AT 18,3;"%E%N%T%E%R% %N%U%M%B%E%R"
9440 INPUT F
9450 IF F>4 THEN GOTO 9400
9460 IF F=2 THEN GOSUB 200
9470 IF F=3 THEN GOSUB 300
9480 LET TOT=0
9490 IF F=1 THEN GOTO 520
9495 IF F=4 THEN STOP 
9500 PRINT AT 0,0;
9510 GOSUB 10
9520 GOTO 9400
9800 SAVE "MAT%H"
9900 PRINT AT 0,0;
9910 GOSUB 10
9920 PRINT AT 8,11;"%M%A%T%H% %T%U%T%O%R";AT 10,5;"%(%C%)%1%9%8%2% %R%U%D%O%L%P%H% %D%A%N%I%E%L"
9930 PAUSE 240
9940 PRINT AT 0,0;
9949 RUN 


					
				
			



						

				


Tags


Archived Media, Downloadable, Softsync, TS 1000




People



    Rudolph Daniel



					
				


			

			
		
	



	
 
	


	







		Scroll to Top























			
				


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Math Raiders 1000
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Math Raiders 1000
			
		


	
	
	


							

				

  
Download
  


Softsync, Inc.
Products: Computer Tutors: Math Raiders 1000
Developer(s): Rudolph Daniel
Date: 1982
Type: Cassette
Platform(s): TS 1000


					
				
		
		
							

				










Content









Appears On









Related Products




Computer Tutors: Math Raiders 1000
Math Raiders combines valuable math tutorial exercises with the fun of arcade games. You are the captain of the USS...








Related Articles









Related Content









Image Gallery




  
    
    
    
    






Source Code



  
   1 REM \80\80\80\80\80\80\80\03\09\9D\09\03\80\80\83\97\83\80\00\00\00\00\00\00\2A\0C\40\11\86\00\19\11\82\40\06\03\C5\06\06\1A\77\23\13\10\FA\D5\11\1B\00\19\D1\C1\10\EE\C9\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22
   2 LET RIGHT=0
   3 LET TOT=0
   6 DIM Z(4)
   7 DIM G(4)
   8 DIM Y(4)
   9 GOTO 63
  10 PRINT "\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##"
  20 FOR J=1 TO 20
  30 PRINT "\##% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % \##"
  40 NEXT J
  50 PRINT "\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##"
  60 RETURN 
  63 DIM D(5)
  64 DIM R(10)
  65 LET R(1)=4
  66 LET R(2)=6
  67 LET R(3)=7
  68 LET R(4)=8
  69 LET R(5)=9
  70 LET R(6)=11
  71 LET R(7)=12
  72 LET D(1)=2
  73 LET D(2)=3
  74 LET D(3)=5
  75 LET D(4)=10
  90 GOSUB 10
 100 PRINT AT 6,10;"%W%E%L%C%O%M%E% %H%U%M%A%N";AT 8,5;"%I% %A%M% %Y%O%U%R% %R%A%I%D%E%R% %1%0%0%0% % % % % \##\##% % % % % % % % %S%U%P%E%R%C%O%M%P%U%T%E%R% ";AT 11,6;"%I% %W%I%L%L% %H%E%L%P% %Y%O%U% %I%N% %Y%O%U%R% % \##\##% %M%I%S%S%I%O%N% %T%O%D%A%Y%."
 110 PRINT AT 17,3;"%P%L%E%A%S%E% %E%N%T%E%R% %Y%O%U%R% %N%A%M%E"
 120 INPUT N$
 125 PRINT AT 0,0;
 130 GOSUB 10
 131 FOR J=1 TO LEN N$
 132 LET N$(J)=CHR$ (CODE N$(J)+128)
 133 NEXT J
 135 PRINT AT 2,11;"%S%H%I%P%S% %L%O%G"
 140 PRINT AT 4,3;"%S%T%A%R% %D%A%T%E%-% %3%4%7%.%6%5%4"
 150 PRINT AT 6,3;"%C%A%P%T%A%I%N%-% ";N$
 160 PRINT AT 8,3;"%M%I%S%S%I%O%N% % %-% %T%O% %P%R%O%T%E%C%T% %T%H%E% % % \##\##% % % % % % % % % % % % % %P%L%A%N%E%T% %E%A%R%T%H"
 165 PRINT AT 11,3;"%S%H%I%P% % % %-% %U%.%S%.%S%.% %R%A%I%D%E%R% %1%0%0%0"
 170 PRINT AT 17,3;"%P%R%E%S%S% %E%N%T%E%R% ";N$
 171 INPUT A$
 172 PRINT AT 0,0;
 173 GOSUB 10
 174 PRINT AT 2,12;"%O%B%J%E%C%T";AT 5,4;"%T%O% %D%E%S%T%R%O%Y% %T%H%E% %I%N%V%A%D%E%R%S% %B%Y";AT 7,3;"%A%N%S%W%E%R%I%N%G% %T%H%E% %M%A%T%H% %P%R%O%B%L%E%M%S";AT 9,3;"%C%O%R%R%E%C%T%L%Y%.% % %I%F% %Y%O%U% %D%E%S%T%R%O%Y% ";AT 11,3;"%T%H%E% %W%A%V%E% %O%F% %9% %I%N%V%A%D%E%R%S% %Y%O%U";AT 13,3;"%W%I%L%L% %B%E% %P%R%O%M%O%T%E%D% %T%O% %A%D%M%I%R%A%L"
 175 PRINT AT 17,3;"%G%O%O%D% %L%U%C%K% %C%A%P%T%.% ";N$;AT 19,3;"%P%R%E%S%S% %E%N%T%E%R"
 180 INPUT A$
 190 GOTO 500
 200 PRINT AT 0,0;
 201 GOSUB 10
 210 PRINT AT 3,8;"%C%H%O%O%S%E% %W%E%A%P%O%N";AT 6,3;"%1% %-% %A%D%D%I%T%I%O%N";AT 8,3;"%2% %-% %S%U%B%T%R%A%C%T%I%O%N";AT 12,3;"%4% %-% %D%I%V%I%S%I%O%N";AT 10,3;"%3% %-% %M%U%L%T%I%P%L%I%C%A%T%I%O%N"
 220 PRINT AT 17,3;"%E%N%T%E%R% %N%U%M%B%E%R% ";N$
 230 INPUT T
 240 IF T>4 THEN GOTO 230
 250 RETURN 
 300 PRINT AT 0,0;
 301 GOSUB 10
 310 PRINT AT 5,9;"%C%H%O%O%S%E% %L%E%V%E%L";AT 8,4;"%1% %-% %E%A%S%Y";AT 10,4;"%2% %-% %A% %L%I%T%T%L%E% %H%A%R%D%E%R"
 320 PRINT AT 17,3;"%E%N%T%E%R% %N%U%M%B%E%R% ";N$
 330 INPUT L
 340 IF L>2 THEN GOTO 330
 350 RETURN 
 500 LET T0T=0
 505 GOSUB 200
 510 GOSUB 300
 520 GOSUB T*100+1000
 530 STOP 
1100 REM %A%D%D%I%T%I%O%N
1110 LET Y$=STR$ (INT (RND*(25*L))+10*L)
1115 LET Y=VAL Y$
1120 LET Z$=STR$ (INT (RND*(25*L))+10*L)
1121 LET Y$(1)=CHR$ (CODE Y$(1)+128)
1122 IF LEN Y$>=2 THEN LET Y$(2)=CHR$ (CODE Y$(2)+128)
1123 LET Z=VAL Z$
1124 LET Z$(1)=CHR$ (CODE Z$(1)+128)
1125 IF LEN Z$>=2 THEN LET Z$(2)=CHR$ (CODE Z$(2)+128)
1130 PRINT AT 0,0;
1140 GOSUB 10
1150 GOSUB 5000
1160 PRINT AT 9,13;Y$;AT 10,10;"% %+% ";AT 10,13+LEN Y$-LEN Z$;Z$;AT 11,10;"%-%-%-%-%-%-%-"
1170 PRINT AT 17,3;"%E%N%T%E%R% %Y%O%U%R% %A%N%S%W%E%R"
1180 INPUT A
1181 PRINT AT 12,13+LEN Y$-LEN STR$ A;A
1182 LET C$=STR$ Y+" + "+STR$ Z+" = "+STR$ (Y+Z)
1185 IF Y+Z=A THEN LET RIGHT=1
1186 IF Y+Z<>A THEN LET RIGHT=0
1190 GOTO 6000
1200 REM %S%U%B%T%R%A%C%T%I%O%N
1205 LET Y$=STR$ (INT (RND*(80*L))+20)
1210 LET Y=VAL Y$
1220 LET Z$=STR$ (INT (RND*Y)+1)
1230 IF Y-VAL Z$<6 AND L=2 THEN GOTO 1220
1235 LET Z=VAL Z$
1240 LET Y$(1)=CHR$ (CODE Y$(1)+128)
1241 IF LEN Y$>=2 THEN LET Y$(2)=CHR$ (CODE Y$(2)+128)
1242 LET Z$(1)=CHR$ (CODE Z$(1)+128)
1243 IF LEN Z$>=2 THEN LET Z$(2)=CHR$ (CODE Z$(2)+128)
1244 IF LEN Z$>=3 THEN LET Z$(3)=CHR$ (CODE Z$(3)+128)
1245 PRINT AT 0,0;
1246 GOSUB 10
1247 IF LEN Y$>=3 THEN LET Y$(3)=CHR$ (CODE Y$(3)+128)
1248 GOSUB 5000
1250 PRINT AT 9,13;Y$;AT 10,10;"% %-% ";AT 10,13+LEN Y$-LEN Z$;Z$;AT 11,10;"%-%-%-%-%-%-%-"
1260 PRINT AT 17,3;"%E%N%T%E%R% %A%N%S%W%E%R"
1265 INPUT A
1266 PRINT AT 12,13+LEN Y$-(LEN STR$ A);A
1267 LET C$=STR$ Y+" - "+STR$ Z+" = "+STR$ (Y-Z)
1270 IF Y-Z<>A THEN LET RIGHT=0
1271 IF Y-Z=A THEN LET RIGHT=1
1280 GOTO 6000
1300 REM %M%U%L%T%I%P%L%I%C%A%T%I%O%N
1303 IF L=1 THEN GOTO 1310
1305 LET Y$=STR$ (R(INT (RND*7)+1))
1306 LET Z$=STR$ (INT (RND*10)+7)
1307 GOTO 1320
1310 LET Y$=STR$ (INT (RND*11)+2)
1315 LET Z$=STR$ (D(INT (RND*4)+1))
1320 LET Y=VAL Y$
1322 LET Z=VAL Z$
1325 LET Y$(1)=CHR$ (CODE Y$(1)+128)
1326 IF LEN Y$>=2 THEN LET Y$(2)=CHR$ (CODE Y$(2)+128)
1328 LET Z$(1)=CHR$ (CODE Z$(1)+128)
1330 IF LEN Z$>=2 THEN LET Z$(2)=CHR$ (CODE Z$(2)+128)
1340 PRINT AT 0,0;
1341 GOSUB 10
1342 GOSUB 5000
1344 PRINT AT 9,13;Y$;AT 10,10;"% %X% ";Z$;AT 11,10;"%-%-%-%-%-%-%-"
1346 PRINT AT 17,3;"%E%N%T%E%R% %A%N%S%W%E%R"
1347 INPUT A
1348 PRINT AT 12,13+LEN Y$-LEN STR$ A;A
1349 LET C$=STR$ Y+" X "+STR$ Z+" = "+STR$ (Y*Z)
1350 IF A<>Y*Z THEN LET RIGHT=0
1352 IF A=Y*Z THEN LET RIGHT=1
1353 IF A<>Y*Z THEN LET RIGHT=0
1360 GOTO 6000
1400 LET Y$=STR$ (R(INT (RND*7)+1))
1405 LET Z$=STR$ ((INT (RND*11)+6))
1410 IF L=1 THEN LET Z$=STR$ (D(INT (RND*4)+1))
1415 LET Y=VAL Y$
1416 LET Z=VAL Z$
1417 LET G$=STR$ (Y*Z)
1418 LET G$(1)=CHR$ (CODE G$(1)+128)
1419 IF LEN G$>=2 THEN LET G$(2)=CHR$ (CODE G$(2)+128)
1420 IF LEN G$>=3 THEN LET G$(3)=CHR$ (CODE G$(3)+128)
1421 LET Y$(1)=CHR$ (CODE Y$(1)+128)
1422 IF LEN Y$>=2 THEN LET Y$(2)=CHR$ (CODE Y$(2)+128)
1423 PRINT AT 0,0;
1424 GOSUB 10
1430 GOSUB 5000
1440 PRINT AT 9,13;G$;"% %/% ";Y$;"% %=%?"
1442 PRINT AT 17,3;"%E%N%T%E%R% %A%N%S%W%E%R% ";N$
1445 INPUT A
1446 PRINT AT 9,18+LEN G$+LEN Y$;"% ";A
1447 LET C$=STR$ (Z*Y)+" / "+STR$ Y+" = "+STR$ Z
1448 IF A=Z THEN LET RIGHT=1
1449 IF A<>Z THEN LET RIGHT=0
1450 GOTO 6000
5000 REM %I%N%T%R%U%D%E%R% %A%L%E%R%T
5010 FOR J=1 TO 10
5020 PRINT AT 3,9;"%I%N%T%R%U%D%E%R% %A%L%E%R%T";AT 3,9;"INTRUDER ALERT"
5022 NEXT J
5024 FOR J=1 TO 24
5026 LET F=USR 16538
5028 POKE 16542,134+J
5030 NEXT J
5032 POKE 16542,134
5033 PRINT AT 5,25;"% % % % % ";AT 6,25;"% % % % % "
5040 PRINT AT 6,4;"%C%O%O%R%D%I%N%A%T%E% %I%S% %A%N%S%W%E%R% %:"
5045 PRINT AT 9,3;"%W%H%A%T% %I%S%:"
5050 RETURN 
6000 REM %R%M%D%A%N%I%E%L
6005 PRINT AT 0,0;
6010 GOSUB 10
6020 PRINT AT 18,1;"\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##"
6030 FOR J=1 TO 14
6040 LET F=USR 16538
6050 POKE 16542,134+J
6060 NEXT J
6070 POKE 16542,134
6080 PRINT AT 19,1;"      SENSORS LOCKED ON       "
6085 PRINT AT 20,16;"               "
6090 PRINT AT 20,1;"       COORDINATE ";A
6100 POKE 16521,3
6101 POKE 16522,9
6102 POKE 16523,157
6103 POKE 16524,9
6104 POKE 16525,3
6105 POKE 16528,131
6106 POKE 16529,151
6107 POKE 16530,131
6108 POKE 16542,142
6109 POKE 16543,1
6115 FOR J=1 TO 14
6118 LET F=USR 16538
6120 POKE 16542,J+142
6125 NEXT J
6126 POKE 16542,134
6127 POKE 16543,0
6140 PRINT AT 19,1;" MISSILE FIXED ON COORDINATE  "
6150 REM PAUSE
6160 PRINT AT 20,2;"      PRESS 0 TO FIRE    "
6170 LET Q$=INKEY$
6180 IF Q$<>"0" THEN GOTO 6170
6200 IF RIGHT=1 THEN LET TOT=TOT+1
6205 LET Q=5
6210 IF RIGHT=1 THEN LET Q=8
6230 FOR J=1 TO Q
6240 PRINT AT 14-J,17;"%1"
6241 PRINT AT 14-J,17;"% "
6250 NEXT J
6300 IF RIGHT=0 THEN GOTO 7000
6310 FOR J=15 TO 20
6320 PRINT AT 5,J;"\ .";AT 6,J;"\:'";AT 5,J;"% ";AT 6,J;"% "
6330 NEXT J
6350 PRINT AT 5,3;"%T%H%A%T% %W%A%S% %A% %C%O%R%R%E%C%T% %A%N%S%W%E%R"
6360 PRINT AT 8,3;"%I%N%V%A%D%E%R%S% %D%E%S%T%R%O%Y%E%D% %=% ";CHR$ (TOT+156)
6370 PRINT AT 16,3;"%P%R%E%S%S% %E%N%T%E%R% %C%A%P%T%.% ";N$
6380 INPUT A$
6382 GOSUB 9000
6386 IF TOT<9 THEN GOTO 520
6390 GOTO 8000
7000 FOR J=6 TO 13
7010 PRINT AT J,17;"%*";AT J,17;"% "
7020 NEXT J
7030 PRINT AT 12,19;"%O%H% %N%O%O%O%O"
7031 FOR J=15 TO 20
7032 PRINT AT 13,J;"\':";AT 13,J;"% ";AT 14,J;"\:'";AT 14,J;"% "
7034 NEXT J
7035 PRINT AT 12,19;"% % % % % % % % "
7039 PRINT AT 20,7;"                   "
7040 PRINT AT 19,2;"     THE CORRECT ANSWER      "
7041 PRINT AT 20,15;"                "
7042 PRINT AT 20,4;"     ";C$
7050 FOR J=1 TO 50
7055 NEXT J
7060 FOR J=15 TO 20
7067 PRINT AT 13,J;"% ";AT 14,J;"% "
7070 NEXT J
7074 GOSUB 9000
7080 LET P=148
7081 POKE 16542,P
7090 FOR J=5 TO 17
7095 LET F=USR 16538
7105 LET P1=INT (P/256)
7106 LET P2=((P/256)-P1)*256
7107 LET P=P+33
7110 POKE 16542,P2
7111 POKE 16543,P1
7120 NEXT J
7200 GOSUB 9000
7210 PRINT AT 5,6;"%T%H%E% %I%N%V%A%D%E%R% %H%A%S% %L%A%N%D%E%D"
7300 FOR J=1 TO 25
7400 NEXT J
7420 PRINT AT 0,0;
7440 GOSUB 10
7450 GOTO 9400
8000 PRINT AT 0,0;
8001 GOSUB 10
8003 PRINT AT 4,9;"%C%O%N%G%R%A%T%U%L%A%T%I%O%N%S"
8004 PRINT AT 7,3;"%Y%O%U% %A%R%E% %P%R%O%M%O%T%E%D% %T%O% %A%D%M%I%R%A%L"
8005 PRINT AT 10,6;"%T%H%E% %P%E%O%P%L%E% %T%H%A%N%K% %Y%O%U"
8009 PRINT AT 12,14;"%A%N%D"
8010 PRINT AT 15,4;"%T%H%E% %S%T%A%R% %C%O%U%N%C%I%L% %P%R%E%S%E%N%T%S"
8011 PRINT AT 17,6;"%Y%O%U% %T%H%I%S% %C%E%R%T%I%F%I%C%A%T%E"
8020 FOR J=1 TO 35
8030 NEXT J
8040 PRINT AT 0,0;
8050 GOSUB 10
8051 PRINT AT 16,3;"%I%S% %A% %P%R%I%N%T%E%R% %A%T%T%A%C%H%E%D%?";AT 18,3;"%E%N%T%E%R% %Y%E%S% %O%R% %N%O"
8052 INPUT L$
8053 PRINT AT 0,0;
8054 GOSUB 10
8055 PRINT AT 1,8;"T.S. RAIDER 1000"
8060 PRINT AT 4,6;"%P%R%O%M%O%T%I%O%N% %C%E%R%T%I%F%I%C%A%T%E"
8070 PRINT AT 7,3;"%T%H%I%S% %I%S% %P%R%O%O%F% %T%H%A%T% ";N$;AT 9,3;"%H%A%S% %S%A%V%E%D% %T%H%E% %E%A%R%T%H% %A%N%D% %I%S";AT 11,3;"%P%R%O%M%O%T%E%D% %T%O% %A%D%M%I%R%A%L%.";AT 17,12;"%U%N%I%T%E%D% %S%T%A%R% %C%O%U%N%C%I%L"
8080 PRINT AT 15,13;"%C%O%M%M%A%N%D%E%R% %R% %D%A%N%I%E%L"
8090 IF L$="YES" THEN COPY 
8100 FOR J=1 TO 55
8125 NEXT J
8200 PRINT AT 0,0;
8300 GOSUB 10
8400 GOTO 9400
8999 STOP 
9000 POKE 16521,137
9002 POKE 16522,136
9004 POKE 16523,138
9006 POKE 16524,136
9008 POKE 16525,137
9010 POKE 16528,138
9012 POKE 16529,151
9014 POKE 16530,138
9016 POKE 16542,134
9018 POKE 16543,0
9020 PRINT AT 0,0;
9024 RETURN 
9400 PRINT AT 4,3;"%D%O% %Y%O%U% %W%I%S%H% %T%O% "
9420 PRINT AT 7,5;"%1% %-% %P%L%A%Y% %A%G%A%I%N";AT 9,5;"%2% %-% %C%H%A%N%G%E% %W%E%A%P%O%N";AT 11,5;"%3% %-% %C%H%A%N%G%E% %L%E%V%E%L";AT 13,5;"%4% %-% %E%X%I%T% %P%R%O%G%R%A%M"
9430 PRINT AT 18,3;"%E%N%T%E%R% %N%U%M%B%E%R"
9440 INPUT F
9450 IF F>4 THEN GOTO 9400
9460 IF F=2 THEN GOSUB 200
9470 IF F=3 THEN GOSUB 300
9480 LET TOT=0
9490 IF F=1 THEN GOTO 520
9495 IF F=4 THEN STOP 
9500 PRINT AT 0,0;
9510 GOSUB 10
9520 GOTO 9400
9800 SAVE "MAT%H"
9900 PRINT AT 0,0;
9910 GOSUB 10
9920 PRINT AT 8,11;"%M%A%T%H% %T%U%T%O%R";AT 10,5;"%(%C%)%1%9%8%2% %R%U%D%O%L%P%H% %D%A%N%I%E%L"
9930 PAUSE 240
9940 PRINT AT 0,0;
9949 RUN 


					
				
			



						

				


Tags


Archived Media, Downloadable, Softsync, TS 1000




People



    Rudolph Daniel



					
				


			

			
		
	



	
 
	


	







		Scroll to Top























			
				


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Math Raiders 1000
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Math Raiders 1000
			
		


	
	
	


							

				

  
Download
  


Softsync, Inc.
Products: Computer Tutors: Math Raiders 1000
Developer(s): Rudolph Daniel
Date: 1982
Type: Cassette
Platform(s): TS 1000


					
				
		
		
							

				










Content









Appears On









Related Products




Computer Tutors: Math Raiders 1000
Math Raiders combines valuable math tutorial exercises with the fun of arcade games. You are the captain of the USS...








Related Articles









Related Content









Image Gallery




  
    
    
    
    






Source Code



  
   1 REM \80\80\80\80\80\80\80\03\09\9D\09\03\80\80\83\97\83\80\00\00\00\00\00\00\2A\0C\40\11\86\00\19\11\82\40\06\03\C5\06\06\1A\77\23\13\10\FA\D5\11\1B\00\19\D1\C1\10\EE\C9\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22
   2 LET RIGHT=0
   3 LET TOT=0
   6 DIM Z(4)
   7 DIM G(4)
   8 DIM Y(4)
   9 GOTO 63
  10 PRINT "\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##"
  20 FOR J=1 TO 20
  30 PRINT "\##% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % \##"
  40 NEXT J
  50 PRINT "\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##"
  60 RETURN 
  63 DIM D(5)
  64 DIM R(10)
  65 LET R(1)=4
  66 LET R(2)=6
  67 LET R(3)=7
  68 LET R(4)=8
  69 LET R(5)=9
  70 LET R(6)=11
  71 LET R(7)=12
  72 LET D(1)=2
  73 LET D(2)=3
  74 LET D(3)=5
  75 LET D(4)=10
  90 GOSUB 10
 100 PRINT AT 6,10;"%W%E%L%C%O%M%E% %H%U%M%A%N";AT 8,5;"%I% %A%M% %Y%O%U%R% %R%A%I%D%E%R% %1%0%0%0% % % % % \##\##% % % % % % % % %S%U%P%E%R%C%O%M%P%U%T%E%R% ";AT 11,6;"%I% %W%I%L%L% %H%E%L%P% %Y%O%U% %I%N% %Y%O%U%R% % \##\##% %M%I%S%S%I%O%N% %T%O%D%A%Y%."
 110 PRINT AT 17,3;"%P%L%E%A%S%E% %E%N%T%E%R% %Y%O%U%R% %N%A%M%E"
 120 INPUT N$
 125 PRINT AT 0,0;
 130 GOSUB 10
 131 FOR J=1 TO LEN N$
 132 LET N$(J)=CHR$ (CODE N$(J)+128)
 133 NEXT J
 135 PRINT AT 2,11;"%S%H%I%P%S% %L%O%G"
 140 PRINT AT 4,3;"%S%T%A%R% %D%A%T%E%-% %3%4%7%.%6%5%4"
 150 PRINT AT 6,3;"%C%A%P%T%A%I%N%-% ";N$
 160 PRINT AT 8,3;"%M%I%S%S%I%O%N% % %-% %T%O% %P%R%O%T%E%C%T% %T%H%E% % % \##\##% % % % % % % % % % % % % %P%L%A%N%E%T% %E%A%R%T%H"
 165 PRINT AT 11,3;"%S%H%I%P% % % %-% %U%.%S%.%S%.% %R%A%I%D%E%R% %1%0%0%0"
 170 PRINT AT 17,3;"%P%R%E%S%S% %E%N%T%E%R% ";N$
 171 INPUT A$
 172 PRINT AT 0,0;
 173 GOSUB 10
 174 PRINT AT 2,12;"%O%B%J%E%C%T";AT 5,4;"%T%O% %D%E%S%T%R%O%Y% %T%H%E% %I%N%V%A%D%E%R%S% %B%Y";AT 7,3;"%A%N%S%W%E%R%I%N%G% %T%H%E% %M%A%T%H% %P%R%O%B%L%E%M%S";AT 9,3;"%C%O%R%R%E%C%T%L%Y%.% % %I%F% %Y%O%U% %D%E%S%T%R%O%Y% ";AT 11,3;"%T%H%E% %W%A%V%E% %O%F% %9% %I%N%V%A%D%E%R%S% %Y%O%U";AT 13,3;"%W%I%L%L% %B%E% %P%R%O%M%O%T%E%D% %T%O% %A%D%M%I%R%A%L"
 175 PRINT AT 17,3;"%G%O%O%D% %L%U%C%K% %C%A%P%T%.% ";N$;AT 19,3;"%P%R%E%S%S% %E%N%T%E%R"
 180 INPUT A$
 190 GOTO 500
 200 PRINT AT 0,0;
 201 GOSUB 10
 210 PRINT AT 3,8;"%C%H%O%O%S%E% %W%E%A%P%O%N";AT 6,3;"%1% %-% %A%D%D%I%T%I%O%N";AT 8,3;"%2% %-% %S%U%B%T%R%A%C%T%I%O%N";AT 12,3;"%4% %-% %D%I%V%I%S%I%O%N";AT 10,3;"%3% %-% %M%U%L%T%I%P%L%I%C%A%T%I%O%N"
 220 PRINT AT 17,3;"%E%N%T%E%R% %N%U%M%B%E%R% ";N$
 230 INPUT T
 240 IF T>4 THEN GOTO 230
 250 RETURN 
 300 PRINT AT 0,0;
 301 GOSUB 10
 310 PRINT AT 5,9;"%C%H%O%O%S%E% %L%E%V%E%L";AT 8,4;"%1% %-% %E%A%S%Y";AT 10,4;"%2% %-% %A% %L%I%T%T%L%E% %H%A%R%D%E%R"
 320 PRINT AT 17,3;"%E%N%T%E%R% %N%U%M%B%E%R% ";N$
 330 INPUT L
 340 IF L>2 THEN GOTO 330
 350 RETURN 
 500 LET T0T=0
 505 GOSUB 200
 510 GOSUB 300
 520 GOSUB T*100+1000
 530 STOP 
1100 REM %A%D%D%I%T%I%O%N
1110 LET Y$=STR$ (INT (RND*(25*L))+10*L)
1115 LET Y=VAL Y$
1120 LET Z$=STR$ (INT (RND*(25*L))+10*L)
1121 LET Y$(1)=CHR$ (CODE Y$(1)+128)
1122 IF LEN Y$>=2 THEN LET Y$(2)=CHR$ (CODE Y$(2)+128)
1123 LET Z=VAL Z$
1124 LET Z$(1)=CHR$ (CODE Z$(1)+128)
1125 IF LEN Z$>=2 THEN LET Z$(2)=CHR$ (CODE Z$(2)+128)
1130 PRINT AT 0,0;
1140 GOSUB 10
1150 GOSUB 5000
1160 PRINT AT 9,13;Y$;AT 10,10;"% %+% ";AT 10,13+LEN Y$-LEN Z$;Z$;AT 11,10;"%-%-%-%-%-%-%-"
1170 PRINT AT 17,3;"%E%N%T%E%R% %Y%O%U%R% %A%N%S%W%E%R"
1180 INPUT A
1181 PRINT AT 12,13+LEN Y$-LEN STR$ A;A
1182 LET C$=STR$ Y+" + "+STR$ Z+" = "+STR$ (Y+Z)
1185 IF Y+Z=A THEN LET RIGHT=1
1186 IF Y+Z<>A THEN LET RIGHT=0
1190 GOTO 6000
1200 REM %S%U%B%T%R%A%C%T%I%O%N
1205 LET Y$=STR$ (INT (RND*(80*L))+20)
1210 LET Y=VAL Y$
1220 LET Z$=STR$ (INT (RND*Y)+1)
1230 IF Y-VAL Z$<6 AND L=2 THEN GOTO 1220
1235 LET Z=VAL Z$
1240 LET Y$(1)=CHR$ (CODE Y$(1)+128)
1241 IF LEN Y$>=2 THEN LET Y$(2)=CHR$ (CODE Y$(2)+128)
1242 LET Z$(1)=CHR$ (CODE Z$(1)+128)
1243 IF LEN Z$>=2 THEN LET Z$(2)=CHR$ (CODE Z$(2)+128)
1244 IF LEN Z$>=3 THEN LET Z$(3)=CHR$ (CODE Z$(3)+128)
1245 PRINT AT 0,0;
1246 GOSUB 10
1247 IF LEN Y$>=3 THEN LET Y$(3)=CHR$ (CODE Y$(3)+128)
1248 GOSUB 5000
1250 PRINT AT 9,13;Y$;AT 10,10;"% %-% ";AT 10,13+LEN Y$-LEN Z$;Z$;AT 11,10;"%-%-%-%-%-%-%-"
1260 PRINT AT 17,3;"%E%N%T%E%R% %A%N%S%W%E%R"
1265 INPUT A
1266 PRINT AT 12,13+LEN Y$-(LEN STR$ A);A
1267 LET C$=STR$ Y+" - "+STR$ Z+" = "+STR$ (Y-Z)
1270 IF Y-Z<>A THEN LET RIGHT=0
1271 IF Y-Z=A THEN LET RIGHT=1
1280 GOTO 6000
1300 REM %M%U%L%T%I%P%L%I%C%A%T%I%O%N
1303 IF L=1 THEN GOTO 1310
1305 LET Y$=STR$ (R(INT (RND*7)+1))
1306 LET Z$=STR$ (INT (RND*10)+7)
1307 GOTO 1320
1310 LET Y$=STR$ (INT (RND*11)+2)
1315 LET Z$=STR$ (D(INT (RND*4)+1))
1320 LET Y=VAL Y$
1322 LET Z=VAL Z$
1325 LET Y$(1)=CHR$ (CODE Y$(1)+128)
1326 IF LEN Y$>=2 THEN LET Y$(2)=CHR$ (CODE Y$(2)+128)
1328 LET Z$(1)=CHR$ (CODE Z$(1)+128)
1330 IF LEN Z$>=2 THEN LET Z$(2)=CHR$ (CODE Z$(2)+128)
1340 PRINT AT 0,0;
1341 GOSUB 10
1342 GOSUB 5000
1344 PRINT AT 9,13;Y$;AT 10,10;"% %X% ";Z$;AT 11,10;"%-%-%-%-%-%-%-"
1346 PRINT AT 17,3;"%E%N%T%E%R% %A%N%S%W%E%R"
1347 INPUT A
1348 PRINT AT 12,13+LEN Y$-LEN STR$ A;A
1349 LET C$=STR$ Y+" X "+STR$ Z+" = "+STR$ (Y*Z)
1350 IF A<>Y*Z THEN LET RIGHT=0
1352 IF A=Y*Z THEN LET RIGHT=1
1353 IF A<>Y*Z THEN LET RIGHT=0
1360 GOTO 6000
1400 LET Y$=STR$ (R(INT (RND*7)+1))
1405 LET Z$=STR$ ((INT (RND*11)+6))
1410 IF L=1 THEN LET Z$=STR$ (D(INT (RND*4)+1))
1415 LET Y=VAL Y$
1416 LET Z=VAL Z$
1417 LET G$=STR$ (Y*Z)
1418 LET G$(1)=CHR$ (CODE G$(1)+128)
1419 IF LEN G$>=2 THEN LET G$(2)=CHR$ (CODE G$(2)+128)
1420 IF LEN G$>=3 THEN LET G$(3)=CHR$ (CODE G$(3)+128)
1421 LET Y$(1)=CHR$ (CODE Y$(1)+128)
1422 IF LEN Y$>=2 THEN LET Y$(2)=CHR$ (CODE Y$(2)+128)
1423 PRINT AT 0,0;
1424 GOSUB 10
1430 GOSUB 5000
1440 PRINT AT 9,13;G$;"% %/% ";Y$;"% %=%?"
1442 PRINT AT 17,3;"%E%N%T%E%R% %A%N%S%W%E%R% ";N$
1445 INPUT A
1446 PRINT AT 9,18+LEN G$+LEN Y$;"% ";A
1447 LET C$=STR$ (Z*Y)+" / "+STR$ Y+" = "+STR$ Z
1448 IF A=Z THEN LET RIGHT=1
1449 IF A<>Z THEN LET RIGHT=0
1450 GOTO 6000
5000 REM %I%N%T%R%U%D%E%R% %A%L%E%R%T
5010 FOR J=1 TO 10
5020 PRINT AT 3,9;"%I%N%T%R%U%D%E%R% %A%L%E%R%T";AT 3,9;"INTRUDER ALERT"
5022 NEXT J
5024 FOR J=1 TO 24
5026 LET F=USR 16538
5028 POKE 16542,134+J
5030 NEXT J
5032 POKE 16542,134
5033 PRINT AT 5,25;"% % % % % ";AT 6,25;"% % % % % "
5040 PRINT AT 6,4;"%C%O%O%R%D%I%N%A%T%E% %I%S% %A%N%S%W%E%R% %:"
5045 PRINT AT 9,3;"%W%H%A%T% %I%S%:"
5050 RETURN 
6000 REM %R%M%D%A%N%I%E%L
6005 PRINT AT 0,0;
6010 GOSUB 10
6020 PRINT AT 18,1;"\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##"
6030 FOR J=1 TO 14
6040 LET F=USR 16538
6050 POKE 16542,134+J
6060 NEXT J
6070 POKE 16542,134
6080 PRINT AT 19,1;"      SENSORS LOCKED ON       "
6085 PRINT AT 20,16;"               "
6090 PRINT AT 20,1;"       COORDINATE ";A
6100 POKE 16521,3
6101 POKE 16522,9
6102 POKE 16523,157
6103 POKE 16524,9
6104 POKE 16525,3
6105 POKE 16528,131
6106 POKE 16529,151
6107 POKE 16530,131
6108 POKE 16542,142
6109 POKE 16543,1
6115 FOR J=1 TO 14
6118 LET F=USR 16538
6120 POKE 16542,J+142
6125 NEXT J
6126 POKE 16542,134
6127 POKE 16543,0
6140 PRINT AT 19,1;" MISSILE FIXED ON COORDINATE  "
6150 REM PAUSE
6160 PRINT AT 20,2;"      PRESS 0 TO FIRE    "
6170 LET Q$=INKEY$
6180 IF Q$<>"0" THEN GOTO 6170
6200 IF RIGHT=1 THEN LET TOT=TOT+1
6205 LET Q=5
6210 IF RIGHT=1 THEN LET Q=8
6230 FOR J=1 TO Q
6240 PRINT AT 14-J,17;"%1"
6241 PRINT AT 14-J,17;"% "
6250 NEXT J
6300 IF RIGHT=0 THEN GOTO 7000
6310 FOR J=15 TO 20
6320 PRINT AT 5,J;"\ .";AT 6,J;"\:'";AT 5,J;"% ";AT 6,J;"% "
6330 NEXT J
6350 PRINT AT 5,3;"%T%H%A%T% %W%A%S% %A% %C%O%R%R%E%C%T% %A%N%S%W%E%R"
6360 PRINT AT 8,3;"%I%N%V%A%D%E%R%S% %D%E%S%T%R%O%Y%E%D% %=% ";CHR$ (TOT+156)
6370 PRINT AT 16,3;"%P%R%E%S%S% %E%N%T%E%R% %C%A%P%T%.% ";N$
6380 INPUT A$
6382 GOSUB 9000
6386 IF TOT<9 THEN GOTO 520
6390 GOTO 8000
7000 FOR J=6 TO 13
7010 PRINT AT J,17;"%*";AT J,17;"% "
7020 NEXT J
7030 PRINT AT 12,19;"%O%H% %N%O%O%O%O"
7031 FOR J=15 TO 20
7032 PRINT AT 13,J;"\':";AT 13,J;"% ";AT 14,J;"\:'";AT 14,J;"% "
7034 NEXT J
7035 PRINT AT 12,19;"% % % % % % % % "
7039 PRINT AT 20,7;"                   "
7040 PRINT AT 19,2;"     THE CORRECT ANSWER      "
7041 PRINT AT 20,15;"                "
7042 PRINT AT 20,4;"     ";C$
7050 FOR J=1 TO 50
7055 NEXT J
7060 FOR J=15 TO 20
7067 PRINT AT 13,J;"% ";AT 14,J;"% "
7070 NEXT J
7074 GOSUB 9000
7080 LET P=148
7081 POKE 16542,P
7090 FOR J=5 TO 17
7095 LET F=USR 16538
7105 LET P1=INT (P/256)
7106 LET P2=((P/256)-P1)*256
7107 LET P=P+33
7110 POKE 16542,P2
7111 POKE 16543,P1
7120 NEXT J
7200 GOSUB 9000
7210 PRINT AT 5,6;"%T%H%E% %I%N%V%A%D%E%R% %H%A%S% %L%A%N%D%E%D"
7300 FOR J=1 TO 25
7400 NEXT J
7420 PRINT AT 0,0;
7440 GOSUB 10
7450 GOTO 9400
8000 PRINT AT 0,0;
8001 GOSUB 10
8003 PRINT AT 4,9;"%C%O%N%G%R%A%T%U%L%A%T%I%O%N%S"
8004 PRINT AT 7,3;"%Y%O%U% %A%R%E% %P%R%O%M%O%T%E%D% %T%O% %A%D%M%I%R%A%L"
8005 PRINT AT 10,6;"%T%H%E% %P%E%O%P%L%E% %T%H%A%N%K% %Y%O%U"
8009 PRINT AT 12,14;"%A%N%D"
8010 PRINT AT 15,4;"%T%H%E% %S%T%A%R% %C%O%U%N%C%I%L% %P%R%E%S%E%N%T%S"
8011 PRINT AT 17,6;"%Y%O%U% %T%H%I%S% %C%E%R%T%I%F%I%C%A%T%E"
8020 FOR J=1 TO 35
8030 NEXT J
8040 PRINT AT 0,0;
8050 GOSUB 10
8051 PRINT AT 16,3;"%I%S% %A% %P%R%I%N%T%E%R% %A%T%T%A%C%H%E%D%?";AT 18,3;"%E%N%T%E%R% %Y%E%S% %O%R% %N%O"
8052 INPUT L$
8053 PRINT AT 0,0;
8054 GOSUB 10
8055 PRINT AT 1,8;"T.S. RAIDER 1000"
8060 PRINT AT 4,6;"%P%R%O%M%O%T%I%O%N% %C%E%R%T%I%F%I%C%A%T%E"
8070 PRINT AT 7,3;"%T%H%I%S% %I%S% %P%R%O%O%F% %T%H%A%T% ";N$;AT 9,3;"%H%A%S% %S%A%V%E%D% %T%H%E% %E%A%R%T%H% %A%N%D% %I%S";AT 11,3;"%P%R%O%M%O%T%E%D% %T%O% %A%D%M%I%R%A%L%.";AT 17,12;"%U%N%I%T%E%D% %S%T%A%R% %C%O%U%N%C%I%L"
8080 PRINT AT 15,13;"%C%O%M%M%A%N%D%E%R% %R% %D%A%N%I%E%L"
8090 IF L$="YES" THEN COPY 
8100 FOR J=1 TO 55
8125 NEXT J
8200 PRINT AT 0,0;
8300 GOSUB 10
8400 GOTO 9400
8999 STOP 
9000 POKE 16521,137
9002 POKE 16522,136
9004 POKE 16523,138
9006 POKE 16524,136
9008 POKE 16525,137
9010 POKE 16528,138
9012 POKE 16529,151
9014 POKE 16530,138
9016 POKE 16542,134
9018 POKE 16543,0
9020 PRINT AT 0,0;
9024 RETURN 
9400 PRINT AT 4,3;"%D%O% %Y%O%U% %W%I%S%H% %T%O% "
9420 PRINT AT 7,5;"%1% %-% %P%L%A%Y% %A%G%A%I%N";AT 9,5;"%2% %-% %C%H%A%N%G%E% %W%E%A%P%O%N";AT 11,5;"%3% %-% %C%H%A%N%G%E% %L%E%V%E%L";AT 13,5;"%4% %-% %E%X%I%T% %P%R%O%G%R%A%M"
9430 PRINT AT 18,3;"%E%N%T%E%R% %N%U%M%B%E%R"
9440 INPUT F
9450 IF F>4 THEN GOTO 9400
9460 IF F=2 THEN GOSUB 200
9470 IF F=3 THEN GOSUB 300
9480 LET TOT=0
9490 IF F=1 THEN GOTO 520
9495 IF F=4 THEN STOP 
9500 PRINT AT 0,0;
9510 GOSUB 10
9520 GOTO 9400
9800 SAVE "MAT%H"
9900 PRINT AT 0,0;
9910 GOSUB 10
9920 PRINT AT 8,11;"%M%A%T%H% %T%U%T%O%R";AT 10,5;"%(%C%)%1%9%8%2% %R%U%D%O%L%P%H% %D%A%N%I%E%L"
9930 PAUSE 240
9940 PRINT AT 0,0;
9949 RUN 


					
				
			



						

				


Tags


Archived Media, Downloadable, Softsync, TS 1000




People



    Rudolph Daniel



					
				


			

			
		
	



	
 
	


	







		Scroll to Top























			
				


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Math Raiders 1000
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Math Raiders 1000
			
		


	
	
	


							

				

  
Download
  


Softsync, Inc.
Products: Computer Tutors: Math Raiders 1000
Developer(s): Rudolph Daniel
Date: 1982
Type: Cassette
Platform(s): TS 1000


					
				
		
		
							

				










Content









Appears On









Related Products




Computer Tutors: Math Raiders 1000
Math Raiders combines valuable math tutorial exercises with the fun of arcade games. You are the captain of the USS...








Related Articles









Related Content









Image Gallery




  
    
    
    
    






Source Code



  
   1 REM \80\80\80\80\80\80\80\03\09\9D\09\03\80\80\83\97\83\80\00\00\00\00\00\00\2A\0C\40\11\86\00\19\11\82\40\06\03\C5\06\06\1A\77\23\13\10\FA\D5\11\1B\00\19\D1\C1\10\EE\C9\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22
   2 LET RIGHT=0
   3 LET TOT=0
   6 DIM Z(4)
   7 DIM G(4)
   8 DIM Y(4)
   9 GOTO 63
  10 PRINT "\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##"
  20 FOR J=1 TO 20
  30 PRINT "\##% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % \##"
  40 NEXT J
  50 PRINT "\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##"
  60 RETURN 
  63 DIM D(5)
  64 DIM R(10)
  65 LET R(1)=4
  66 LET R(2)=6
  67 LET R(3)=7
  68 LET R(4)=8
  69 LET R(5)=9
  70 LET R(6)=11
  71 LET R(7)=12
  72 LET D(1)=2
  73 LET D(2)=3
  74 LET D(3)=5
  75 LET D(4)=10
  90 GOSUB 10
 100 PRINT AT 6,10;"%W%E%L%C%O%M%E% %H%U%M%A%N";AT 8,5;"%I% %A%M% %Y%O%U%R% %R%A%I%D%E%R% %1%0%0%0% % % % % \##\##% % % % % % % % %S%U%P%E%R%C%O%M%P%U%T%E%R% ";AT 11,6;"%I% %W%I%L%L% %H%E%L%P% %Y%O%U% %I%N% %Y%O%U%R% % \##\##% %M%I%S%S%I%O%N% %T%O%D%A%Y%."
 110 PRINT AT 17,3;"%P%L%E%A%S%E% %E%N%T%E%R% %Y%O%U%R% %N%A%M%E"
 120 INPUT N$
 125 PRINT AT 0,0;
 130 GOSUB 10
 131 FOR J=1 TO LEN N$
 132 LET N$(J)=CHR$ (CODE N$(J)+128)
 133 NEXT J
 135 PRINT AT 2,11;"%S%H%I%P%S% %L%O%G"
 140 PRINT AT 4,3;"%S%T%A%R% %D%A%T%E%-% %3%4%7%.%6%5%4"
 150 PRINT AT 6,3;"%C%A%P%T%A%I%N%-% ";N$
 160 PRINT AT 8,3;"%M%I%S%S%I%O%N% % %-% %T%O% %P%R%O%T%E%C%T% %T%H%E% % % \##\##% % % % % % % % % % % % % %P%L%A%N%E%T% %E%A%R%T%H"
 165 PRINT AT 11,3;"%S%H%I%P% % % %-% %U%.%S%.%S%.% %R%A%I%D%E%R% %1%0%0%0"
 170 PRINT AT 17,3;"%P%R%E%S%S% %E%N%T%E%R% ";N$
 171 INPUT A$
 172 PRINT AT 0,0;
 173 GOSUB 10
 174 PRINT AT 2,12;"%O%B%J%E%C%T";AT 5,4;"%T%O% %D%E%S%T%R%O%Y% %T%H%E% %I%N%V%A%D%E%R%S% %B%Y";AT 7,3;"%A%N%S%W%E%R%I%N%G% %T%H%E% %M%A%T%H% %P%R%O%B%L%E%M%S";AT 9,3;"%C%O%R%R%E%C%T%L%Y%.% % %I%F% %Y%O%U% %D%E%S%T%R%O%Y% ";AT 11,3;"%T%H%E% %W%A%V%E% %O%F% %9% %I%N%V%A%D%E%R%S% %Y%O%U";AT 13,3;"%W%I%L%L% %B%E% %P%R%O%M%O%T%E%D% %T%O% %A%D%M%I%R%A%L"
 175 PRINT AT 17,3;"%G%O%O%D% %L%U%C%K% %C%A%P%T%.% ";N$;AT 19,3;"%P%R%E%S%S% %E%N%T%E%R"
 180 INPUT A$
 190 GOTO 500
 200 PRINT AT 0,0;
 201 GOSUB 10
 210 PRINT AT 3,8;"%C%H%O%O%S%E% %W%E%A%P%O%N";AT 6,3;"%1% %-% %A%D%D%I%T%I%O%N";AT 8,3;"%2% %-% %S%U%B%T%R%A%C%T%I%O%N";AT 12,3;"%4% %-% %D%I%V%I%S%I%O%N";AT 10,3;"%3% %-% %M%U%L%T%I%P%L%I%C%A%T%I%O%N"
 220 PRINT AT 17,3;"%E%N%T%E%R% %N%U%M%B%E%R% ";N$
 230 INPUT T
 240 IF T>4 THEN GOTO 230
 250 RETURN 
 300 PRINT AT 0,0;
 301 GOSUB 10
 310 PRINT AT 5,9;"%C%H%O%O%S%E% %L%E%V%E%L";AT 8,4;"%1% %-% %E%A%S%Y";AT 10,4;"%2% %-% %A% %L%I%T%T%L%E% %H%A%R%D%E%R"
 320 PRINT AT 17,3;"%E%N%T%E%R% %N%U%M%B%E%R% ";N$
 330 INPUT L
 340 IF L>2 THEN GOTO 330
 350 RETURN 
 500 LET T0T=0
 505 GOSUB 200
 510 GOSUB 300
 520 GOSUB T*100+1000
 530 STOP 
1100 REM %A%D%D%I%T%I%O%N
1110 LET Y$=STR$ (INT (RND*(25*L))+10*L)
1115 LET Y=VAL Y$
1120 LET Z$=STR$ (INT (RND*(25*L))+10*L)
1121 LET Y$(1)=CHR$ (CODE Y$(1)+128)
1122 IF LEN Y$>=2 THEN LET Y$(2)=CHR$ (CODE Y$(2)+128)
1123 LET Z=VAL Z$
1124 LET Z$(1)=CHR$ (CODE Z$(1)+128)
1125 IF LEN Z$>=2 THEN LET Z$(2)=CHR$ (CODE Z$(2)+128)
1130 PRINT AT 0,0;
1140 GOSUB 10
1150 GOSUB 5000
1160 PRINT AT 9,13;Y$;AT 10,10;"% %+% ";AT 10,13+LEN Y$-LEN Z$;Z$;AT 11,10;"%-%-%-%-%-%-%-"
1170 PRINT AT 17,3;"%E%N%T%E%R% %Y%O%U%R% %A%N%S%W%E%R"
1180 INPUT A
1181 PRINT AT 12,13+LEN Y$-LEN STR$ A;A
1182 LET C$=STR$ Y+" + "+STR$ Z+" = "+STR$ (Y+Z)
1185 IF Y+Z=A THEN LET RIGHT=1
1186 IF Y+Z<>A THEN LET RIGHT=0
1190 GOTO 6000
1200 REM %S%U%B%T%R%A%C%T%I%O%N
1205 LET Y$=STR$ (INT (RND*(80*L))+20)
1210 LET Y=VAL Y$
1220 LET Z$=STR$ (INT (RND*Y)+1)
1230 IF Y-VAL Z$<6 AND L=2 THEN GOTO 1220
1235 LET Z=VAL Z$
1240 LET Y$(1)=CHR$ (CODE Y$(1)+128)
1241 IF LEN Y$>=2 THEN LET Y$(2)=CHR$ (CODE Y$(2)+128)
1242 LET Z$(1)=CHR$ (CODE Z$(1)+128)
1243 IF LEN Z$>=2 THEN LET Z$(2)=CHR$ (CODE Z$(2)+128)
1244 IF LEN Z$>=3 THEN LET Z$(3)=CHR$ (CODE Z$(3)+128)
1245 PRINT AT 0,0;
1246 GOSUB 10
1247 IF LEN Y$>=3 THEN LET Y$(3)=CHR$ (CODE Y$(3)+128)
1248 GOSUB 5000
1250 PRINT AT 9,13;Y$;AT 10,10;"% %-% ";AT 10,13+LEN Y$-LEN Z$;Z$;AT 11,10;"%-%-%-%-%-%-%-"
1260 PRINT AT 17,3;"%E%N%T%E%R% %A%N%S%W%E%R"
1265 INPUT A
1266 PRINT AT 12,13+LEN Y$-(LEN STR$ A);A
1267 LET C$=STR$ Y+" - "+STR$ Z+" = "+STR$ (Y-Z)
1270 IF Y-Z<>A THEN LET RIGHT=0
1271 IF Y-Z=A THEN LET RIGHT=1
1280 GOTO 6000
1300 REM %M%U%L%T%I%P%L%I%C%A%T%I%O%N
1303 IF L=1 THEN GOTO 1310
1305 LET Y$=STR$ (R(INT (RND*7)+1))
1306 LET Z$=STR$ (INT (RND*10)+7)
1307 GOTO 1320
1310 LET Y$=STR$ (INT (RND*11)+2)
1315 LET Z$=STR$ (D(INT (RND*4)+1))
1320 LET Y=VAL Y$
1322 LET Z=VAL Z$
1325 LET Y$(1)=CHR$ (CODE Y$(1)+128)
1326 IF LEN Y$>=2 THEN LET Y$(2)=CHR$ (CODE Y$(2)+128)
1328 LET Z$(1)=CHR$ (CODE Z$(1)+128)
1330 IF LEN Z$>=2 THEN LET Z$(2)=CHR$ (CODE Z$(2)+128)
1340 PRINT AT 0,0;
1341 GOSUB 10
1342 GOSUB 5000
1344 PRINT AT 9,13;Y$;AT 10,10;"% %X% ";Z$;AT 11,10;"%-%-%-%-%-%-%-"
1346 PRINT AT 17,3;"%E%N%T%E%R% %A%N%S%W%E%R"
1347 INPUT A
1348 PRINT AT 12,13+LEN Y$-LEN STR$ A;A
1349 LET C$=STR$ Y+" X "+STR$ Z+" = "+STR$ (Y*Z)
1350 IF A<>Y*Z THEN LET RIGHT=0
1352 IF A=Y*Z THEN LET RIGHT=1
1353 IF A<>Y*Z THEN LET RIGHT=0
1360 GOTO 6000
1400 LET Y$=STR$ (R(INT (RND*7)+1))
1405 LET Z$=STR$ ((INT (RND*11)+6))
1410 IF L=1 THEN LET Z$=STR$ (D(INT (RND*4)+1))
1415 LET Y=VAL Y$
1416 LET Z=VAL Z$
1417 LET G$=STR$ (Y*Z)
1418 LET G$(1)=CHR$ (CODE G$(1)+128)
1419 IF LEN G$>=2 THEN LET G$(2)=CHR$ (CODE G$(2)+128)
1420 IF LEN G$>=3 THEN LET G$(3)=CHR$ (CODE G$(3)+128)
1421 LET Y$(1)=CHR$ (CODE Y$(1)+128)
1422 IF LEN Y$>=2 THEN LET Y$(2)=CHR$ (CODE Y$(2)+128)
1423 PRINT AT 0,0;
1424 GOSUB 10
1430 GOSUB 5000
1440 PRINT AT 9,13;G$;"% %/% ";Y$;"% %=%?"
1442 PRINT AT 17,3;"%E%N%T%E%R% %A%N%S%W%E%R% ";N$
1445 INPUT A
1446 PRINT AT 9,18+LEN G$+LEN Y$;"% ";A
1447 LET C$=STR$ (Z*Y)+" / "+STR$ Y+" = "+STR$ Z
1448 IF A=Z THEN LET RIGHT=1
1449 IF A<>Z THEN LET RIGHT=0
1450 GOTO 6000
5000 REM %I%N%T%R%U%D%E%R% %A%L%E%R%T
5010 FOR J=1 TO 10
5020 PRINT AT 3,9;"%I%N%T%R%U%D%E%R% %A%L%E%R%T";AT 3,9;"INTRUDER ALERT"
5022 NEXT J
5024 FOR J=1 TO 24
5026 LET F=USR 16538
5028 POKE 16542,134+J
5030 NEXT J
5032 POKE 16542,134
5033 PRINT AT 5,25;"% % % % % ";AT 6,25;"% % % % % "
5040 PRINT AT 6,4;"%C%O%O%R%D%I%N%A%T%E% %I%S% %A%N%S%W%E%R% %:"
5045 PRINT AT 9,3;"%W%H%A%T% %I%S%:"
5050 RETURN 
6000 REM %R%M%D%A%N%I%E%L
6005 PRINT AT 0,0;
6010 GOSUB 10
6020 PRINT AT 18,1;"\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##"
6030 FOR J=1 TO 14
6040 LET F=USR 16538
6050 POKE 16542,134+J
6060 NEXT J
6070 POKE 16542,134
6080 PRINT AT 19,1;"      SENSORS LOCKED ON       "
6085 PRINT AT 20,16;"               "
6090 PRINT AT 20,1;"       COORDINATE ";A
6100 POKE 16521,3
6101 POKE 16522,9
6102 POKE 16523,157
6103 POKE 16524,9
6104 POKE 16525,3
6105 POKE 16528,131
6106 POKE 16529,151
6107 POKE 16530,131
6108 POKE 16542,142
6109 POKE 16543,1
6115 FOR J=1 TO 14
6118 LET F=USR 16538
6120 POKE 16542,J+142
6125 NEXT J
6126 POKE 16542,134
6127 POKE 16543,0
6140 PRINT AT 19,1;" MISSILE FIXED ON COORDINATE  "
6150 REM PAUSE
6160 PRINT AT 20,2;"      PRESS 0 TO FIRE    "
6170 LET Q$=INKEY$
6180 IF Q$<>"0" THEN GOTO 6170
6200 IF RIGHT=1 THEN LET TOT=TOT+1
6205 LET Q=5
6210 IF RIGHT=1 THEN LET Q=8
6230 FOR J=1 TO Q
6240 PRINT AT 14-J,17;"%1"
6241 PRINT AT 14-J,17;"% "
6250 NEXT J
6300 IF RIGHT=0 THEN GOTO 7000
6310 FOR J=15 TO 20
6320 PRINT AT 5,J;"\ .";AT 6,J;"\:'";AT 5,J;"% ";AT 6,J;"% "
6330 NEXT J
6350 PRINT AT 5,3;"%T%H%A%T% %W%A%S% %A% %C%O%R%R%E%C%T% %A%N%S%W%E%R"
6360 PRINT AT 8,3;"%I%N%V%A%D%E%R%S% %D%E%S%T%R%O%Y%E%D% %=% ";CHR$ (TOT+156)
6370 PRINT AT 16,3;"%P%R%E%S%S% %E%N%T%E%R% %C%A%P%T%.% ";N$
6380 INPUT A$
6382 GOSUB 9000
6386 IF TOT<9 THEN GOTO 520
6390 GOTO 8000
7000 FOR J=6 TO 13
7010 PRINT AT J,17;"%*";AT J,17;"% "
7020 NEXT J
7030 PRINT AT 12,19;"%O%H% %N%O%O%O%O"
7031 FOR J=15 TO 20
7032 PRINT AT 13,J;"\':";AT 13,J;"% ";AT 14,J;"\:'";AT 14,J;"% "
7034 NEXT J
7035 PRINT AT 12,19;"% % % % % % % % "
7039 PRINT AT 20,7;"                   "
7040 PRINT AT 19,2;"     THE CORRECT ANSWER      "
7041 PRINT AT 20,15;"                "
7042 PRINT AT 20,4;"     ";C$
7050 FOR J=1 TO 50
7055 NEXT J
7060 FOR J=15 TO 20
7067 PRINT AT 13,J;"% ";AT 14,J;"% "
7070 NEXT J
7074 GOSUB 9000
7080 LET P=148
7081 POKE 16542,P
7090 FOR J=5 TO 17
7095 LET F=USR 16538
7105 LET P1=INT (P/256)
7106 LET P2=((P/256)-P1)*256
7107 LET P=P+33
7110 POKE 16542,P2
7111 POKE 16543,P1
7120 NEXT J
7200 GOSUB 9000
7210 PRINT AT 5,6;"%T%H%E% %I%N%V%A%D%E%R% %H%A%S% %L%A%N%D%E%D"
7300 FOR J=1 TO 25
7400 NEXT J
7420 PRINT AT 0,0;
7440 GOSUB 10
7450 GOTO 9400
8000 PRINT AT 0,0;
8001 GOSUB 10
8003 PRINT AT 4,9;"%C%O%N%G%R%A%T%U%L%A%T%I%O%N%S"
8004 PRINT AT 7,3;"%Y%O%U% %A%R%E% %P%R%O%M%O%T%E%D% %T%O% %A%D%M%I%R%A%L"
8005 PRINT AT 10,6;"%T%H%E% %P%E%O%P%L%E% %T%H%A%N%K% %Y%O%U"
8009 PRINT AT 12,14;"%A%N%D"
8010 PRINT AT 15,4;"%T%H%E% %S%T%A%R% %C%O%U%N%C%I%L% %P%R%E%S%E%N%T%S"
8011 PRINT AT 17,6;"%Y%O%U% %T%H%I%S% %C%E%R%T%I%F%I%C%A%T%E"
8020 FOR J=1 TO 35
8030 NEXT J
8040 PRINT AT 0,0;
8050 GOSUB 10
8051 PRINT AT 16,3;"%I%S% %A% %P%R%I%N%T%E%R% %A%T%T%A%C%H%E%D%?";AT 18,3;"%E%N%T%E%R% %Y%E%S% %O%R% %N%O"
8052 INPUT L$
8053 PRINT AT 0,0;
8054 GOSUB 10
8055 PRINT AT 1,8;"T.S. RAIDER 1000"
8060 PRINT AT 4,6;"%P%R%O%M%O%T%I%O%N% %C%E%R%T%I%F%I%C%A%T%E"
8070 PRINT AT 7,3;"%T%H%I%S% %I%S% %P%R%O%O%F% %T%H%A%T% ";N$;AT 9,3;"%H%A%S% %S%A%V%E%D% %T%H%E% %E%A%R%T%H% %A%N%D% %I%S";AT 11,3;"%P%R%O%M%O%T%E%D% %T%O% %A%D%M%I%R%A%L%.";AT 17,12;"%U%N%I%T%E%D% %S%T%A%R% %C%O%U%N%C%I%L"
8080 PRINT AT 15,13;"%C%O%M%M%A%N%D%E%R% %R% %D%A%N%I%E%L"
8090 IF L$="YES" THEN COPY 
8100 FOR J=1 TO 55
8125 NEXT J
8200 PRINT AT 0,0;
8300 GOSUB 10
8400 GOTO 9400
8999 STOP 
9000 POKE 16521,137
9002 POKE 16522,136
9004 POKE 16523,138
9006 POKE 16524,136
9008 POKE 16525,137
9010 POKE 16528,138
9012 POKE 16529,151
9014 POKE 16530,138
9016 POKE 16542,134
9018 POKE 16543,0
9020 PRINT AT 0,0;
9024 RETURN 
9400 PRINT AT 4,3;"%D%O% %Y%O%U% %W%I%S%H% %T%O% "
9420 PRINT AT 7,5;"%1% %-% %P%L%A%Y% %A%G%A%I%N";AT 9,5;"%2% %-% %C%H%A%N%G%E% %W%E%A%P%O%N";AT 11,5;"%3% %-% %C%H%A%N%G%E% %L%E%V%E%L";AT 13,5;"%4% %-% %E%X%I%T% %P%R%O%G%R%A%M"
9430 PRINT AT 18,3;"%E%N%T%E%R% %N%U%M%B%E%R"
9440 INPUT F
9450 IF F>4 THEN GOTO 9400
9460 IF F=2 THEN GOSUB 200
9470 IF F=3 THEN GOSUB 300
9480 LET TOT=0
9490 IF F=1 THEN GOTO 520
9495 IF F=4 THEN STOP 
9500 PRINT AT 0,0;
9510 GOSUB 10
9520 GOTO 9400
9800 SAVE "MAT%H"
9900 PRINT AT 0,0;
9910 GOSUB 10
9920 PRINT AT 8,11;"%M%A%T%H% %T%U%T%O%R";AT 10,5;"%(%C%)%1%9%8%2% %R%U%D%O%L%P%H% %D%A%N%I%E%L"
9930 PAUSE 240
9940 PRINT AT 0,0;
9949 RUN 


					
				
			



						

				


Tags


Archived Media, Downloadable, Softsync, TS 1000




People



    Rudolph Daniel



					
				


			

			
		
	



	
 
	


	







		Scroll to Top























			
				


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Math Raiders 1000
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Math Raiders 1000
			
		


	
	
	


							

				

  
Download
  


Softsync, Inc.
Products: Computer Tutors: Math Raiders 1000
Developer(s): Rudolph Daniel
Date: 1982
Type: Cassette
Platform(s): TS 1000


					
				
		
		
							

				










Content









Appears On









Related Products




Computer Tutors: Math Raiders 1000
Math Raiders combines valuable math tutorial exercises with the fun of arcade games. You are the captain of the USS...








Related Articles









Related Content









Image Gallery




  
    
    
    
    






Source Code



  
   1 REM \80\80\80\80\80\80\80\03\09\9D\09\03\80\80\83\97\83\80\00\00\00\00\00\00\2A\0C\40\11\86\00\19\11\82\40\06\03\C5\06\06\1A\77\23\13\10\FA\D5\11\1B\00\19\D1\C1\10\EE\C9\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22
   2 LET RIGHT=0
   3 LET TOT=0
   6 DIM Z(4)
   7 DIM G(4)
   8 DIM Y(4)
   9 GOTO 63
  10 PRINT "\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##"
  20 FOR J=1 TO 20
  30 PRINT "\##% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % \##"
  40 NEXT J
  50 PRINT "\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##"
  60 RETURN 
  63 DIM D(5)
  64 DIM R(10)
  65 LET R(1)=4
  66 LET R(2)=6
  67 LET R(3)=7
  68 LET R(4)=8
  69 LET R(5)=9
  70 LET R(6)=11
  71 LET R(7)=12
  72 LET D(1)=2
  73 LET D(2)=3
  74 LET D(3)=5
  75 LET D(4)=10
  90 GOSUB 10
 100 PRINT AT 6,10;"%W%E%L%C%O%M%E% %H%U%M%A%N";AT 8,5;"%I% %A%M% %Y%O%U%R% %R%A%I%D%E%R% %1%0%0%0% % % % % \##\##% % % % % % % % %S%U%P%E%R%C%O%M%P%U%T%E%R% ";AT 11,6;"%I% %W%I%L%L% %H%E%L%P% %Y%O%U% %I%N% %Y%O%U%R% % \##\##% %M%I%S%S%I%O%N% %T%O%D%A%Y%."
 110 PRINT AT 17,3;"%P%L%E%A%S%E% %E%N%T%E%R% %Y%O%U%R% %N%A%M%E"
 120 INPUT N$
 125 PRINT AT 0,0;
 130 GOSUB 10
 131 FOR J=1 TO LEN N$
 132 LET N$(J)=CHR$ (CODE N$(J)+128)
 133 NEXT J
 135 PRINT AT 2,11;"%S%H%I%P%S% %L%O%G"
 140 PRINT AT 4,3;"%S%T%A%R% %D%A%T%E%-% %3%4%7%.%6%5%4"
 150 PRINT AT 6,3;"%C%A%P%T%A%I%N%-% ";N$
 160 PRINT AT 8,3;"%M%I%S%S%I%O%N% % %-% %T%O% %P%R%O%T%E%C%T% %T%H%E% % % \##\##% % % % % % % % % % % % % %P%L%A%N%E%T% %E%A%R%T%H"
 165 PRINT AT 11,3;"%S%H%I%P% % % %-% %U%.%S%.%S%.% %R%A%I%D%E%R% %1%0%0%0"
 170 PRINT AT 17,3;"%P%R%E%S%S% %E%N%T%E%R% ";N$
 171 INPUT A$
 172 PRINT AT 0,0;
 173 GOSUB 10
 174 PRINT AT 2,12;"%O%B%J%E%C%T";AT 5,4;"%T%O% %D%E%S%T%R%O%Y% %T%H%E% %I%N%V%A%D%E%R%S% %B%Y";AT 7,3;"%A%N%S%W%E%R%I%N%G% %T%H%E% %M%A%T%H% %P%R%O%B%L%E%M%S";AT 9,3;"%C%O%R%R%E%C%T%L%Y%.% % %I%F% %Y%O%U% %D%E%S%T%R%O%Y% ";AT 11,3;"%T%H%E% %W%A%V%E% %O%F% %9% %I%N%V%A%D%E%R%S% %Y%O%U";AT 13,3;"%W%I%L%L% %B%E% %P%R%O%M%O%T%E%D% %T%O% %A%D%M%I%R%A%L"
 175 PRINT AT 17,3;"%G%O%O%D% %L%U%C%K% %C%A%P%T%.% ";N$;AT 19,3;"%P%R%E%S%S% %E%N%T%E%R"
 180 INPUT A$
 190 GOTO 500
 200 PRINT AT 0,0;
 201 GOSUB 10
 210 PRINT AT 3,8;"%C%H%O%O%S%E% %W%E%A%P%O%N";AT 6,3;"%1% %-% %A%D%D%I%T%I%O%N";AT 8,3;"%2% %-% %S%U%B%T%R%A%C%T%I%O%N";AT 12,3;"%4% %-% %D%I%V%I%S%I%O%N";AT 10,3;"%3% %-% %M%U%L%T%I%P%L%I%C%A%T%I%O%N"
 220 PRINT AT 17,3;"%E%N%T%E%R% %N%U%M%B%E%R% ";N$
 230 INPUT T
 240 IF T>4 THEN GOTO 230
 250 RETURN 
 300 PRINT AT 0,0;
 301 GOSUB 10
 310 PRINT AT 5,9;"%C%H%O%O%S%E% %L%E%V%E%L";AT 8,4;"%1% %-% %E%A%S%Y";AT 10,4;"%2% %-% %A% %L%I%T%T%L%E% %H%A%R%D%E%R"
 320 PRINT AT 17,3;"%E%N%T%E%R% %N%U%M%B%E%R% ";N$
 330 INPUT L
 340 IF L>2 THEN GOTO 330
 350 RETURN 
 500 LET T0T=0
 505 GOSUB 200
 510 GOSUB 300
 520 GOSUB T*100+1000
 530 STOP 
1100 REM %A%D%D%I%T%I%O%N
1110 LET Y$=STR$ (INT (RND*(25*L))+10*L)
1115 LET Y=VAL Y$
1120 LET Z$=STR$ (INT (RND*(25*L))+10*L)
1121 LET Y$(1)=CHR$ (CODE Y$(1)+128)
1122 IF LEN Y$>=2 THEN LET Y$(2)=CHR$ (CODE Y$(2)+128)
1123 LET Z=VAL Z$
1124 LET Z$(1)=CHR$ (CODE Z$(1)+128)
1125 IF LEN Z$>=2 THEN LET Z$(2)=CHR$ (CODE Z$(2)+128)
1130 PRINT AT 0,0;
1140 GOSUB 10
1150 GOSUB 5000
1160 PRINT AT 9,13;Y$;AT 10,10;"% %+% ";AT 10,13+LEN Y$-LEN Z$;Z$;AT 11,10;"%-%-%-%-%-%-%-"
1170 PRINT AT 17,3;"%E%N%T%E%R% %Y%O%U%R% %A%N%S%W%E%R"
1180 INPUT A
1181 PRINT AT 12,13+LEN Y$-LEN STR$ A;A
1182 LET C$=STR$ Y+" + "+STR$ Z+" = "+STR$ (Y+Z)
1185 IF Y+Z=A THEN LET RIGHT=1
1186 IF Y+Z<>A THEN LET RIGHT=0
1190 GOTO 6000
1200 REM %S%U%B%T%R%A%C%T%I%O%N
1205 LET Y$=STR$ (INT (RND*(80*L))+20)
1210 LET Y=VAL Y$
1220 LET Z$=STR$ (INT (RND*Y)+1)
1230 IF Y-VAL Z$<6 AND L=2 THEN GOTO 1220
1235 LET Z=VAL Z$
1240 LET Y$(1)=CHR$ (CODE Y$(1)+128)
1241 IF LEN Y$>=2 THEN LET Y$(2)=CHR$ (CODE Y$(2)+128)
1242 LET Z$(1)=CHR$ (CODE Z$(1)+128)
1243 IF LEN Z$>=2 THEN LET Z$(2)=CHR$ (CODE Z$(2)+128)
1244 IF LEN Z$>=3 THEN LET Z$(3)=CHR$ (CODE Z$(3)+128)
1245 PRINT AT 0,0;
1246 GOSUB 10
1247 IF LEN Y$>=3 THEN LET Y$(3)=CHR$ (CODE Y$(3)+128)
1248 GOSUB 5000
1250 PRINT AT 9,13;Y$;AT 10,10;"% %-% ";AT 10,13+LEN Y$-LEN Z$;Z$;AT 11,10;"%-%-%-%-%-%-%-"
1260 PRINT AT 17,3;"%E%N%T%E%R% %A%N%S%W%E%R"
1265 INPUT A
1266 PRINT AT 12,13+LEN Y$-(LEN STR$ A);A
1267 LET C$=STR$ Y+" - "+STR$ Z+" = "+STR$ (Y-Z)
1270 IF Y-Z<>A THEN LET RIGHT=0
1271 IF Y-Z=A THEN LET RIGHT=1
1280 GOTO 6000
1300 REM %M%U%L%T%I%P%L%I%C%A%T%I%O%N
1303 IF L=1 THEN GOTO 1310
1305 LET Y$=STR$ (R(INT (RND*7)+1))
1306 LET Z$=STR$ (INT (RND*10)+7)
1307 GOTO 1320
1310 LET Y$=STR$ (INT (RND*11)+2)
1315 LET Z$=STR$ (D(INT (RND*4)+1))
1320 LET Y=VAL Y$
1322 LET Z=VAL Z$
1325 LET Y$(1)=CHR$ (CODE Y$(1)+128)
1326 IF LEN Y$>=2 THEN LET Y$(2)=CHR$ (CODE Y$(2)+128)
1328 LET Z$(1)=CHR$ (CODE Z$(1)+128)
1330 IF LEN Z$>=2 THEN LET Z$(2)=CHR$ (CODE Z$(2)+128)
1340 PRINT AT 0,0;
1341 GOSUB 10
1342 GOSUB 5000
1344 PRINT AT 9,13;Y$;AT 10,10;"% %X% ";Z$;AT 11,10;"%-%-%-%-%-%-%-"
1346 PRINT AT 17,3;"%E%N%T%E%R% %A%N%S%W%E%R"
1347 INPUT A
1348 PRINT AT 12,13+LEN Y$-LEN STR$ A;A
1349 LET C$=STR$ Y+" X "+STR$ Z+" = "+STR$ (Y*Z)
1350 IF A<>Y*Z THEN LET RIGHT=0
1352 IF A=Y*Z THEN LET RIGHT=1
1353 IF A<>Y*Z THEN LET RIGHT=0
1360 GOTO 6000
1400 LET Y$=STR$ (R(INT (RND*7)+1))
1405 LET Z$=STR$ ((INT (RND*11)+6))
1410 IF L=1 THEN LET Z$=STR$ (D(INT (RND*4)+1))
1415 LET Y=VAL Y$
1416 LET Z=VAL Z$
1417 LET G$=STR$ (Y*Z)
1418 LET G$(1)=CHR$ (CODE G$(1)+128)
1419 IF LEN G$>=2 THEN LET G$(2)=CHR$ (CODE G$(2)+128)
1420 IF LEN G$>=3 THEN LET G$(3)=CHR$ (CODE G$(3)+128)
1421 LET Y$(1)=CHR$ (CODE Y$(1)+128)
1422 IF LEN Y$>=2 THEN LET Y$(2)=CHR$ (CODE Y$(2)+128)
1423 PRINT AT 0,0;
1424 GOSUB 10
1430 GOSUB 5000
1440 PRINT AT 9,13;G$;"% %/% ";Y$;"% %=%?"
1442 PRINT AT 17,3;"%E%N%T%E%R% %A%N%S%W%E%R% ";N$
1445 INPUT A
1446 PRINT AT 9,18+LEN G$+LEN Y$;"% ";A
1447 LET C$=STR$ (Z*Y)+" / "+STR$ Y+" = "+STR$ Z
1448 IF A=Z THEN LET RIGHT=1
1449 IF A<>Z THEN LET RIGHT=0
1450 GOTO 6000
5000 REM %I%N%T%R%U%D%E%R% %A%L%E%R%T
5010 FOR J=1 TO 10
5020 PRINT AT 3,9;"%I%N%T%R%U%D%E%R% %A%L%E%R%T";AT 3,9;"INTRUDER ALERT"
5022 NEXT J
5024 FOR J=1 TO 24
5026 LET F=USR 16538
5028 POKE 16542,134+J
5030 NEXT J
5032 POKE 16542,134
5033 PRINT AT 5,25;"% % % % % ";AT 6,25;"% % % % % "
5040 PRINT AT 6,4;"%C%O%O%R%D%I%N%A%T%E% %I%S% %A%N%S%W%E%R% %:"
5045 PRINT AT 9,3;"%W%H%A%T% %I%S%:"
5050 RETURN 
6000 REM %R%M%D%A%N%I%E%L
6005 PRINT AT 0,0;
6010 GOSUB 10
6020 PRINT AT 18,1;"\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##"
6030 FOR J=1 TO 14
6040 LET F=USR 16538
6050 POKE 16542,134+J
6060 NEXT J
6070 POKE 16542,134
6080 PRINT AT 19,1;"      SENSORS LOCKED ON       "
6085 PRINT AT 20,16;"               "
6090 PRINT AT 20,1;"       COORDINATE ";A
6100 POKE 16521,3
6101 POKE 16522,9
6102 POKE 16523,157
6103 POKE 16524,9
6104 POKE 16525,3
6105 POKE 16528,131
6106 POKE 16529,151
6107 POKE 16530,131
6108 POKE 16542,142
6109 POKE 16543,1
6115 FOR J=1 TO 14
6118 LET F=USR 16538
6120 POKE 16542,J+142
6125 NEXT J
6126 POKE 16542,134
6127 POKE 16543,0
6140 PRINT AT 19,1;" MISSILE FIXED ON COORDINATE  "
6150 REM PAUSE
6160 PRINT AT 20,2;"      PRESS 0 TO FIRE    "
6170 LET Q$=INKEY$
6180 IF Q$<>"0" THEN GOTO 6170
6200 IF RIGHT=1 THEN LET TOT=TOT+1
6205 LET Q=5
6210 IF RIGHT=1 THEN LET Q=8
6230 FOR J=1 TO Q
6240 PRINT AT 14-J,17;"%1"
6241 PRINT AT 14-J,17;"% "
6250 NEXT J
6300 IF RIGHT=0 THEN GOTO 7000
6310 FOR J=15 TO 20
6320 PRINT AT 5,J;"\ .";AT 6,J;"\:'";AT 5,J;"% ";AT 6,J;"% "
6330 NEXT J
6350 PRINT AT 5,3;"%T%H%A%T% %W%A%S% %A% %C%O%R%R%E%C%T% %A%N%S%W%E%R"
6360 PRINT AT 8,3;"%I%N%V%A%D%E%R%S% %D%E%S%T%R%O%Y%E%D% %=% ";CHR$ (TOT+156)
6370 PRINT AT 16,3;"%P%R%E%S%S% %E%N%T%E%R% %C%A%P%T%.% ";N$
6380 INPUT A$
6382 GOSUB 9000
6386 IF TOT<9 THEN GOTO 520
6390 GOTO 8000
7000 FOR J=6 TO 13
7010 PRINT AT J,17;"%*";AT J,17;"% "
7020 NEXT J
7030 PRINT AT 12,19;"%O%H% %N%O%O%O%O"
7031 FOR J=15 TO 20
7032 PRINT AT 13,J;"\':";AT 13,J;"% ";AT 14,J;"\:'";AT 14,J;"% "
7034 NEXT J
7035 PRINT AT 12,19;"% % % % % % % % "
7039 PRINT AT 20,7;"                   "
7040 PRINT AT 19,2;"     THE CORRECT ANSWER      "
7041 PRINT AT 20,15;"                "
7042 PRINT AT 20,4;"     ";C$
7050 FOR J=1 TO 50
7055 NEXT J
7060 FOR J=15 TO 20
7067 PRINT AT 13,J;"% ";AT 14,J;"% "
7070 NEXT J
7074 GOSUB 9000
7080 LET P=148
7081 POKE 16542,P
7090 FOR J=5 TO 17
7095 LET F=USR 16538
7105 LET P1=INT (P/256)
7106 LET P2=((P/256)-P1)*256
7107 LET P=P+33
7110 POKE 16542,P2
7111 POKE 16543,P1
7120 NEXT J
7200 GOSUB 9000
7210 PRINT AT 5,6;"%T%H%E% %I%N%V%A%D%E%R% %H%A%S% %L%A%N%D%E%D"
7300 FOR J=1 TO 25
7400 NEXT J
7420 PRINT AT 0,0;
7440 GOSUB 10
7450 GOTO 9400
8000 PRINT AT 0,0;
8001 GOSUB 10
8003 PRINT AT 4,9;"%C%O%N%G%R%A%T%U%L%A%T%I%O%N%S"
8004 PRINT AT 7,3;"%Y%O%U% %A%R%E% %P%R%O%M%O%T%E%D% %T%O% %A%D%M%I%R%A%L"
8005 PRINT AT 10,6;"%T%H%E% %P%E%O%P%L%E% %T%H%A%N%K% %Y%O%U"
8009 PRINT AT 12,14;"%A%N%D"
8010 PRINT AT 15,4;"%T%H%E% %S%T%A%R% %C%O%U%N%C%I%L% %P%R%E%S%E%N%T%S"
8011 PRINT AT 17,6;"%Y%O%U% %T%H%I%S% %C%E%R%T%I%F%I%C%A%T%E"
8020 FOR J=1 TO 35
8030 NEXT J
8040 PRINT AT 0,0;
8050 GOSUB 10
8051 PRINT AT 16,3;"%I%S% %A% %P%R%I%N%T%E%R% %A%T%T%A%C%H%E%D%?";AT 18,3;"%E%N%T%E%R% %Y%E%S% %O%R% %N%O"
8052 INPUT L$
8053 PRINT AT 0,0;
8054 GOSUB 10
8055 PRINT AT 1,8;"T.S. RAIDER 1000"
8060 PRINT AT 4,6;"%P%R%O%M%O%T%I%O%N% %C%E%R%T%I%F%I%C%A%T%E"
8070 PRINT AT 7,3;"%T%H%I%S% %I%S% %P%R%O%O%F% %T%H%A%T% ";N$;AT 9,3;"%H%A%S% %S%A%V%E%D% %T%H%E% %E%A%R%T%H% %A%N%D% %I%S";AT 11,3;"%P%R%O%M%O%T%E%D% %T%O% %A%D%M%I%R%A%L%.";AT 17,12;"%U%N%I%T%E%D% %S%T%A%R% %C%O%U%N%C%I%L"
8080 PRINT AT 15,13;"%C%O%M%M%A%N%D%E%R% %R% %D%A%N%I%E%L"
8090 IF L$="YES" THEN COPY 
8100 FOR J=1 TO 55
8125 NEXT J
8200 PRINT AT 0,0;
8300 GOSUB 10
8400 GOTO 9400
8999 STOP 
9000 POKE 16521,137
9002 POKE 16522,136
9004 POKE 16523,138
9006 POKE 16524,136
9008 POKE 16525,137
9010 POKE 16528,138
9012 POKE 16529,151
9014 POKE 16530,138
9016 POKE 16542,134
9018 POKE 16543,0
9020 PRINT AT 0,0;
9024 RETURN 
9400 PRINT AT 4,3;"%D%O% %Y%O%U% %W%I%S%H% %T%O% "
9420 PRINT AT 7,5;"%1% %-% %P%L%A%Y% %A%G%A%I%N";AT 9,5;"%2% %-% %C%H%A%N%G%E% %W%E%A%P%O%N";AT 11,5;"%3% %-% %C%H%A%N%G%E% %L%E%V%E%L";AT 13,5;"%4% %-% %E%X%I%T% %P%R%O%G%R%A%M"
9430 PRINT AT 18,3;"%E%N%T%E%R% %N%U%M%B%E%R"
9440 INPUT F
9450 IF F>4 THEN GOTO 9400
9460 IF F=2 THEN GOSUB 200
9470 IF F=3 THEN GOSUB 300
9480 LET TOT=0
9490 IF F=1 THEN GOTO 520
9495 IF F=4 THEN STOP 
9500 PRINT AT 0,0;
9510 GOSUB 10
9520 GOTO 9400
9800 SAVE "MAT%H"
9900 PRINT AT 0,0;
9910 GOSUB 10
9920 PRINT AT 8,11;"%M%A%T%H% %T%U%T%O%R";AT 10,5;"%(%C%)%1%9%8%2% %R%U%D%O%L%P%H% %D%A%N%I%E%L"
9930 PAUSE 240
9940 PRINT AT 0,0;
9949 RUN 


					
				
			



						

				


Tags


Archived Media, Downloadable, Softsync, TS 1000




People



    Rudolph Daniel



					
				


			

			
		
	



	
 
	


	







		Scroll to Top























			
				A


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Math Raiders 1000
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Math Raiders 1000
			
		


	
	
	


							

				

  
Download
  


Softsync, Inc.
Products: Computer Tutors: Math Raiders 1000
Developer(s): Rudolph Daniel
Date: 1982
Type: Cassette
Platform(s): TS 1000


					
				
		
		
							

				










Content









Appears On









Related Products




Computer Tutors: Math Raiders 1000
Math Raiders combines valuable math tutorial exercises with the fun of arcade games. You are the captain of the USS...








Related Articles









Related Content









Image Gallery




  
    
    
    
    






Source Code



  
   1 REM \80\80\80\80\80\80\80\03\09\9D\09\03\80\80\83\97\83\80\00\00\00\00\00\00\2A\0C\40\11\86\00\19\11\82\40\06\03\C5\06\06\1A\77\23\13\10\FA\D5\11\1B\00\19\D1\C1\10\EE\C9\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22
   2 LET RIGHT=0
   3 LET TOT=0
   6 DIM Z(4)
   7 DIM G(4)
   8 DIM Y(4)
   9 GOTO 63
  10 PRINT "\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##"
  20 FOR J=1 TO 20
  30 PRINT "\##% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % \##"
  40 NEXT J
  50 PRINT "\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##"
  60 RETURN 
  63 DIM D(5)
  64 DIM R(10)
  65 LET R(1)=4
  66 LET R(2)=6
  67 LET R(3)=7
  68 LET R(4)=8
  69 LET R(5)=9
  70 LET R(6)=11
  71 LET R(7)=12
  72 LET D(1)=2
  73 LET D(2)=3
  74 LET D(3)=5
  75 LET D(4)=10
  90 GOSUB 10
 100 PRINT AT 6,10;"%W%E%L%C%O%M%E% %H%U%M%A%N";AT 8,5;"%I% %A%M% %Y%O%U%R% %R%A%I%D%E%R% %1%0%0%0% % % % % \##\##% % % % % % % % %S%U%P%E%R%C%O%M%P%U%T%E%R% ";AT 11,6;"%I% %W%I%L%L% %H%E%L%P% %Y%O%U% %I%N% %Y%O%U%R% % \##\##% %M%I%S%S%I%O%N% %T%O%D%A%Y%."
 110 PRINT AT 17,3;"%P%L%E%A%S%E% %E%N%T%E%R% %Y%O%U%R% %N%A%M%E"
 120 INPUT N$
 125 PRINT AT 0,0;
 130 GOSUB 10
 131 FOR J=1 TO LEN N$
 132 LET N$(J)=CHR$ (CODE N$(J)+128)
 133 NEXT J
 135 PRINT AT 2,11;"%S%H%I%P%S% %L%O%G"
 140 PRINT AT 4,3;"%S%T%A%R% %D%A%T%E%-% %3%4%7%.%6%5%4"
 150 PRINT AT 6,3;"%C%A%P%T%A%I%N%-% ";N$
 160 PRINT AT 8,3;"%M%I%S%S%I%O%N% % %-% %T%O% %P%R%O%T%E%C%T% %T%H%E% % % \##\##% % % % % % % % % % % % % %P%L%A%N%E%T% %E%A%R%T%H"
 165 PRINT AT 11,3;"%S%H%I%P% % % %-% %U%.%S%.%S%.% %R%A%I%D%E%R% %1%0%0%0"
 170 PRINT AT 17,3;"%P%R%E%S%S% %E%N%T%E%R% ";N$
 171 INPUT A$
 172 PRINT AT 0,0;
 173 GOSUB 10
 174 PRINT AT 2,12;"%O%B%J%E%C%T";AT 5,4;"%T%O% %D%E%S%T%R%O%Y% %T%H%E% %I%N%V%A%D%E%R%S% %B%Y";AT 7,3;"%A%N%S%W%E%R%I%N%G% %T%H%E% %M%A%T%H% %P%R%O%B%L%E%M%S";AT 9,3;"%C%O%R%R%E%C%T%L%Y%.% % %I%F% %Y%O%U% %D%E%S%T%R%O%Y% ";AT 11,3;"%T%H%E% %W%A%V%E% %O%F% %9% %I%N%V%A%D%E%R%S% %Y%O%U";AT 13,3;"%W%I%L%L% %B%E% %P%R%O%M%O%T%E%D% %T%O% %A%D%M%I%R%A%L"
 175 PRINT AT 17,3;"%G%O%O%D% %L%U%C%K% %C%A%P%T%.% ";N$;AT 19,3;"%P%R%E%S%S% %E%N%T%E%R"
 180 INPUT A$
 190 GOTO 500
 200 PRINT AT 0,0;
 201 GOSUB 10
 210 PRINT AT 3,8;"%C%H%O%O%S%E% %W%E%A%P%O%N";AT 6,3;"%1% %-% %A%D%D%I%T%I%O%N";AT 8,3;"%2% %-% %S%U%B%T%R%A%C%T%I%O%N";AT 12,3;"%4% %-% %D%I%V%I%S%I%O%N";AT 10,3;"%3% %-% %M%U%L%T%I%P%L%I%C%A%T%I%O%N"
 220 PRINT AT 17,3;"%E%N%T%E%R% %N%U%M%B%E%R% ";N$
 230 INPUT T
 240 IF T>4 THEN GOTO 230
 250 RETURN 
 300 PRINT AT 0,0;
 301 GOSUB 10
 310 PRINT AT 5,9;"%C%H%O%O%S%E% %L%E%V%E%L";AT 8,4;"%1% %-% %E%A%S%Y";AT 10,4;"%2% %-% %A% %L%I%T%T%L%E% %H%A%R%D%E%R"
 320 PRINT AT 17,3;"%E%N%T%E%R% %N%U%M%B%E%R% ";N$
 330 INPUT L
 340 IF L>2 THEN GOTO 330
 350 RETURN 
 500 LET T0T=0
 505 GOSUB 200
 510 GOSUB 300
 520 GOSUB T*100+1000
 530 STOP 
1100 REM %A%D%D%I%T%I%O%N
1110 LET Y$=STR$ (INT (RND*(25*L))+10*L)
1115 LET Y=VAL Y$
1120 LET Z$=STR$ (INT (RND*(25*L))+10*L)
1121 LET Y$(1)=CHR$ (CODE Y$(1)+128)
1122 IF LEN Y$>=2 THEN LET Y$(2)=CHR$ (CODE Y$(2)+128)
1123 LET Z=VAL Z$
1124 LET Z$(1)=CHR$ (CODE Z$(1)+128)
1125 IF LEN Z$>=2 THEN LET Z$(2)=CHR$ (CODE Z$(2)+128)
1130 PRINT AT 0,0;
1140 GOSUB 10
1150 GOSUB 5000
1160 PRINT AT 9,13;Y$;AT 10,10;"% %+% ";AT 10,13+LEN Y$-LEN Z$;Z$;AT 11,10;"%-%-%-%-%-%-%-"
1170 PRINT AT 17,3;"%E%N%T%E%R% %Y%O%U%R% %A%N%S%W%E%R"
1180 INPUT A
1181 PRINT AT 12,13+LEN Y$-LEN STR$ A;A
1182 LET C$=STR$ Y+" + "+STR$ Z+" = "+STR$ (Y+Z)
1185 IF Y+Z=A THEN LET RIGHT=1
1186 IF Y+Z<>A THEN LET RIGHT=0
1190 GOTO 6000
1200 REM %S%U%B%T%R%A%C%T%I%O%N
1205 LET Y$=STR$ (INT (RND*(80*L))+20)
1210 LET Y=VAL Y$
1220 LET Z$=STR$ (INT (RND*Y)+1)
1230 IF Y-VAL Z$<6 AND L=2 THEN GOTO 1220
1235 LET Z=VAL Z$
1240 LET Y$(1)=CHR$ (CODE Y$(1)+128)
1241 IF LEN Y$>=2 THEN LET Y$(2)=CHR$ (CODE Y$(2)+128)
1242 LET Z$(1)=CHR$ (CODE Z$(1)+128)
1243 IF LEN Z$>=2 THEN LET Z$(2)=CHR$ (CODE Z$(2)+128)
1244 IF LEN Z$>=3 THEN LET Z$(3)=CHR$ (CODE Z$(3)+128)
1245 PRINT AT 0,0;
1246 GOSUB 10
1247 IF LEN Y$>=3 THEN LET Y$(3)=CHR$ (CODE Y$(3)+128)
1248 GOSUB 5000
1250 PRINT AT 9,13;Y$;AT 10,10;"% %-% ";AT 10,13+LEN Y$-LEN Z$;Z$;AT 11,10;"%-%-%-%-%-%-%-"
1260 PRINT AT 17,3;"%E%N%T%E%R% %A%N%S%W%E%R"
1265 INPUT A
1266 PRINT AT 12,13+LEN Y$-(LEN STR$ A);A
1267 LET C$=STR$ Y+" - "+STR$ Z+" = "+STR$ (Y-Z)
1270 IF Y-Z<>A THEN LET RIGHT=0
1271 IF Y-Z=A THEN LET RIGHT=1
1280 GOTO 6000
1300 REM %M%U%L%T%I%P%L%I%C%A%T%I%O%N
1303 IF L=1 THEN GOTO 1310
1305 LET Y$=STR$ (R(INT (RND*7)+1))
1306 LET Z$=STR$ (INT (RND*10)+7)
1307 GOTO 1320
1310 LET Y$=STR$ (INT (RND*11)+2)
1315 LET Z$=STR$ (D(INT (RND*4)+1))
1320 LET Y=VAL Y$
1322 LET Z=VAL Z$
1325 LET Y$(1)=CHR$ (CODE Y$(1)+128)
1326 IF LEN Y$>=2 THEN LET Y$(2)=CHR$ (CODE Y$(2)+128)
1328 LET Z$(1)=CHR$ (CODE Z$(1)+128)
1330 IF LEN Z$>=2 THEN LET Z$(2)=CHR$ (CODE Z$(2)+128)
1340 PRINT AT 0,0;
1341 GOSUB 10
1342 GOSUB 5000
1344 PRINT AT 9,13;Y$;AT 10,10;"% %X% ";Z$;AT 11,10;"%-%-%-%-%-%-%-"
1346 PRINT AT 17,3;"%E%N%T%E%R% %A%N%S%W%E%R"
1347 INPUT A
1348 PRINT AT 12,13+LEN Y$-LEN STR$ A;A
1349 LET C$=STR$ Y+" X "+STR$ Z+" = "+STR$ (Y*Z)
1350 IF A<>Y*Z THEN LET RIGHT=0
1352 IF A=Y*Z THEN LET RIGHT=1
1353 IF A<>Y*Z THEN LET RIGHT=0
1360 GOTO 6000
1400 LET Y$=STR$ (R(INT (RND*7)+1))
1405 LET Z$=STR$ ((INT (RND*11)+6))
1410 IF L=1 THEN LET Z$=STR$ (D(INT (RND*4)+1))
1415 LET Y=VAL Y$
1416 LET Z=VAL Z$
1417 LET G$=STR$ (Y*Z)
1418 LET G$(1)=CHR$ (CODE G$(1)+128)
1419 IF LEN G$>=2 THEN LET G$(2)=CHR$ (CODE G$(2)+128)
1420 IF LEN G$>=3 THEN LET G$(3)=CHR$ (CODE G$(3)+128)
1421 LET Y$(1)=CHR$ (CODE Y$(1)+128)
1422 IF LEN Y$>=2 THEN LET Y$(2)=CHR$ (CODE Y$(2)+128)
1423 PRINT AT 0,0;
1424 GOSUB 10
1430 GOSUB 5000
1440 PRINT AT 9,13;G$;"% %/% ";Y$;"% %=%?"
1442 PRINT AT 17,3;"%E%N%T%E%R% %A%N%S%W%E%R% ";N$
1445 INPUT A
1446 PRINT AT 9,18+LEN G$+LEN Y$;"% ";A
1447 LET C$=STR$ (Z*Y)+" / "+STR$ Y+" = "+STR$ Z
1448 IF A=Z THEN LET RIGHT=1
1449 IF A<>Z THEN LET RIGHT=0
1450 GOTO 6000
5000 REM %I%N%T%R%U%D%E%R% %A%L%E%R%T
5010 FOR J=1 TO 10
5020 PRINT AT 3,9;"%I%N%T%R%U%D%E%R% %A%L%E%R%T";AT 3,9;"INTRUDER ALERT"
5022 NEXT J
5024 FOR J=1 TO 24
5026 LET F=USR 16538
5028 POKE 16542,134+J
5030 NEXT J
5032 POKE 16542,134
5033 PRINT AT 5,25;"% % % % % ";AT 6,25;"% % % % % "
5040 PRINT AT 6,4;"%C%O%O%R%D%I%N%A%T%E% %I%S% %A%N%S%W%E%R% %:"
5045 PRINT AT 9,3;"%W%H%A%T% %I%S%:"
5050 RETURN 
6000 REM %R%M%D%A%N%I%E%L
6005 PRINT AT 0,0;
6010 GOSUB 10
6020 PRINT AT 18,1;"\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##"
6030 FOR J=1 TO 14
6040 LET F=USR 16538
6050 POKE 16542,134+J
6060 NEXT J
6070 POKE 16542,134
6080 PRINT AT 19,1;"      SENSORS LOCKED ON       "
6085 PRINT AT 20,16;"               "
6090 PRINT AT 20,1;"       COORDINATE ";A
6100 POKE 16521,3
6101 POKE 16522,9
6102 POKE 16523,157
6103 POKE 16524,9
6104 POKE 16525,3
6105 POKE 16528,131
6106 POKE 16529,151
6107 POKE 16530,131
6108 POKE 16542,142
6109 POKE 16543,1
6115 FOR J=1 TO 14
6118 LET F=USR 16538
6120 POKE 16542,J+142
6125 NEXT J
6126 POKE 16542,134
6127 POKE 16543,0
6140 PRINT AT 19,1;" MISSILE FIXED ON COORDINATE  "
6150 REM PAUSE
6160 PRINT AT 20,2;"      PRESS 0 TO FIRE    "
6170 LET Q$=INKEY$
6180 IF Q$<>"0" THEN GOTO 6170
6200 IF RIGHT=1 THEN LET TOT=TOT+1
6205 LET Q=5
6210 IF RIGHT=1 THEN LET Q=8
6230 FOR J=1 TO Q
6240 PRINT AT 14-J,17;"%1"
6241 PRINT AT 14-J,17;"% "
6250 NEXT J
6300 IF RIGHT=0 THEN GOTO 7000
6310 FOR J=15 TO 20
6320 PRINT AT 5,J;"\ .";AT 6,J;"\:'";AT 5,J;"% ";AT 6,J;"% "
6330 NEXT J
6350 PRINT AT 5,3;"%T%H%A%T% %W%A%S% %A% %C%O%R%R%E%C%T% %A%N%S%W%E%R"
6360 PRINT AT 8,3;"%I%N%V%A%D%E%R%S% %D%E%S%T%R%O%Y%E%D% %=% ";CHR$ (TOT+156)
6370 PRINT AT 16,3;"%P%R%E%S%S% %E%N%T%E%R% %C%A%P%T%.% ";N$
6380 INPUT A$
6382 GOSUB 9000
6386 IF TOT<9 THEN GOTO 520
6390 GOTO 8000
7000 FOR J=6 TO 13
7010 PRINT AT J,17;"%*";AT J,17;"% "
7020 NEXT J
7030 PRINT AT 12,19;"%O%H% %N%O%O%O%O"
7031 FOR J=15 TO 20
7032 PRINT AT 13,J;"\':";AT 13,J;"% ";AT 14,J;"\:'";AT 14,J;"% "
7034 NEXT J
7035 PRINT AT 12,19;"% % % % % % % % "
7039 PRINT AT 20,7;"                   "
7040 PRINT AT 19,2;"     THE CORRECT ANSWER      "
7041 PRINT AT 20,15;"                "
7042 PRINT AT 20,4;"     ";C$
7050 FOR J=1 TO 50
7055 NEXT J
7060 FOR J=15 TO 20
7067 PRINT AT 13,J;"% ";AT 14,J;"% "
7070 NEXT J
7074 GOSUB 9000
7080 LET P=148
7081 POKE 16542,P
7090 FOR J=5 TO 17
7095 LET F=USR 16538
7105 LET P1=INT (P/256)
7106 LET P2=((P/256)-P1)*256
7107 LET P=P+33
7110 POKE 16542,P2
7111 POKE 16543,P1
7120 NEXT J
7200 GOSUB 9000
7210 PRINT AT 5,6;"%T%H%E% %I%N%V%A%D%E%R% %H%A%S% %L%A%N%D%E%D"
7300 FOR J=1 TO 25
7400 NEXT J
7420 PRINT AT 0,0;
7440 GOSUB 10
7450 GOTO 9400
8000 PRINT AT 0,0;
8001 GOSUB 10
8003 PRINT AT 4,9;"%C%O%N%G%R%A%T%U%L%A%T%I%O%N%S"
8004 PRINT AT 7,3;"%Y%O%U% %A%R%E% %P%R%O%M%O%T%E%D% %T%O% %A%D%M%I%R%A%L"
8005 PRINT AT 10,6;"%T%H%E% %P%E%O%P%L%E% %T%H%A%N%K% %Y%O%U"
8009 PRINT AT 12,14;"%A%N%D"
8010 PRINT AT 15,4;"%T%H%E% %S%T%A%R% %C%O%U%N%C%I%L% %P%R%E%S%E%N%T%S"
8011 PRINT AT 17,6;"%Y%O%U% %T%H%I%S% %C%E%R%T%I%F%I%C%A%T%E"
8020 FOR J=1 TO 35
8030 NEXT J
8040 PRINT AT 0,0;
8050 GOSUB 10
8051 PRINT AT 16,3;"%I%S% %A% %P%R%I%N%T%E%R% %A%T%T%A%C%H%E%D%?";AT 18,3;"%E%N%T%E%R% %Y%E%S% %O%R% %N%O"
8052 INPUT L$
8053 PRINT AT 0,0;
8054 GOSUB 10
8055 PRINT AT 1,8;"T.S. RAIDER 1000"
8060 PRINT AT 4,6;"%P%R%O%M%O%T%I%O%N% %C%E%R%T%I%F%I%C%A%T%E"
8070 PRINT AT 7,3;"%T%H%I%S% %I%S% %P%R%O%O%F% %T%H%A%T% ";N$;AT 9,3;"%H%A%S% %S%A%V%E%D% %T%H%E% %E%A%R%T%H% %A%N%D% %I%S";AT 11,3;"%P%R%O%M%O%T%E%D% %T%O% %A%D%M%I%R%A%L%.";AT 17,12;"%U%N%I%T%E%D% %S%T%A%R% %C%O%U%N%C%I%L"
8080 PRINT AT 15,13;"%C%O%M%M%A%N%D%E%R% %R% %D%A%N%I%E%L"
8090 IF L$="YES" THEN COPY 
8100 FOR J=1 TO 55
8125 NEXT J
8200 PRINT AT 0,0;
8300 GOSUB 10
8400 GOTO 9400
8999 STOP 
9000 POKE 16521,137
9002 POKE 16522,136
9004 POKE 16523,138
9006 POKE 16524,136
9008 POKE 16525,137
9010 POKE 16528,138
9012 POKE 16529,151
9014 POKE 16530,138
9016 POKE 16542,134
9018 POKE 16543,0
9020 PRINT AT 0,0;
9024 RETURN 
9400 PRINT AT 4,3;"%D%O% %Y%O%U% %W%I%S%H% %T%O% "
9420 PRINT AT 7,5;"%1% %-% %P%L%A%Y% %A%G%A%I%N";AT 9,5;"%2% %-% %C%H%A%N%G%E% %W%E%A%P%O%N";AT 11,5;"%3% %-% %C%H%A%N%G%E% %L%E%V%E%L";AT 13,5;"%4% %-% %E%X%I%T% %P%R%O%G%R%A%M"
9430 PRINT AT 18,3;"%E%N%T%E%R% %N%U%M%B%E%R"
9440 INPUT F
9450 IF F>4 THEN GOTO 9400
9460 IF F=2 THEN GOSUB 200
9470 IF F=3 THEN GOSUB 300
9480 LET TOT=0
9490 IF F=1 THEN GOTO 520
9495 IF F=4 THEN STOP 
9500 PRINT AT 0,0;
9510 GOSUB 10
9520 GOTO 9400
9800 SAVE "MAT%H"
9900 PRINT AT 0,0;
9910 GOSUB 10
9920 PRINT AT 8,11;"%M%A%T%H% %T%U%T%O%R";AT 10,5;"%(%C%)%1%9%8%2% %R%U%D%O%L%P%H% %D%A%N%I%E%L"
9930 PAUSE 240
9940 PRINT AT 0,0;
9949 RUN 


					
				
			



						

				


Tags


Archived Media, Downloadable, Softsync, TS 1000




People



    Rudolph Daniel



					
				


			

			
		
	



	
 
	


	







		Scroll to Top























			
				C


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Math Raiders 1000
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Math Raiders 1000
			
		


	
	
	


							

				

  
Download
  


Softsync, Inc.
Products: Computer Tutors: Math Raiders 1000
Developer(s): Rudolph Daniel
Date: 1982
Type: Cassette
Platform(s): TS 1000


					
				
		
		
							

				










Content









Appears On









Related Products




Computer Tutors: Math Raiders 1000
Math Raiders combines valuable math tutorial exercises with the fun of arcade games. You are the captain of the USS...








Related Articles









Related Content









Image Gallery




  
    
    
    
    






Source Code



  
   1 REM \80\80\80\80\80\80\80\03\09\9D\09\03\80\80\83\97\83\80\00\00\00\00\00\00\2A\0C\40\11\86\00\19\11\82\40\06\03\C5\06\06\1A\77\23\13\10\FA\D5\11\1B\00\19\D1\C1\10\EE\C9\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22
   2 LET RIGHT=0
   3 LET TOT=0
   6 DIM Z(4)
   7 DIM G(4)
   8 DIM Y(4)
   9 GOTO 63
  10 PRINT "\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##"
  20 FOR J=1 TO 20
  30 PRINT "\##% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % \##"
  40 NEXT J
  50 PRINT "\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##"
  60 RETURN 
  63 DIM D(5)
  64 DIM R(10)
  65 LET R(1)=4
  66 LET R(2)=6
  67 LET R(3)=7
  68 LET R(4)=8
  69 LET R(5)=9
  70 LET R(6)=11
  71 LET R(7)=12
  72 LET D(1)=2
  73 LET D(2)=3
  74 LET D(3)=5
  75 LET D(4)=10
  90 GOSUB 10
 100 PRINT AT 6,10;"%W%E%L%C%O%M%E% %H%U%M%A%N";AT 8,5;"%I% %A%M% %Y%O%U%R% %R%A%I%D%E%R% %1%0%0%0% % % % % \##\##% % % % % % % % %S%U%P%E%R%C%O%M%P%U%T%E%R% ";AT 11,6;"%I% %W%I%L%L% %H%E%L%P% %Y%O%U% %I%N% %Y%O%U%R% % \##\##% %M%I%S%S%I%O%N% %T%O%D%A%Y%."
 110 PRINT AT 17,3;"%P%L%E%A%S%E% %E%N%T%E%R% %Y%O%U%R% %N%A%M%E"
 120 INPUT N$
 125 PRINT AT 0,0;
 130 GOSUB 10
 131 FOR J=1 TO LEN N$
 132 LET N$(J)=CHR$ (CODE N$(J)+128)
 133 NEXT J
 135 PRINT AT 2,11;"%S%H%I%P%S% %L%O%G"
 140 PRINT AT 4,3;"%S%T%A%R% %D%A%T%E%-% %3%4%7%.%6%5%4"
 150 PRINT AT 6,3;"%C%A%P%T%A%I%N%-% ";N$
 160 PRINT AT 8,3;"%M%I%S%S%I%O%N% % %-% %T%O% %P%R%O%T%E%C%T% %T%H%E% % % \##\##% % % % % % % % % % % % % %P%L%A%N%E%T% %E%A%R%T%H"
 165 PRINT AT 11,3;"%S%H%I%P% % % %-% %U%.%S%.%S%.% %R%A%I%D%E%R% %1%0%0%0"
 170 PRINT AT 17,3;"%P%R%E%S%S% %E%N%T%E%R% ";N$
 171 INPUT A$
 172 PRINT AT 0,0;
 173 GOSUB 10
 174 PRINT AT 2,12;"%O%B%J%E%C%T";AT 5,4;"%T%O% %D%E%S%T%R%O%Y% %T%H%E% %I%N%V%A%D%E%R%S% %B%Y";AT 7,3;"%A%N%S%W%E%R%I%N%G% %T%H%E% %M%A%T%H% %P%R%O%B%L%E%M%S";AT 9,3;"%C%O%R%R%E%C%T%L%Y%.% % %I%F% %Y%O%U% %D%E%S%T%R%O%Y% ";AT 11,3;"%T%H%E% %W%A%V%E% %O%F% %9% %I%N%V%A%D%E%R%S% %Y%O%U";AT 13,3;"%W%I%L%L% %B%E% %P%R%O%M%O%T%E%D% %T%O% %A%D%M%I%R%A%L"
 175 PRINT AT 17,3;"%G%O%O%D% %L%U%C%K% %C%A%P%T%.% ";N$;AT 19,3;"%P%R%E%S%S% %E%N%T%E%R"
 180 INPUT A$
 190 GOTO 500
 200 PRINT AT 0,0;
 201 GOSUB 10
 210 PRINT AT 3,8;"%C%H%O%O%S%E% %W%E%A%P%O%N";AT 6,3;"%1% %-% %A%D%D%I%T%I%O%N";AT 8,3;"%2% %-% %S%U%B%T%R%A%C%T%I%O%N";AT 12,3;"%4% %-% %D%I%V%I%S%I%O%N";AT 10,3;"%3% %-% %M%U%L%T%I%P%L%I%C%A%T%I%O%N"
 220 PRINT AT 17,3;"%E%N%T%E%R% %N%U%M%B%E%R% ";N$
 230 INPUT T
 240 IF T>4 THEN GOTO 230
 250 RETURN 
 300 PRINT AT 0,0;
 301 GOSUB 10
 310 PRINT AT 5,9;"%C%H%O%O%S%E% %L%E%V%E%L";AT 8,4;"%1% %-% %E%A%S%Y";AT 10,4;"%2% %-% %A% %L%I%T%T%L%E% %H%A%R%D%E%R"
 320 PRINT AT 17,3;"%E%N%T%E%R% %N%U%M%B%E%R% ";N$
 330 INPUT L
 340 IF L>2 THEN GOTO 330
 350 RETURN 
 500 LET T0T=0
 505 GOSUB 200
 510 GOSUB 300
 520 GOSUB T*100+1000
 530 STOP 
1100 REM %A%D%D%I%T%I%O%N
1110 LET Y$=STR$ (INT (RND*(25*L))+10*L)
1115 LET Y=VAL Y$
1120 LET Z$=STR$ (INT (RND*(25*L))+10*L)
1121 LET Y$(1)=CHR$ (CODE Y$(1)+128)
1122 IF LEN Y$>=2 THEN LET Y$(2)=CHR$ (CODE Y$(2)+128)
1123 LET Z=VAL Z$
1124 LET Z$(1)=CHR$ (CODE Z$(1)+128)
1125 IF LEN Z$>=2 THEN LET Z$(2)=CHR$ (CODE Z$(2)+128)
1130 PRINT AT 0,0;
1140 GOSUB 10
1150 GOSUB 5000
1160 PRINT AT 9,13;Y$;AT 10,10;"% %+% ";AT 10,13+LEN Y$-LEN Z$;Z$;AT 11,10;"%-%-%-%-%-%-%-"
1170 PRINT AT 17,3;"%E%N%T%E%R% %Y%O%U%R% %A%N%S%W%E%R"
1180 INPUT A
1181 PRINT AT 12,13+LEN Y$-LEN STR$ A;A
1182 LET C$=STR$ Y+" + "+STR$ Z+" = "+STR$ (Y+Z)
1185 IF Y+Z=A THEN LET RIGHT=1
1186 IF Y+Z<>A THEN LET RIGHT=0
1190 GOTO 6000
1200 REM %S%U%B%T%R%A%C%T%I%O%N
1205 LET Y$=STR$ (INT (RND*(80*L))+20)
1210 LET Y=VAL Y$
1220 LET Z$=STR$ (INT (RND*Y)+1)
1230 IF Y-VAL Z$<6 AND L=2 THEN GOTO 1220
1235 LET Z=VAL Z$
1240 LET Y$(1)=CHR$ (CODE Y$(1)+128)
1241 IF LEN Y$>=2 THEN LET Y$(2)=CHR$ (CODE Y$(2)+128)
1242 LET Z$(1)=CHR$ (CODE Z$(1)+128)
1243 IF LEN Z$>=2 THEN LET Z$(2)=CHR$ (CODE Z$(2)+128)
1244 IF LEN Z$>=3 THEN LET Z$(3)=CHR$ (CODE Z$(3)+128)
1245 PRINT AT 0,0;
1246 GOSUB 10
1247 IF LEN Y$>=3 THEN LET Y$(3)=CHR$ (CODE Y$(3)+128)
1248 GOSUB 5000
1250 PRINT AT 9,13;Y$;AT 10,10;"% %-% ";AT 10,13+LEN Y$-LEN Z$;Z$;AT 11,10;"%-%-%-%-%-%-%-"
1260 PRINT AT 17,3;"%E%N%T%E%R% %A%N%S%W%E%R"
1265 INPUT A
1266 PRINT AT 12,13+LEN Y$-(LEN STR$ A);A
1267 LET C$=STR$ Y+" - "+STR$ Z+" = "+STR$ (Y-Z)
1270 IF Y-Z<>A THEN LET RIGHT=0
1271 IF Y-Z=A THEN LET RIGHT=1
1280 GOTO 6000
1300 REM %M%U%L%T%I%P%L%I%C%A%T%I%O%N
1303 IF L=1 THEN GOTO 1310
1305 LET Y$=STR$ (R(INT (RND*7)+1))
1306 LET Z$=STR$ (INT (RND*10)+7)
1307 GOTO 1320
1310 LET Y$=STR$ (INT (RND*11)+2)
1315 LET Z$=STR$ (D(INT (RND*4)+1))
1320 LET Y=VAL Y$
1322 LET Z=VAL Z$
1325 LET Y$(1)=CHR$ (CODE Y$(1)+128)
1326 IF LEN Y$>=2 THEN LET Y$(2)=CHR$ (CODE Y$(2)+128)
1328 LET Z$(1)=CHR$ (CODE Z$(1)+128)
1330 IF LEN Z$>=2 THEN LET Z$(2)=CHR$ (CODE Z$(2)+128)
1340 PRINT AT 0,0;
1341 GOSUB 10
1342 GOSUB 5000
1344 PRINT AT 9,13;Y$;AT 10,10;"% %X% ";Z$;AT 11,10;"%-%-%-%-%-%-%-"
1346 PRINT AT 17,3;"%E%N%T%E%R% %A%N%S%W%E%R"
1347 INPUT A
1348 PRINT AT 12,13+LEN Y$-LEN STR$ A;A
1349 LET C$=STR$ Y+" X "+STR$ Z+" = "+STR$ (Y*Z)
1350 IF A<>Y*Z THEN LET RIGHT=0
1352 IF A=Y*Z THEN LET RIGHT=1
1353 IF A<>Y*Z THEN LET RIGHT=0
1360 GOTO 6000
1400 LET Y$=STR$ (R(INT (RND*7)+1))
1405 LET Z$=STR$ ((INT (RND*11)+6))
1410 IF L=1 THEN LET Z$=STR$ (D(INT (RND*4)+1))
1415 LET Y=VAL Y$
1416 LET Z=VAL Z$
1417 LET G$=STR$ (Y*Z)
1418 LET G$(1)=CHR$ (CODE G$(1)+128)
1419 IF LEN G$>=2 THEN LET G$(2)=CHR$ (CODE G$(2)+128)
1420 IF LEN G$>=3 THEN LET G$(3)=CHR$ (CODE G$(3)+128)
1421 LET Y$(1)=CHR$ (CODE Y$(1)+128)
1422 IF LEN Y$>=2 THEN LET Y$(2)=CHR$ (CODE Y$(2)+128)
1423 PRINT AT 0,0;
1424 GOSUB 10
1430 GOSUB 5000
1440 PRINT AT 9,13;G$;"% %/% ";Y$;"% %=%?"
1442 PRINT AT 17,3;"%E%N%T%E%R% %A%N%S%W%E%R% ";N$
1445 INPUT A
1446 PRINT AT 9,18+LEN G$+LEN Y$;"% ";A
1447 LET C$=STR$ (Z*Y)+" / "+STR$ Y+" = "+STR$ Z
1448 IF A=Z THEN LET RIGHT=1
1449 IF A<>Z THEN LET RIGHT=0
1450 GOTO 6000
5000 REM %I%N%T%R%U%D%E%R% %A%L%E%R%T
5010 FOR J=1 TO 10
5020 PRINT AT 3,9;"%I%N%T%R%U%D%E%R% %A%L%E%R%T";AT 3,9;"INTRUDER ALERT"
5022 NEXT J
5024 FOR J=1 TO 24
5026 LET F=USR 16538
5028 POKE 16542,134+J
5030 NEXT J
5032 POKE 16542,134
5033 PRINT AT 5,25;"% % % % % ";AT 6,25;"% % % % % "
5040 PRINT AT 6,4;"%C%O%O%R%D%I%N%A%T%E% %I%S% %A%N%S%W%E%R% %:"
5045 PRINT AT 9,3;"%W%H%A%T% %I%S%:"
5050 RETURN 
6000 REM %R%M%D%A%N%I%E%L
6005 PRINT AT 0,0;
6010 GOSUB 10
6020 PRINT AT 18,1;"\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##"
6030 FOR J=1 TO 14
6040 LET F=USR 16538
6050 POKE 16542,134+J
6060 NEXT J
6070 POKE 16542,134
6080 PRINT AT 19,1;"      SENSORS LOCKED ON       "
6085 PRINT AT 20,16;"               "
6090 PRINT AT 20,1;"       COORDINATE ";A
6100 POKE 16521,3
6101 POKE 16522,9
6102 POKE 16523,157
6103 POKE 16524,9
6104 POKE 16525,3
6105 POKE 16528,131
6106 POKE 16529,151
6107 POKE 16530,131
6108 POKE 16542,142
6109 POKE 16543,1
6115 FOR J=1 TO 14
6118 LET F=USR 16538
6120 POKE 16542,J+142
6125 NEXT J
6126 POKE 16542,134
6127 POKE 16543,0
6140 PRINT AT 19,1;" MISSILE FIXED ON COORDINATE  "
6150 REM PAUSE
6160 PRINT AT 20,2;"      PRESS 0 TO FIRE    "
6170 LET Q$=INKEY$
6180 IF Q$<>"0" THEN GOTO 6170
6200 IF RIGHT=1 THEN LET TOT=TOT+1
6205 LET Q=5
6210 IF RIGHT=1 THEN LET Q=8
6230 FOR J=1 TO Q
6240 PRINT AT 14-J,17;"%1"
6241 PRINT AT 14-J,17;"% "
6250 NEXT J
6300 IF RIGHT=0 THEN GOTO 7000
6310 FOR J=15 TO 20
6320 PRINT AT 5,J;"\ .";AT 6,J;"\:'";AT 5,J;"% ";AT 6,J;"% "
6330 NEXT J
6350 PRINT AT 5,3;"%T%H%A%T% %W%A%S% %A% %C%O%R%R%E%C%T% %A%N%S%W%E%R"
6360 PRINT AT 8,3;"%I%N%V%A%D%E%R%S% %D%E%S%T%R%O%Y%E%D% %=% ";CHR$ (TOT+156)
6370 PRINT AT 16,3;"%P%R%E%S%S% %E%N%T%E%R% %C%A%P%T%.% ";N$
6380 INPUT A$
6382 GOSUB 9000
6386 IF TOT<9 THEN GOTO 520
6390 GOTO 8000
7000 FOR J=6 TO 13
7010 PRINT AT J,17;"%*";AT J,17;"% "
7020 NEXT J
7030 PRINT AT 12,19;"%O%H% %N%O%O%O%O"
7031 FOR J=15 TO 20
7032 PRINT AT 13,J;"\':";AT 13,J;"% ";AT 14,J;"\:'";AT 14,J;"% "
7034 NEXT J
7035 PRINT AT 12,19;"% % % % % % % % "
7039 PRINT AT 20,7;"                   "
7040 PRINT AT 19,2;"     THE CORRECT ANSWER      "
7041 PRINT AT 20,15;"                "
7042 PRINT AT 20,4;"     ";C$
7050 FOR J=1 TO 50
7055 NEXT J
7060 FOR J=15 TO 20
7067 PRINT AT 13,J;"% ";AT 14,J;"% "
7070 NEXT J
7074 GOSUB 9000
7080 LET P=148
7081 POKE 16542,P
7090 FOR J=5 TO 17
7095 LET F=USR 16538
7105 LET P1=INT (P/256)
7106 LET P2=((P/256)-P1)*256
7107 LET P=P+33
7110 POKE 16542,P2
7111 POKE 16543,P1
7120 NEXT J
7200 GOSUB 9000
7210 PRINT AT 5,6;"%T%H%E% %I%N%V%A%D%E%R% %H%A%S% %L%A%N%D%E%D"
7300 FOR J=1 TO 25
7400 NEXT J
7420 PRINT AT 0,0;
7440 GOSUB 10
7450 GOTO 9400
8000 PRINT AT 0,0;
8001 GOSUB 10
8003 PRINT AT 4,9;"%C%O%N%G%R%A%T%U%L%A%T%I%O%N%S"
8004 PRINT AT 7,3;"%Y%O%U% %A%R%E% %P%R%O%M%O%T%E%D% %T%O% %A%D%M%I%R%A%L"
8005 PRINT AT 10,6;"%T%H%E% %P%E%O%P%L%E% %T%H%A%N%K% %Y%O%U"
8009 PRINT AT 12,14;"%A%N%D"
8010 PRINT AT 15,4;"%T%H%E% %S%T%A%R% %C%O%U%N%C%I%L% %P%R%E%S%E%N%T%S"
8011 PRINT AT 17,6;"%Y%O%U% %T%H%I%S% %C%E%R%T%I%F%I%C%A%T%E"
8020 FOR J=1 TO 35
8030 NEXT J
8040 PRINT AT 0,0;
8050 GOSUB 10
8051 PRINT AT 16,3;"%I%S% %A% %P%R%I%N%T%E%R% %A%T%T%A%C%H%E%D%?";AT 18,3;"%E%N%T%E%R% %Y%E%S% %O%R% %N%O"
8052 INPUT L$
8053 PRINT AT 0,0;
8054 GOSUB 10
8055 PRINT AT 1,8;"T.S. RAIDER 1000"
8060 PRINT AT 4,6;"%P%R%O%M%O%T%I%O%N% %C%E%R%T%I%F%I%C%A%T%E"
8070 PRINT AT 7,3;"%T%H%I%S% %I%S% %P%R%O%O%F% %T%H%A%T% ";N$;AT 9,3;"%H%A%S% %S%A%V%E%D% %T%H%E% %E%A%R%T%H% %A%N%D% %I%S";AT 11,3;"%P%R%O%M%O%T%E%D% %T%O% %A%D%M%I%R%A%L%.";AT 17,12;"%U%N%I%T%E%D% %S%T%A%R% %C%O%U%N%C%I%L"
8080 PRINT AT 15,13;"%C%O%M%M%A%N%D%E%R% %R% %D%A%N%I%E%L"
8090 IF L$="YES" THEN COPY 
8100 FOR J=1 TO 55
8125 NEXT J
8200 PRINT AT 0,0;
8300 GOSUB 10
8400 GOTO 9400
8999 STOP 
9000 POKE 16521,137
9002 POKE 16522,136
9004 POKE 16523,138
9006 POKE 16524,136
9008 POKE 16525,137
9010 POKE 16528,138
9012 POKE 16529,151
9014 POKE 16530,138
9016 POKE 16542,134
9018 POKE 16543,0
9020 PRINT AT 0,0;
9024 RETURN 
9400 PRINT AT 4,3;"%D%O% %Y%O%U% %W%I%S%H% %T%O% "
9420 PRINT AT 7,5;"%1% %-% %P%L%A%Y% %A%G%A%I%N";AT 9,5;"%2% %-% %C%H%A%N%G%E% %W%E%A%P%O%N";AT 11,5;"%3% %-% %C%H%A%N%G%E% %L%E%V%E%L";AT 13,5;"%4% %-% %E%X%I%T% %P%R%O%G%R%A%M"
9430 PRINT AT 18,3;"%E%N%T%E%R% %N%U%M%B%E%R"
9440 INPUT F
9450 IF F>4 THEN GOTO 9400
9460 IF F=2 THEN GOSUB 200
9470 IF F=3 THEN GOSUB 300
9480 LET TOT=0
9490 IF F=1 THEN GOTO 520
9495 IF F=4 THEN STOP 
9500 PRINT AT 0,0;
9510 GOSUB 10
9520 GOTO 9400
9800 SAVE "MAT%H"
9900 PRINT AT 0,0;
9910 GOSUB 10
9920 PRINT AT 8,11;"%M%A%T%H% %T%U%T%O%R";AT 10,5;"%(%C%)%1%9%8%2% %R%U%D%O%L%P%H% %D%A%N%I%E%L"
9930 PAUSE 240
9940 PRINT AT 0,0;
9949 RUN 


					
				
			



						

				


Tags


Archived Media, Downloadable, Softsync, TS 1000




People



    Rudolph Daniel



					
				


			

			
		
	



	
 
	


	







		Scroll to Top























			
				\C5 itemtype='https://schema.org/Blog' itemscope='itemscope' class="computer_media-template-default single single-computer_media postid-56698 wp-custom-logo ast-desktop ast-page-builder-template ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"A\FA\D5 itemtype='https://schema.org/Blog' itemscope='itemscope' class="computer_media-template-default single single-computer_media postid-56698 wp-custom-logo ast-desktop ast-page-builder-template ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"B


		Skip to content


			

			

		

		

						

				

											

									

							

					

						
						

				The Authoritative Website
			
				
				
			
					
								
																								

															
												
					
								
			
	
 

		

		

									

													

										

							

					

						
						

				The Authoritative Website
			
				
				
			
					
									
																									

										

						

				
					Main Menu
					
											
									
			
					
									
											
						
	
				

						

			
		
				

			
Log in
		
				

			
Sign upSign up
		
					
			
		

			

		

							

				

                                
                                    Home
                                
                                
                             » 
                                    Computer Media
                                    
                                 » 
                                    Math Raiders 1000
                                    
                                
					
				

	

	

		
		
	




	


		
					

				



	
	


	
	
		


			
			
Math Raiders 1000
			
		


	
	
	


							

				

  
Download
  


Softsync, Inc.
Products: Computer Tutors: Math Raiders 1000
Developer(s): Rudolph Daniel
Date: 1982
Type: Cassette
Platform(s): TS 1000


					
				
		
		
							

				










Content









Appears On









Related Products




Computer Tutors: Math Raiders 1000
Math Raiders combines valuable math tutorial exercises with the fun of arcade games. You are the captain of the USS...








Related Articles









Related Content









Image Gallery




  
    
    
    
    






Source Code



  
   1 REM \80\80\80\80\80\80\80\03\09\9D\09\03\80\80\83\97\83\80\00\00\00\00\00\00\2A\0C\40\11\86\00\19\11\82\40\06\03\C5\06\06\1A\77\23\13\10\FA\D5\11\1B\00\19\D1\C1\10\EE\C9\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22\22
   2 LET RIGHT=0
   3 LET TOT=0
   6 DIM Z(4)
   7 DIM G(4)
   8 DIM Y(4)
   9 GOTO 63
  10 PRINT "\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##"
  20 FOR J=1 TO 20
  30 PRINT "\##% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % \##"
  40 NEXT J
  50 PRINT "\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##"
  60 RETURN 
  63 DIM D(5)
  64 DIM R(10)
  65 LET R(1)=4
  66 LET R(2)=6
  67 LET R(3)=7
  68 LET R(4)=8
  69 LET R(5)=9
  70 LET R(6)=11
  71 LET R(7)=12
  72 LET D(1)=2
  73 LET D(2)=3
  74 LET D(3)=5
  75 LET D(4)=10
  90 GOSUB 10
 100 PRINT AT 6,10;"%W%E%L%C%O%M%E% %H%U%M%A%N";AT 8,5;"%I% %A%M% %Y%O%U%R% %R%A%I%D%E%R% %1%0%0%0% % % % % \##\##% % % % % % % % %S%U%P%E%R%C%O%M%P%U%T%E%R% ";AT 11,6;"%I% %W%I%L%L% %H%E%L%P% %Y%O%U% %I%N% %Y%O%U%R% % \##\##% %M%I%S%S%I%O%N% %T%O%D%A%Y%."
 110 PRINT AT 17,3;"%P%L%E%A%S%E% %E%N%T%E%R% %Y%O%U%R% %N%A%M%E"
 120 INPUT N$
 125 PRINT AT 0,0;
 130 GOSUB 10
 131 FOR J=1 TO LEN N$
 132 LET N$(J)=CHR$ (CODE N$(J)+128)
 133 NEXT J
 135 PRINT AT 2,11;"%S%H%I%P%S% %L%O%G"
 140 PRINT AT 4,3;"%S%T%A%R% %D%A%T%E%-% %3%4%7%.%6%5%4"
 150 PRINT AT 6,3;"%C%A%P%T%A%I%N%-% ";N$
 160 PRINT AT 8,3;"%M%I%S%S%I%O%N% % %-% %T%O% %P%R%O%T%E%C%T% %T%H%E% % % \##\##% % % % % % % % % % % % % %P%L%A%N%E%T% %E%A%R%T%H"
 165 PRINT AT 11,3;"%S%H%I%P% % % %-% %U%.%S%.%S%.% %R%A%I%D%E%R% %1%0%0%0"
 170 PRINT AT 17,3;"%P%R%E%S%S% %E%N%T%E%R% ";N$
 171 INPUT A$
 172 PRINT AT 0,0;
 173 GOSUB 10
 174 PRINT AT 2,12;"%O%B%J%E%C%T";AT 5,4;"%T%O% %D%E%S%T%R%O%Y% %T%H%E% %I%N%V%A%D%E%R%S% %B%Y";AT 7,3;"%A%N%S%W%E%R%I%N%G% %T%H%E% %M%A%T%H% %P%R%O%B%L%E%M%S";AT 9,3;"%C%O%R%R%E%C%T%L%Y%.% % %I%F% %Y%O%U% %D%E%S%T%R%O%Y% ";AT 11,3;"%T%H%E% %W%A%V%E% %O%F% %9% %I%N%V%A%D%E%R%S% %Y%O%U";AT 13,3;"%W%I%L%L% %B%E% %P%R%O%M%O%T%E%D% %T%O% %A%D%M%I%R%A%L"
 175 PRINT AT 17,3;"%G%O%O%D% %L%U%C%K% %C%A%P%T%.% ";N$;AT 19,3;"%P%R%E%S%S% %E%N%T%E%R"
 180 INPUT A$
 190 GOTO 500
 200 PRINT AT 0,0;
 201 GOSUB 10
 210 PRINT AT 3,8;"%C%H%O%O%S%E% %W%E%A%P%O%N";AT 6,3;"%1% %-% %A%D%D%I%T%I%O%N";AT 8,3;"%2% %-% %S%U%B%T%R%A%C%T%I%O%N";AT 12,3;"%4% %-% %D%I%V%I%S%I%O%N";AT 10,3;"%3% %-% %M%U%L%T%I%P%L%I%C%A%T%I%O%N"
 220 PRINT AT 17,3;"%E%N%T%E%R% %N%U%M%B%E%R% ";N$
 230 INPUT T
 240 IF T>4 THEN GOTO 230
 250 RETURN 
 300 PRINT AT 0,0;
 301 GOSUB 10
 310 PRINT AT 5,9;"%C%H%O%O%S%E% %L%E%V%E%L";AT 8,4;"%1% %-% %E%A%S%Y";AT 10,4;"%2% %-% %A% %L%I%T%T%L%E% %H%A%R%D%E%R"
 320 PRINT AT 17,3;"%E%N%T%E%R% %N%U%M%B%E%R% ";N$
 330 INPUT L
 340 IF L>2 THEN GOTO 330
 350 RETURN 
 500 LET T0T=0
 505 GOSUB 200
 510 GOSUB 300
 520 GOSUB T*100+1000
 530 STOP 
1100 REM %A%D%D%I%T%I%O%N
1110 LET Y$=STR$ (INT (RND*(25*L))+10*L)
1115 LET Y=VAL Y$
1120 LET Z$=STR$ (INT (RND*(25*L))+10*L)
1121 LET Y$(1)=CHR$ (CODE Y$(1)+128)
1122 IF LEN Y$>=2 THEN LET Y$(2)=CHR$ (CODE Y$(2)+128)
1123 LET Z=VAL Z$
1124 LET Z$(1)=CHR$ (CODE Z$(1)+128)
1125 IF LEN Z$>=2 THEN LET Z$(2)=CHR$ (CODE Z$(2)+128)
1130 PRINT AT 0,0;
1140 GOSUB 10
1150 GOSUB 5000
1160 PRINT AT 9,13;Y$;AT 10,10;"% %+% ";AT 10,13+LEN Y$-LEN Z$;Z$;AT 11,10;"%-%-%-%-%-%-%-"
1170 PRINT AT 17,3;"%E%N%T%E%R% %Y%O%U%R% %A%N%S%W%E%R"
1180 INPUT A
1181 PRINT AT 12,13+LEN Y$-LEN STR$ A;A
1182 LET C$=STR$ Y+" + "+STR$ Z+" = "+STR$ (Y+Z)
1185 IF Y+Z=A THEN LET RIGHT=1
1186 IF Y+Z<>A THEN LET RIGHT=0
1190 GOTO 6000
1200 REM %S%U%B%T%R%A%C%T%I%O%N
1205 LET Y$=STR$ (INT (RND*(80*L))+20)
1210 LET Y=VAL Y$
1220 LET Z$=STR$ (INT (RND*Y)+1)
1230 IF Y-VAL Z$<6 AND L=2 THEN GOTO 1220
1235 LET Z=VAL Z$
1240 LET Y$(1)=CHR$ (CODE Y$(1)+128)
1241 IF LEN Y$>=2 THEN LET Y$(2)=CHR$ (CODE Y$(2)+128)
1242 LET Z$(1)=CHR$ (CODE Z$(1)+128)
1243 IF LEN Z$>=2 THEN LET Z$(2)=CHR$ (CODE Z$(2)+128)
1244 IF LEN Z$>=3 THEN LET Z$(3)=CHR$ (CODE Z$(3)+128)
1245 PRINT AT 0,0;
1246 GOSUB 10
1247 IF LEN Y$>=3 THEN LET Y$(3)=CHR$ (CODE Y$(3)+128)
1248 GOSUB 5000
1250 PRINT AT 9,13;Y$;AT 10,10;"% %-% ";AT 10,13+LEN Y$-LEN Z$;Z$;AT 11,10;"%-%-%-%-%-%-%-"
1260 PRINT AT 17,3;"%E%N%T%E%R% %A%N%S%W%E%R"
1265 INPUT A
1266 PRINT AT 12,13+LEN Y$-(LEN STR$ A);A
1267 LET C$=STR$ Y+" - "+STR$ Z+" = "+STR$ (Y-Z)
1270 IF Y-Z<>A THEN LET RIGHT=0
1271 IF Y-Z=A THEN LET RIGHT=1
1280 GOTO 6000
1300 REM %M%U%L%T%I%P%L%I%C%A%T%I%O%N
1303 IF L=1 THEN GOTO 1310
1305 LET Y$=STR$ (R(INT (RND*7)+1))
1306 LET Z$=STR$ (INT (RND*10)+7)
1307 GOTO 1320
1310 LET Y$=STR$ (INT (RND*11)+2)
1315 LET Z$=STR$ (D(INT (RND*4)+1))
1320 LET Y=VAL Y$
1322 LET Z=VAL Z$
1325 LET Y$(1)=CHR$ (CODE Y$(1)+128)
1326 IF LEN Y$>=2 THEN LET Y$(2)=CHR$ (CODE Y$(2)+128)
1328 LET Z$(1)=CHR$ (CODE Z$(1)+128)
1330 IF LEN Z$>=2 THEN LET Z$(2)=CHR$ (CODE Z$(2)+128)
1340 PRINT AT 0,0;
1341 GOSUB 10
1342 GOSUB 5000
1344 PRINT AT 9,13;Y$;AT 10,10;"% %X% ";Z$;AT 11,10;"%-%-%-%-%-%-%-"
1346 PRINT AT 17,3;"%E%N%T%E%R% %A%N%S%W%E%R"
1347 INPUT A
1348 PRINT AT 12,13+LEN Y$-LEN STR$ A;A
1349 LET C$=STR$ Y+" X "+STR$ Z+" = "+STR$ (Y*Z)
1350 IF A<>Y*Z THEN LET RIGHT=0
1352 IF A=Y*Z THEN LET RIGHT=1
1353 IF A<>Y*Z THEN LET RIGHT=0
1360 GOTO 6000
1400 LET Y$=STR$ (R(INT (RND*7)+1))
1405 LET Z$=STR$ ((INT (RND*11)+6))
1410 IF L=1 THEN LET Z$=STR$ (D(INT (RND*4)+1))
1415 LET Y=VAL Y$
1416 LET Z=VAL Z$
1417 LET G$=STR$ (Y*Z)
1418 LET G$(1)=CHR$ (CODE G$(1)+128)
1419 IF LEN G$>=2 THEN LET G$(2)=CHR$ (CODE G$(2)+128)
1420 IF LEN G$>=3 THEN LET G$(3)=CHR$ (CODE G$(3)+128)
1421 LET Y$(1)=CHR$ (CODE Y$(1)+128)
1422 IF LEN Y$>=2 THEN LET Y$(2)=CHR$ (CODE Y$(2)+128)
1423 PRINT AT 0,0;
1424 GOSUB 10
1430 GOSUB 5000
1440 PRINT AT 9,13;G$;"% %/% ";Y$;"% %=%?"
1442 PRINT AT 17,3;"%E%N%T%E%R% %A%N%S%W%E%R% ";N$
1445 INPUT A
1446 PRINT AT 9,18+LEN G$+LEN Y$;"% ";A
1447 LET C$=STR$ (Z*Y)+" / "+STR$ Y+" = "+STR$ Z
1448 IF A=Z THEN LET RIGHT=1
1449 IF A<>Z THEN LET RIGHT=0
1450 GOTO 6000
5000 REM %I%N%T%R%U%D%E%R% %A%L%E%R%T
5010 FOR J=1 TO 10
5020 PRINT AT 3,9;"%I%N%T%R%U%D%E%R% %A%L%E%R%T";AT 3,9;"INTRUDER ALERT"
5022 NEXT J
5024 FOR J=1 TO 24
5026 LET F=USR 16538
5028 POKE 16542,134+J
5030 NEXT J
5032 POKE 16542,134
5033 PRINT AT 5,25;"% % % % % ";AT 6,25;"% % % % % "
5040 PRINT AT 6,4;"%C%O%O%R%D%I%N%A%T%E% %I%S% %A%N%S%W%E%R% %:"
5045 PRINT AT 9,3;"%W%H%A%T% %I%S%:"
5050 RETURN 
6000 REM %R%M%D%A%N%I%E%L
6005 PRINT AT 0,0;
6010 GOSUB 10
6020 PRINT AT 18,1;"\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##"
6030 FOR J=1 TO 14
6040 LET F=USR 16538
6050 POKE 16542,134+J
6060 NEXT J
6070 POKE 16542,134
6080 PRINT AT 19,1;"      SENSORS LOCKED ON       "
6085 PRINT AT 20,16;"               "
6090 PRINT AT 20,1;"       COORDINATE ";A
6100 POKE 16521,3
6101 POKE 16522,9
6102 POKE 16523,157
6103 POKE 16524,9
6104 POKE 16525,3
6105 POKE 16528,131
6106 POKE 16529,151
6107 POKE 16530,131
6108 POKE 16542,142
6109 POKE 16543,1
6115 FOR J=1 TO 14
6118 LET F=USR 16538
6120 POKE 16542,J+142
6125 NEXT J
6126 POKE 16542,134
6127 POKE 16543,0
6140 PRINT AT 19,1;" MISSILE FIXED ON COORDINATE  "
6150 REM PAUSE
6160 PRINT AT 20,2;"      PRESS 0 TO FIRE    "
6170 LET Q$=INKEY$
6180 IF Q$<>"0" THEN GOTO 6170
6200 IF RIGHT=1 THEN LET TOT=TOT+1
6205 LET Q=5
6210 IF RIGHT=1 THEN LET Q=8
6230 FOR J=1 TO Q
6240 PRINT AT 14-J,17;"%1"
6241 PRINT AT 14-J,17;"% "
6250 NEXT J
6300 IF RIGHT=0 THEN GOTO 7000
6310 FOR J=15 TO 20
6320 PRINT AT 5,J;"\ .";AT 6,J;"\:'";AT 5,J;"% ";AT 6,J;"% "
6330 NEXT J
6350 PRINT AT 5,3;"%T%H%A%T% %W%A%S% %A% %C%O%R%R%E%C%T% %A%N%S%W%E%R"
6360 PRINT AT 8,3;"%I%N%V%A%D%E%R%S% %D%E%S%T%R%O%Y%E%D% %=% ";CHR$ (TOT+156)
6370 PRINT AT 16,3;"%P%R%E%S%S% %E%N%T%E%R% %C%A%P%T%.% ";N$
6380 INPUT A$
6382 GOSUB 9000
6386 IF TOT<9 THEN GOTO 520
6390 GOTO 8000
7000 FOR J=6 TO 13
7010 PRINT AT J,17;"%*";AT J,17;"% "
7020 NEXT J
7030 PRINT AT 12,19;"%O%H% %N%O%O%O%O"
7031 FOR J=15 TO 20
7032 PRINT AT 13,J;"\':";AT 13,J;"% ";AT 14,J;"\:'";AT 14,J;"% "
7034 NEXT J
7035 PRINT AT 12,19;"% % % % % % % % "
7039 PRINT AT 20,7;"                   "
7040 PRINT AT 19,2;"     THE CORRECT ANSWER      "
7041 PRINT AT 20,15;"                "
7042 PRINT AT 20,4;"     ";C$
7050 FOR J=1 TO 50
7055 NEXT J
7060 FOR J=15 TO 20
7067 PRINT AT 13,J;"% ";AT 14,J;"% "
7070 NEXT J
7074 GOSUB 9000
7080 LET P=148
7081 POKE 16542,P
7090 FOR J=5 TO 17
7095 LET F=USR 16538
7105 LET P1=INT (P/256)
7106 LET P2=((P/256)-P1)*256
7107 LET P=P+33
7110 POKE 16542,P2
7111 POKE 16543,P1
7120 NEXT J
7200 GOSUB 9000
7210 PRINT AT 5,6;"%T%H%E% %I%N%V%A%D%E%R% %H%A%S% %L%A%N%D%E%D"
7300 FOR J=1 TO 25
7400 NEXT J
7420 PRINT AT 0,0;
7440 GOSUB 10
7450 GOTO 9400
8000 PRINT AT 0,0;
8001 GOSUB 10
8003 PRINT AT 4,9;"%C%O%N%G%R%A%T%U%L%A%T%I%O%N%S"
8004 PRINT AT 7,3;"%Y%O%U% %A%R%E% %P%R%O%M%O%T%E%D% %T%O% %A%D%M%I%R%A%L"
8005 PRINT AT 10,6;"%T%H%E% %P%E%O%P%L%E% %T%H%A%N%K% %Y%O%U"
8009 PRINT AT 12,14;"%A%N%D"
8010 PRINT AT 15,4;"%T%H%E% %S%T%A%R% %C%O%U%N%C%I%L% %P%R%E%S%E%N%T%S"
8011 PRINT AT 17,6;"%Y%O%U% %T%H%I%S% %C%E%R%T%I%F%I%C%A%T%E"
8020 FOR J=1 TO 35
8030 NEXT J
8040 PRINT AT 0,0;
8050 GOSUB 10
8051 PRINT AT 16,3;"%I%S% %A% %P%R%I%N%T%E%R% %A%T%T%A%C%H%E%D%?";AT 18,3;"%E%N%T%E%R% %Y%E%S% %O%R% %N%O"
8052 INPUT L$
8053 PRINT AT 0,0;
8054 GOSUB 10
8055 PRINT AT 1,8;"T.S. RAIDER 1000"
8060 PRINT AT 4,6;"%P%R%O%M%O%T%I%O%N% %C%E%R%T%I%F%I%C%A%T%E"
8070 PRINT AT 7,3;"%T%H%I%S% %I%S% %P%R%O%O%F% %T%H%A%T% ";N$;AT 9,3;"%H%A%S% %S%A%V%E%D% %T%H%E% %E%A%R%T%H% %A%N%D% %I%S";AT 11,3;"%P%R%O%M%O%T%E%D% %T%O% %A%D%M%I%R%A%L%.";AT 17,12;"%U%N%I%T%E%D% %S%T%A%R% %C%O%U%N%C%I%L"
8080 PRINT AT 15,13;"%C%O%M%M%A%N%D%E%R% %R% %D%A%N%I%E%L"
8090 IF L$="YES" THEN COPY 
8100 FOR J=1 TO 55
8125 NEXT J
8200 PRINT AT 0,0;
8300 GOSUB 10
8400 GOTO 9400
8999 STOP 
9000 POKE 16521,137
9002 POKE 16522,136
9004 POKE 16523,138
9006 POKE 16524,136
9008 POKE 16525,137
9010 POKE 16528,138
9012 POKE 16529,151
9014 POKE 16530,138
9016 POKE 16542,134
9018 POKE 16543,0
9020 PRINT AT 0,0;
9024 RETURN 
9400 PRINT AT 4,3;"%D%O% %Y%O%U% %W%I%S%H% %T%O% "
9420 PRINT AT 7,5;"%1% %-% %P%L%A%Y% %A%G%A%I%N";AT 9,5;"%2% %-% %C%H%A%N%G%E% %W%E%A%P%O%N";AT 11,5;"%3% %-% %C%H%A%N%G%E% %L%E%V%E%L";AT 13,5;"%4% %-% %E%X%I%T% %P%R%O%G%R%A%M"
9430 PRINT AT 18,3;"%E%N%T%E%R% %N%U%M%B%E%R"
9440 INPUT F
9450 IF F>4 THEN GOTO 9400
9460 IF F=2 THEN GOSUB 200
9470 IF F=3 THEN GOSUB 300
9480 LET TOT=0
9490 IF F=1 THEN GOTO 520
9495 IF F=4 THEN STOP 
9500 PRINT AT 0,0;
9510 GOSUB 10
9520 GOTO 9400
9800 SAVE "MAT%H"
9900 PRINT AT 0,0;
9910 GOSUB 10
9920 PRINT AT 8,11;"%M%A%T%H% %T%U%T%O%R";AT 10,5;"%(%C%)%1%9%8%2% %R%U%D%O%L%P%H% %D%A%N%I%E%L"
9930 PAUSE 240
9940 PRINT AT 0,0;
9949 RUN 


					
				
			



						

				


Tags


Archived Media, Downloadable, Softsync, TS 1000




People



    Rudolph Daniel



					
				


			

			
		
	



	
 
	


	







		Scroll to Top























			
				\D1\C1\EE\C9
   2 LET RIGHT=0
   3 LET TOT=0
   6 DIM Z(4)
   7 DIM G(4)
   8 DIM Y(4)
   9 GOTO 63
  10 PRINT "\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##"
  20 FOR J=1 TO 20
  30 PRINT "\##% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % \##"
  40 NEXT J
  50 PRINT "\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##"
  60 RETURN 
  63 DIM D(5)
  64 DIM R(10)
  65 LET R(1)=4
  66 LET R(2)=6
  67 LET R(3)=7
  68 LET R(4)=8
  69 LET R(5)=9
  70 LET R(6)=11
  71 LET R(7)=12
  72 LET D(1)=2
  73 LET D(2)=3
  74 LET D(3)=5
  75 LET D(4)=10
  90 GOSUB 10
 100 PRINT AT 6,10;"%W%E%L%C%O%M%E% %H%U%M%A%N";AT 8,5;"%I% %A%M% %Y%O%U%R% %R%A%I%D%E%R% %1%0%0%0% % % % % \##\##% % % % % % % % %S%U%P%E%R%C%O%M%P%U%T%E%R% ";AT 11,6;"%I% %W%I%L%L% %H%E%L%P% %Y%O%U% %I%N% %Y%O%U%R% % \##\##% %M%I%S%S%I%O%N% %T%O%D%A%Y%."
 110 PRINT AT 17,3;"%P%L%E%A%S%E% %E%N%T%E%R% %Y%O%U%R% %N%A%M%E"
 120 INPUT N$
 125 PRINT AT 0,0;
 130 GOSUB 10
 131 FOR J=1 TO LEN N$
 132 LET N$(J)=CHR$ (CODE N$(J)+128)
 133 NEXT J
 135 PRINT AT 2,11;"%S%H%I%P%S% %L%O%G"
 140 PRINT AT 4,3;"%S%T%A%R% %D%A%T%E%-% %3%4%7%.%6%5%4"
 150 PRINT AT 6,3;"%C%A%P%T%A%I%N%-% ";N$
 160 PRINT AT 8,3;"%M%I%S%S%I%O%N% % %-% %T%O% %P%R%O%T%E%C%T% %T%H%E% % % \##\##% % % % % % % % % % % % % %P%L%A%N%E%T% %E%A%R%T%H"
 165 PRINT AT 11,3;"%S%H%I%P% % % %-% %U%.%S%.%S%.% %R%A%I%D%E%R% %1%0%0%0"
 170 PRINT AT 17,3;"%P%R%E%S%S% %E%N%T%E%R% ";N$
 171 INPUT A$
 172 PRINT AT 0,0;
 173 GOSUB 10
 174 PRINT AT 2,12;"%O%B%J%E%C%T";AT 5,4;"%T%O% %D%E%S%T%R%O%Y% %T%H%E% %I%N%V%A%D%E%R%S% %B%Y";AT 7,3;"%A%N%S%W%E%R%I%N%G% %T%H%E% %M%A%T%H% %P%R%O%B%L%E%M%S";AT 9,3;"%C%O%R%R%E%C%T%L%Y%.% % %I%F% %Y%O%U% %D%E%S%T%R%O%Y% ";AT 11,3;"%T%H%E% %W%A%V%E% %O%F% %9% %I%N%V%A%D%E%R%S% %Y%O%U";AT 13,3;"%W%I%L%L% %B%E% %P%R%O%M%O%T%E%D% %T%O% %A%D%M%I%R%A%L"
 175 PRINT AT 17,3;"%G%O%O%D% %L%U%C%K% %C%A%P%T%.% ";N$;AT 19,3;"%P%R%E%S%S% %E%N%T%E%R"
 180 INPUT A$
 190 GOTO 500
 200 PRINT AT 0,0;
 201 GOSUB 10
 210 PRINT AT 3,8;"%C%H%O%O%S%E% %W%E%A%P%O%N";AT 6,3;"%1% %-% %A%D%D%I%T%I%O%N";AT 8,3;"%2% %-% %S%U%B%T%R%A%C%T%I%O%N";AT 12,3;"%4% %-% %D%I%V%I%S%I%O%N";AT 10,3;"%3% %-% %M%U%L%T%I%P%L%I%C%A%T%I%O%N"
 220 PRINT AT 17,3;"%E%N%T%E%R% %N%U%M%B%E%R% ";N$
 230 INPUT T
 240 IF T>4 THEN GOTO 230
 250 RETURN 
 300 PRINT AT 0,0;
 301 GOSUB 10
 310 PRINT AT 5,9;"%C%H%O%O%S%E% %L%E%V%E%L";AT 8,4;"%1% %-% %E%A%S%Y";AT 10,4;"%2% %-% %A% %L%I%T%T%L%E% %H%A%R%D%E%R"
 320 PRINT AT 17,3;"%E%N%T%E%R% %N%U%M%B%E%R% ";N$
 330 INPUT L
 340 IF L>2 THEN GOTO 330
 350 RETURN 
 500 LET T0T=0
 505 GOSUB 200
 510 GOSUB 300
 520 GOSUB T*100+1000
 530 STOP 
\n1100 REM %A%D%D%I%T%I%O%N
\n1110 LET Y$=STR$ (INT (RND*(25*L))+10*L)
\n1115 LET Y=VAL Y$
\n1120 LET Z$=STR$ (INT (RND*(25*L))+10*L)
\n1121 LET Y$(1)=CHR$ (CODE Y$(1)+128)
\n1122 IF LEN Y$>=2 THEN LET Y$(2)=CHR$ (CODE Y$(2)+128)
\n1123 LET Z=VAL Z$
\n1124 LET Z$(1)=CHR$ (CODE Z$(1)+128)
\n1125 IF LEN Z$>=2 THEN LET Z$(2)=CHR$ (CODE Z$(2)+128)
\n1130 PRINT AT 0,0;
\n1140 GOSUB 10
\n1150 GOSUB 5000
\n1160 PRINT AT 9,13;Y$;AT 10,10;"% %+% ";AT 10,13+LEN Y$-LEN Z$;Z$;AT 11,10;"%-%-%-%-%-%-%-"
\n1170 PRINT AT 17,3;"%E%N%T%E%R% %Y%O%U%R% %A%N%S%W%E%R"
\n1180 INPUT A
\n1181 PRINT AT 12,13+LEN Y$-LEN STR$ A;A
\n1182 LET C$=STR$ Y+" + "+STR$ Z+" = "+STR$ (Y+Z)
\n1185 IF Y+Z=A THEN LET RIGHT=1
\n1186 IF Y+Z<>A THEN LET RIGHT=0
\n1190 GOTO 6000
\n1200 REM %S%U%B%T%R%A%C%T%I%O%N
\n1205 LET Y$=STR$ (INT (RND*(80*L))+20)
\n1210 LET Y=VAL Y$
\n1220 LET Z$=STR$ (INT (RND*Y)+1)
\n1230 IF Y-VAL Z$<6 AND L=2 THEN GOTO 1220
\n1235 LET Z=VAL Z$
\n1240 LET Y$(1)=CHR$ (CODE Y$(1)+128)
\n1241 IF LEN Y$>=2 THEN LET Y$(2)=CHR$ (CODE Y$(2)+128)
\n1242 LET Z$(1)=CHR$ (CODE Z$(1)+128)
\n1243 IF LEN Z$>=2 THEN LET Z$(2)=CHR$ (CODE Z$(2)+128)
\n1244 IF LEN Z$>=3 THEN LET Z$(3)=CHR$ (CODE Z$(3)+128)
\n1245 PRINT AT 0,0;
\n1246 GOSUB 10
\n1247 IF LEN Y$>=3 THEN LET Y$(3)=CHR$ (CODE Y$(3)+128)
\n1248 GOSUB 5000
\n1250 PRINT AT 9,13;Y$;AT 10,10;"% %-% ";AT 10,13+LEN Y$-LEN Z$;Z$;AT 11,10;"%-%-%-%-%-%-%-"
\n1260 PRINT AT 17,3;"%E%N%T%E%R% %A%N%S%W%E%R"
\n1265 INPUT A
\n1266 PRINT AT 12,13+LEN Y$-(LEN STR$ A);A
\n1267 LET C$=STR$ Y+" - "+STR$ Z+" = "+STR$ (Y-Z)
\n1270 IF Y-Z<>A THEN LET RIGHT=0
\n1271 IF Y-Z=A THEN LET RIGHT=1
\n1280 GOTO 6000
\n1300 REM %M%U%L%T%I%P%L%I%C%A%T%I%O%N
\n1303 IF L=1 THEN GOTO 1310
\n1305 LET Y$=STR$ (R(INT (RND*7)+1))
\n1306 LET Z$=STR$ (INT (RND*10)+7)
\n1307 GOTO 1320
\n1310 LET Y$=STR$ (INT (RND*11)+2)
\n1315 LET Z$=STR$ (D(INT (RND*4)+1))
\n1320 LET Y=VAL Y$
\n1322 LET Z=VAL Z$
\n1325 LET Y$(1)=CHR$ (CODE Y$(1)+128)
\n1326 IF LEN Y$>=2 THEN LET Y$(2)=CHR$ (CODE Y$(2)+128)
\n1328 LET Z$(1)=CHR$ (CODE Z$(1)+128)
\n1330 IF LEN Z$>=2 THEN LET Z$(2)=CHR$ (CODE Z$(2)+128)
\n1340 PRINT AT 0,0;
\n1341 GOSUB 10
\n1342 GOSUB 5000
\n1344 PRINT AT 9,13;Y$;AT 10,10;"% %X% ";Z$;AT 11,10;"%-%-%-%-%-%-%-"
\n1346 PRINT AT 17,3;"%E%N%T%E%R% %A%N%S%W%E%R"
\n1347 INPUT A
\n1348 PRINT AT 12,13+LEN Y$-LEN STR$ A;A
\n1349 LET C$=STR$ Y+" X "+STR$ Z+" = "+STR$ (Y*Z)
\n1350 IF A<>Y*Z THEN LET RIGHT=0
\n1352 IF A=Y*Z THEN LET RIGHT=1
\n1353 IF A<>Y*Z THEN LET RIGHT=0
\n1360 GOTO 6000
\n1400 LET Y$=STR$ (R(INT (RND*7)+1))
\n1405 LET Z$=STR$ ((INT (RND*11)+6))
\n1410 IF L=1 THEN LET Z$=STR$ (D(INT (RND*4)+1))
\n1415 LET Y=VAL Y$
\n1416 LET Z=VAL Z$
\n1417 LET G$=STR$ (Y*Z)
\n1418 LET G$(1)=CHR$ (CODE G$(1)+128)
\n1419 IF LEN G$>=2 THEN LET G$(2)=CHR$ (CODE G$(2)+128)
\n1420 IF LEN G$>=3 THEN LET G$(3)=CHR$ (CODE G$(3)+128)
\n1421 LET Y$(1)=CHR$ (CODE Y$(1)+128)
\n1422 IF LEN Y$>=2 THEN LET Y$(2)=CHR$ (CODE Y$(2)+128)
\n1423 PRINT AT 0,0;
\n1424 GOSUB 10
\n1430 GOSUB 5000
\n1440 PRINT AT 9,13;G$;"% %/% ";Y$;"% %=%?"
\n1442 PRINT AT 17,3;"%E%N%T%E%R% %A%N%S%W%E%R% ";N$
\n1445 INPUT A
\n1446 PRINT AT 9,18+LEN G$+LEN Y$;"% ";A
\n1447 LET C$=STR$ (Z*Y)+" / "+STR$ Y+" = "+STR$ Z
\n1448 IF A=Z THEN LET RIGHT=1
\n1449 IF A<>Z THEN LET RIGHT=0
\n1450 GOTO 6000
\n5000 REM %I%N%T%R%U%D%E%R% %A%L%E%R%T
\n5010 FOR J=1 TO 10
\n5020 PRINT AT 3,9;"%I%N%T%R%U%D%E%R% %A%L%E%R%T";AT 3,9;"INTRUDER ALERT"
\n5022 NEXT J
\n5024 FOR J=1 TO 24
\n5026 LET F=USR 16538
\n5028 POKE 16542,134+J
\n5030 NEXT J
\n5032 POKE 16542,134
\n5033 PRINT AT 5,25;"% % % % % ";AT 6,25;"% % % % % "
\n5040 PRINT AT 6,4;"%C%O%O%R%D%I%N%A%T%E% %I%S% %A%N%S%W%E%R% %:"
\n5045 PRINT AT 9,3;"%W%H%A%T% %I%S%:"
\n5050 RETURN 
\n6000 REM %R%M%D%A%N%I%E%L
\n6005 PRINT AT 0,0;
\n6010 GOSUB 10
\n6020 PRINT AT 18,1;"\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##"
\n6030 FOR J=1 TO 14
\n6040 LET F=USR 16538
\n6050 POKE 16542,134+J
\n6060 NEXT J
\n6070 POKE 16542,134
\n6080 PRINT AT 19,1;"      SENSORS LOCKED ON       "
\n6085 PRINT AT 20,16;"               "
\n6090 PRINT AT 20,1;"       COORDINATE ";A
\n6100 POKE 16521,3
\n6101 POKE 16522,9
\n6102 POKE 16523,157
\n6103 POKE 16524,9
\n6104 POKE 16525,3
\n6105 POKE 16528,131
\n6106 POKE 16529,151
\n6107 POKE 16530,131
\n6108 POKE 16542,142
\n6109 POKE 16543,1
\n6115 FOR J=1 TO 14
\n6118 LET F=USR 16538
\n6120 POKE 16542,J+142
\n6125 NEXT J
\n6126 POKE 16542,134
\n6127 POKE 16543,0
\n6140 PRINT AT 19,1;" MISSILE FIXED ON COORDINATE  "
\n6150 REM PAUSE
\n6160 PRINT AT 20,2;"      PRESS 0 TO FIRE    "
\n6170 LET Q$=INKEY$
\n6180 IF Q$<>"0" THEN GOTO 6170
\n6200 IF RIGHT=1 THEN LET TOT=TOT+1
\n6205 LET Q=5
\n6210 IF RIGHT=1 THEN LET Q=8
\n6230 FOR J=1 TO Q
\n6240 PRINT AT 14-J,17;"%1"
\n6241 PRINT AT 14-J,17;"% "
\n6250 NEXT J
\n6300 IF RIGHT=0 THEN GOTO 7000
\n6310 FOR J=15 TO 20
\n6320 PRINT AT 5,J;"\ .";AT 6,J;"\:'";AT 5,J;"% ";AT 6,J;"% "
\n6330 NEXT J
\n6350 PRINT AT 5,3;"%T%H%A%T% %W%A%S% %A% %C%O%R%R%E%C%T% %A%N%S%W%E%R"
\n6360 PRINT AT 8,3;"%I%N%V%A%D%E%R%S% %D%E%S%T%R%O%Y%E%D% %=% ";CHR$ (TOT+156)
\n6370 PRINT AT 16,3;"%P%R%E%S%S% %E%N%T%E%R% %C%A%P%T%.% ";N$
\n6380 INPUT A$
\n6382 GOSUB 9000
\n6386 IF TOT<9 THEN GOTO 520
\n6390 GOTO 8000
\n7000 FOR J=6 TO 13
\n7010 PRINT AT J,17;"%*";AT J,17;"% "
\n7020 NEXT J
\n7030 PRINT AT 12,19;"%O%H% %N%O%O%O%O"
\n7031 FOR J=15 TO 20
\n7032 PRINT AT 13,J;"\':";AT 13,J;"% ";AT 14,J;"\:'";AT 14,J;"% "
\n7034 NEXT J
\n7035 PRINT AT 12,19;"% % % % % % % % "
\n7039 PRINT AT 20,7;"                   "
\n7040 PRINT AT 19,2;"     THE CORRECT ANSWER      "
\n7041 PRINT AT 20,15;"                "
\n7042 PRINT AT 20,4;"     ";C$
\n7050 FOR J=1 TO 50
\n7055 NEXT J
\n7060 FOR J=15 TO 20
\n7067 PRINT AT 13,J;"% ";AT 14,J;"% "
\n7070 NEXT J
\n7074 GOSUB 9000
\n7080 LET P=148
\n7081 POKE 16542,P
\n7090 FOR J=5 TO 17
\n7095 LET F=USR 16538
\n7105 LET P1=INT (P/256)
\n7106 LET P2=((P/256)-P1)*256
\n7107 LET P=P+33
\n7110 POKE 16542,P2
\n7111 POKE 16543,P1
\n7120 NEXT J
\n7200 GOSUB 9000
\n7210 PRINT AT 5,6;"%T%H%E% %I%N%V%A%D%E%R% %H%A%S% %L%A%N%D%E%D"
\n7300 FOR J=1 TO 25
\n7400 NEXT J
\n7420 PRINT AT 0,0;
\n7440 GOSUB 10
\n7450 GOTO 9400
\n8000 PRINT AT 0,0;
\n8001 GOSUB 10
\n8003 PRINT AT 4,9;"%C%O%N%G%R%A%T%U%L%A%T%I%O%N%S"
\n8004 PRINT AT 7,3;"%Y%O%U% %A%R%E% %P%R%O%M%O%T%E%D% %T%O% %A%D%M%I%R%A%L"
\n8005 PRINT AT 10,6;"%T%H%E% %P%E%O%P%L%E% %T%H%A%N%K% %Y%O%U"
\n8009 PRINT AT 12,14;"%A%N%D"
\n8010 PRINT AT 15,4;"%T%H%E% %S%T%A%R% %C%O%U%N%C%I%L% %P%R%E%S%E%N%T%S"
\n8011 PRINT AT 17,6;"%Y%O%U% %T%H%I%S% %C%E%R%T%I%F%I%C%A%T%E"
\n8020 FOR J=1 TO 35
\n8030 NEXT J
\n8040 PRINT AT 0,0;
\n8050 GOSUB 10
\n8051 PRINT AT 16,3;"%I%S% %A% %P%R%I%N%T%E%R% %A%T%T%A%C%H%E%D%?";AT 18,3;"%E%N%T%E%R% %Y%E%S% %O%R% %N%O"
\n8052 INPUT L$
\n8053 PRINT AT 0,0;
\n8054 GOSUB 10
\n8055 PRINT AT 1,8;"T.S. RAIDER 1000"
\n8060 PRINT AT 4,6;"%P%R%O%M%O%T%I%O%N% %C%E%R%T%I%F%I%C%A%T%E"
\n8070 PRINT AT 7,3;"%T%H%I%S% %I%S% %P%R%O%O%F% %T%H%A%T% ";N$;AT 9,3;"%H%A%S% %S%A%V%E%D% %T%H%E% %E%A%R%T%H% %A%N%D% %I%S";AT 11,3;"%P%R%O%M%O%T%E%D% %T%O% %A%D%M%I%R%A%L%.";AT 17,12;"%U%N%I%T%E%D% %S%T%A%R% %C%O%U%N%C%I%L"
\n8080 PRINT AT 15,13;"%C%O%M%M%A%N%D%E%R% %R% %D%A%N%I%E%L"
\n8090 IF L$="YES" THEN COPY 
\n8100 FOR J=1 TO 55
\n8125 NEXT J
\n8200 PRINT AT 0,0;
\n8300 GOSUB 10
\n8400 GOTO 9400
\n8999 STOP 
\n9000 POKE 16521,137
\n9002 POKE 16522,136
\n9004 POKE 16523,138
\n9006 POKE 16524,136
\n9008 POKE 16525,137
\n9010 POKE 16528,138
\n9012 POKE 16529,151
\n9014 POKE 16530,138
\n9016 POKE 16542,134
\n9018 POKE 16543,0
\n9020 PRINT AT 0,0;
\n9024 RETURN 
\n9400 PRINT AT 4,3;"%D%O% %Y%O%U% %W%I%S%H% %T%O% "
\n9420 PRINT AT 7,5;"%1% %-% %P%L%A%Y% %A%G%A%I%N";AT 9,5;"%2% %-% %C%H%A%N%G%E% %W%E%A%P%O%N";AT 11,5;"%3% %-% %C%H%A%N%G%E% %L%E%V%E%L";AT 13,5;"%4% %-% %E%X%I%T% %P%R%O%G%R%A%M"
\n9430 PRINT AT 18,3;"%E%N%T%E%R% %N%U%M%B%E%R"
\n9440 INPUT F
\n9450 IF F>4 THEN GOTO 9400
\n9460 IF F=2 THEN GOSUB 200
\n9470 IF F=3 THEN GOSUB 300
\n9480 LET TOT=0
\n9490 IF F=1 THEN GOTO 520
\n9495 IF F=4 THEN STOP 
\n9500 PRINT AT 0,0;
\n9510 GOSUB 10
\n9520 GOTO 9400
\n9800 SAVE "MAT%H"
\n9900 PRINT AT 0,0;
\n9910 GOSUB 10
\n9920 PRINT AT 8,11;"%M%A%T%H% %T%U%T%O%R";AT 10,5;"%(%C%)%1%9%8%2% %R%U%D%O%L%P%H% %D%A%N%I%E%L"
\n9930 PAUSE 240
\n9940 PRINT AT 0,0;
\n9949 RUN