PCjs Machines
Home of the original IBM PC emulator for browsers.
PC-SIG Diskette Library (Disk #450)
[PCjs Machine "ibm5150"]
Waiting for machine "ibm5150" to load....
Information about “GAME SERIES #20”
A good collection of games. Some shoot-em-ups, two different stock
market simulations for you financial wizards, and other assorted
entertainments. All are written in BASIC, so you can play with and
change 'em around if you have the desire to experiment. All will run
on a monochrome system, too!
System Requirements: 128k, one disk drive, monochrome monitor
How to start: For instructions on running BASIC programs, please refer
to the GETTING STARTED section in this catalog.
File Descriptions:
ELECTION BAS You get to run for President
DICE BAS A simple dice game
WALLST BAS Another Stock Market simulation
STAR2001 BAS Another space game
ROBOTNKA BAS Shoot the tank before it gets to you
RIEMAN BAS Can you survive in the intergalactic trading circle
PRESCH BAS A word game for pre-schoolers
MONEYMKT BAS Can you succeed in the stock market?
FUN BAS A fun with numbers game
DICE.BAS
1 CLS:PRINT TAB(30);"DICE GAME"
2 PRINT TAB(25);"BY MARY RININSLAND"
3 PRINT:PRINT:PRINT
4 INPUT"PLEASE TYPE YOUR NAME ";NAM$
5 PRINT"WHY HELLO THERE, ";NAM$;". HOPE YOU'RE READY FOR A SERIOUS GAME."
7 PRINT:PRINT:PRINT
8 INPUT"WOULD YOU LIKE INSTRUCTIONS (Y/N) ";YN$
9 IF YN$="Y" THEN CLS:GOTO 2000
20 CLS:RANDOMIZE VAL(MID$(TIME$,7,2)):LET X=INT(RND*6)+1
31 INPUT"WOULD YOU LIKE TO ROLL (Y/N) ";YS$
32 IF YS$="N" THEN GOTO 520
34 IF YS$<>"Y" AND YS$<>"N" THEN GOTO 31
35 CLS
36 PRINT NAM$;"-GAMES WON=";HSC;" COMPUTER-GAMES WON=";CSC;" TIES=";TIE
37 PRINT
40 PRINT:IF X=1 THEN GOSUB 3000
50 IF X=2 THEN GOSUB 3200
60 IF X=3 THEN GOSUB 3400
70 IF X=4 THEN GOSUB 3600
80 IF X=5 THEN GOSUB 3800
90 IF X=6 THEN GOSUB 4000
160 HUMAN=HUMAN+X
170 PRINT:PRINT NAM$;"'S SCORE=";HUMAN;" COMPUTER'S SCORE=";COMP
180 IF HUMAN=13 OR HUMAN>=25 OR HUMAN=20 THEN GOTO 8000
181 PRINT:INPUT"PRESS ENTER TO CONTINUE ";ENT$
520 CLS:RANDOMIZE VAL(MID$(TIME$,7,2)):LET CX=INT(RND*6)+1
531 RANDOMIZE VAL(MID$(TIME$,7,2)):LET WZ=INT(RND*6)+1
532 RANDOMIZE VAL(MID$(TIME$,7,2)):LET WY=INT(RND*12)+1
537 IF COMP=13 OR COMP=20 OR HUMAN=13 OR HUMAN=20 OR HUMAN>=25 OR COMP>=25 THEN GOTO 8000
538 IF COMP=22 AND COMP=HUMAN THEN GOTO 540
539 IF COMP>22 AND COMP>HUMAN AND YS$="Y" OR COMP>22 AND COMP<HUMAN AND YS$="Y" THEN GOTO 20
540 PRINT NAM$;"-GAMES WON=";HSC;" COMPUTER-GAMES WON=";CSC;" TIES=";TIE
541 PRINT
545 PRINT:IF CX=1 THEN GOSUB 3000
550 IF CX=2 THEN GOSUB 3200
560 IF CX=3 THEN GOSUB 3400
570 IF CX=4 THEN GOSUB 3600
580 IF CX=5 THEN GOSUB 3800
590 IF CX=6 THEN GOSUB 4000
660 COMP=COMP+CX
662 PRINT
670 PRINT:PRINT NAM$;"'S SCORE=";HUMAN;" COMPUTER'S SCORE=";COMP
680 IF COMP>=25 OR COMP=13 OR COMP=20 THEN GOTO 8000
700 PRINT:INPUT"PRESS ENTER TO CONTINUE ";ENT$:GOTO 20
2000 PRINT"WE EACH ROLL A DIE ONE TIME PER ROUND. THE OBJECT IS TO GET "
2001 PRINT"25. WHOEVER GETS A TOTAL OF 20, 13 OR GREATER THAN 25 LOSES."
2002 PRINT"THE PERSON WITH THE HIGHEST TOTAL WHO DOES NOT HAVE 20, 13"
2004 PRINT"OR GREATER THAN 25, WINS."
2005 PRINT:INPUT"PRESS ENTER TO CONTINUE ";ENT$
2006 CLS:GOTO 20
3000 PRINT" ___________ "
3001 PRINT" | | "
3002 PRINT" | | "
3003 PRINT" | o |"
3004 PRINT" | |"
3005 PRINT" |___________|"
3006 RETURN
3200 PRINT" ___________ "
3201 PRINT" | | "
3202 PRINT" | o | "
3203 PRINT" | |"
3204 PRINT" | o |"
3205 PRINT" |___________|"
3206 RETURN
3400 PRINT" ___________ "
3401 PRINT" | | "
3402 PRINT" | o | "
3403 PRINT" | o |"
3404 PRINT" | o |"
3405 PRINT" |___________|"
3406 RETURN
3600 PRINT" ___________ "
3601 PRINT" | | "
3602 PRINT" | o o | "
3603 PRINT" | |"
3604 PRINT" | o o |"
3605 PRINT" |___________|"
3606 RETURN
3800 PRINT" ___________ "
3801 PRINT" | | "
3802 PRINT" | o o | "
3803 PRINT" | o |"
3804 PRINT" | o o |"
3805 PRINT" |___________|"
3806 RETURN
4000 PRINT" ___________ "
4001 PRINT" | | "
4002 PRINT" | o o | "
4003 PRINT" | o o |"
4004 PRINT" | o o |"
4005 PRINT" |___________|"
4006 RETURN
8000 IF COMP=25 AND COMP>HUMAN THEN PRINT"I WON! I WON! I WON!":CSC=CSC+1:GOTO 8015
8001 IF COMP<25 AND COMP>HUMAN AND COMP<>20 AND COMP<>13 THEN PRINT"I WON! I WON!!":CSC=CSC+1:GOTO 8015
8002 IF HUMAN=25 AND HUMAN>COMP THEN PRINT"YOU WON, ";NAM$:HSC=HSC+1:GOTO 8015
8003 IF HUMAN<25 AND HUMAN>COMP AND HUMAN<>20 AND HUMAN<>13 THEN PRINT"YOU WON, ";NAM$:HSC=HSC+1:GOTO 8015
8004 IF COMP=HUMAN THEN PRINT"IT'S A DRAW, ";NAM$". GREAT GAME.":TIE=TIE+1:GOTO 8015
8005 IF HUMAN=13 OR HUMAN=20 THEN PRINT"I WON! I WON!!":CSC=CSC+1:GOTO 8015
8006 IF COMP=13 OR COMP=20 THEN PRINT"YOU WON, ";NAM$:HSC=HSC+1:GOTO 8015
8007 IF COMP<25 AND COMP<HUMAN AND HUMAN=13 AND COMP<>13 AND COMP <>20 THEN PRINT"I WON!":CSC=CSC+1:GOTO 8015
8008 IF COMP<25 AND COMP<HUMAN AND HUMAN=20 AND COMP<>13 AND COMP <>20 THEN PRINT"I WON!":CSC=CSC+1:GOTO 8015
8009 IF HUMAN<25 AND HUMAN<COMP AND COMP=13 AND HUMAN<>13 AND HUMAN <>20 THEN PRINT"YOU WON!":HSC=HSC+1:GOTO 8015
8010 IF HUMAN<25 AND HUMAN<COMP AND COMP=20 AND HUMAN<>13 AND HUMAN <>20 THEN PRINT"YOU WON!":HSC=HSC+1:GOTO 8015
8011 IF HUMAN<25 AND HUMAN<COMP AND COMP>25 AND HUMAN<>13 AND HUMAN <>20 THEN PRINT"YOU WON!":HSC=HSC+1:GOTO 8015
8012 IF COMP<25 AND COMP<HUMAN AND HUMAN>25 AND COMP<>13 AND COMP <>20 THEN PRINT"I WON!":CSC=CSC+1
8015 FOR K=1 TO 4000:NEXT K:CLS
8016 PRINT NAM$;"-GAMES WON=";HSC;" COMPUTER-GAMES WON=";CSC;" TIES=";TIE
8017 PRINT:INPUT"WOULD YOU LIKE TO PLAY AGAIN (Y/N) ";YN$
8018 IF YN$="Y" THEN COMP=0:HUMAN=0:GOTO 20
8019 CLS:CLEAR:CHAIN "A:DIRECTO.BAS"
ELECTION.BAS
5 SCREEN 0,1:WIDTH 40:COLOR 15,1,1
10 REM * * * * * * * * * * * * * * *
20 REM * THE PRESIDENTIAL CAMPAIGN *
30 REM * in Microsoft BASIC *
40 REM * * * * * * * * * * * * * * *
45 KEY OFF
50 CLEAR 500:DIM ST (10,15)
60 M$(1)="FEBRUARY":M$(2)="MARCH":M$(3)="APRIL":M$(4)="MAY"
70 M$(5)="JUNE":M$(6)="JULY":M$(7)="AUGUST":M$(8)="SEPTEMBER":M$(9)="OCTOBER"
80 A$="Your campaign fund has $###,###,###.##"
90 B$="$###,###,###.## $###,###,###.##"
100 D$="Contributions = $$###,###.## Expenditures = $$###,###.##"
110 FOR I=1 TO 6:ST(5,I)=50:ST(5,I)=50:NEXT I
120 FOR I=1 TO 13:ST(2,I)=50:ST(4,1)=50:NEXT I
130 FOR I=1 TO 7:ST(3,I)=50:ST(6,I)=50:NEXT I
140 F=O:A#=500000!
150 CLS:PRINT TAB(19)" * * * THE PRESIDENTIAL CAMPAIGN * * *"
160 PRINT:PRINT:INPUT "PLEASE ENTER A NUMBER FROM 1 TO 500";N
170 IF N<1 OR N>500 THEN 160
180 FOR I=1 TO N:R=RND (1) : NEXT I
190 FOR I=1 TO 1500:NEXT I
191 PRINT "Do wish to see instructions"
194 INPUT " (yes/no) ",Z$
200 IF Z$=CHR$(89) OR Z$=CHR$(121) THEN 209
202 IF Z$=CHR$(78) OR Z$=CHR$(110) THEN 210
204 IF Z$<>CHR$(89) AND Z$<>CHR$(122) AND Z$<>CHR$(78) AND Z$<>CHR$(103) THEN 191
209 FOR Z=1 TO 300:NEXT Z:GOSUB 2900
210 FOR Z=1 TO 700:NEXT Z:CLS
220 PRINT "Conditions":PRINT:PRINT
230 PRINT "Choose the conditions that you wish to":PRINT "be true."
240 PRINT "In what year to you wish the election":INPUT "to take place";EY:EY=ABS(EY):IF EY=O THEN 240
250 IF EY/4=INT(EY/4) THEN 270
260 PRINT "That is not an election year.":GOTO 240
270 INPUT "Enter your name ",N$
280 INPUT "Enter your opponent's name ",O$
290 PRINT:PRINT"Do your wish to be 1> the incumbent or":INPUT"2>the challenger ",P1
300 IF P1<0 OR P1.2 THEN 290
310 PRINT:PRINT "Do your wish to be 1> a Democrat or":INPUT "2> a Republican ",P1
320 IF P1<0 OR P1>2 THEN 310
330 PR=INT(RND (1)*100)
340 IF PR<30 THEN PA=-8
350 IF PR>=30 AND PR <40 THEN PA=-5
360 IF PR>=40 AND PR<55 THEN PA=2
370 IF PR>=55 AND PR<65 THEN PA=6
380 IF PR>=65 THEN PA=10
390 IF P1=2 THEN PA=-PA
400 FOR I=1 TO 6:C(I)=PA:NEXT I
410 GOSUB 1380
420 C(1)=-8:C(2)=10:C(3)=-15:C(4)=12:C(5)=6:C(6)=-9
430 IF P2=1 THEN 450
440 FOR I=1 TO 6:C(I)=-C(I):NEXT I
450 GOSUB 1380
460 CLS:PRINT TAB(13);"I S S U E S":PRINT
470 PRINT "1) Unemployment 4) Social Adjustments"
480 PRINT "2) Inflation 5) Defense"
490 PRINT "3) Energy 6) Foreign Affairs"
500 PRINT:PRINT "Which is most important to your":INPUT "campaign ",I1
510 IF I1<1 OR I1>6 OR INT(I1)<>I1 THEN 500
520 INPUT "Which is least important ",I2
530 IF I2<1 OR I2>6 OR INT (I2)<>I2 THEN 520
540 FOR T=1 TO 9
550 CLS:PRINT "Date: "M$(T):PRINT (10-T);"Months before election"
560 CM#=0:TS#=0
570 PRINT USING A$;A#:AB#=A#:MD=0:PRINT
580 PRINT "What state do you wish"
585 INPUT " to visit ",V$
590 PRINT "You have";(30-MD);"unscheduled days":PRINT "left this month."
600 PRINT "How many days do you wish to stay":INPUT "there";DV
610 IF MD+DV>30 THEN 600
620 MD=MD+DV
630 PRINT "How many of the";DV;"days will be":INPUT "for fund raising ",DF
640 INPUT "How many days for campaigning ",DC
650 IF DV<DC+DF THEN 630
660 RESTORE
670 READ ST$,EV,I,J
680 IF ST$<>"end" THEN 710
690 PRINT "You did not spell the state correctly."
700 MD=MD-DV:GOTO 580
710 IF ST$<>V$ THEN 670
720 CC#=(EV*1600*(DF/30)):CE=DV*1100:A#=A#+CC#-CE:CM#=CM#+CC#:TS#=TS#+CE
730 ST(I,J)=ST(I,J)+INT((100-ST(I,J))*DC/30)
740 IF MD>=30 THEN 780
750 PRINT "Do you wish to visit another":INPUT "state (yes/no)";C$
760 UY$=LEFT$(C$,1):IF UY$="Y" OR UY$="y" THEN 580
770 IF UY$<>"N" AND UY$<>"n" THEN 750
780 REM CLS
790 IF UY$="Y" OR UY$="y" THEN PRINT "Spend campaign money in which":INPUT "state ";SP$ ELSE 800
800 PRINT USING A$;A#
810 PRINT:INPUT "How much do you wish to spend ",AS
820 IF AS<=50000! THEN 840
830 PRINT "The most you can spend at a single":PRINT "time is $50,000.":GOTO 810
840 IF A>50000! THEN 810
850 IF AS>A# THEN 800
860 A#=A#-AS:TS#=TS#+AS
870 RESTORE
880 READ ST$,EV,I,J
890 IF ST$<>"end" THEN 920
900 PRINT "You did not spell the state correctly."
910 A#=A#+AS:GOTO 790
920 IF ST$<>SP$ THEN 925
925 IF SP$=CHR$(0) THEN SP$=V$
930 ST(I,J)=ST(I,J)+INT((100-ST(I,J))*AS/1000000#*(1/EV))
940 IF A#<=1 THEN 980
950 PRINT "Do you wish to spend money in another":INPUT "state (yes/no)",C$
960 YU$=LEFT$(C$,1):IF YU$="Y" OR YU$="y" THEN 790
970 IF YU$<>"N" AND YU$<>"n" THEN 950
980 CLS:PRINT "Monthly Report to the Election":PRINT "Committee:":PRINT
990 PRINT "Beginning of Month End"
1000 PRINT USING B$;AB#;A#:PRINT
1010 PRINT USING D$;CM#,TS#
1020 PL=INT((RND(1)/2)*100):IF PL=0 THEN 1020
1030 RESTORE:FOR Z=1 TO PL:READ ST$,EV,I,J:NEXT Z
1040 IF ST(I,J)>50 THEN 1080
1050 IF ST(I,J)<50 THEN 1100
1060 PRINT :PRINT "Polls show you are even with ";O$
1070 PRINT "in ";ST$;".":GOTO 1120
1080 PRINT :PRINT "Polls show you are ahead of ";O$
1090 PRINT "in ";ST$;:PRINT ". You have";ST(I,J);"% of the majority vote.":GOTO 1120
1100 PRINT :PRINT "Polls show ";O$;" ahead of you in"
1110 PRINT ST$;".":PRINT "They have";(60-ST(I,J));"% of the majority vote."
1120 PRINT:INPUT "Press <ENTER> to begin next month";Z$
1130 CLS:GOSUB 1420
1140 FOR Y=1 TO 6:ST(1,Y)=ST(1,Y)-2:ST(5,Y)=ST(5,Y)-2:NEXT Y
1150 FOR Y=1 TO 13:ST(2,Y)=ST(2,Y)-2:ST(4,Y)=ST(4,Y)-2:NEXT Y
1160 FOR Y=1 TO 7:ST(3,Y)=ST(3,Y)-2:ST(6,Y)=ST(6,Y)-2:NEXT Y
1170 PRINT :INPUT "Press <ENTER> ",Z$
1180 NEXT T
1190 CLS:PRINT TAB(9);"Election Night Results"
1200 PRINT TAB(13);"Electoral Votes":PRINT:PRINT TAB(25);"Your";TAB(31);"Opponent";
1210 PRINT "State";TAB(15);"You";TAB(20)"Opp.";:PRINT
1220 PRINT TAB(25);"Total";TAB(31);"Total"
1230 RESTORE
1240 FOR K=1 TO 51
1250 READ ST$,EV,I,J
1260 IF ST(I,J)>41 THEN 1280
1270 OT=OT+EV:X=20:GOTO 1290
1280 YT=YT+EV:X=15
1290 PRINT ST$;TAB(X);EV;TAB(25);YT;TAB(31);OT
1300 FOR TM=1 TO 750:NEXT TM
1310 NEXT
1320 IF YT>OT THEN 1340
1330 W$=O$:L$=N$:WT=OT:GOTO 1350
1340 W$=N$:L$=O$:WT=YT
1350 PRINT:PRINT W$;" is the winner of the ";EY:PRINT " presidential election."
1360 PRINT W$" has";WT"electoral votes, more":PRINT "than his opponent, ";L$;"."
1370 PRINT "Do you wish to run again"
1371 INPUT "(Y)es/(N)O ",Q$
1375 IF Q$="Y" OR Q$="y" THEN 10 ELSE PRINT
1376 IF Q$<>"Y" AND Q$<>"y" AND Q$<>"N" AND Q$<>"n" THEN 1371
1377 PRINT "Thanks for playing":END
1380 FOR I=1 TO 6:ST(1,I)=ST(1,I)+C(1):ST(5,I)=ST(5,I)+C(5):NEXT I
1390 FOR I=1 TO 13:ST(2,I)=ST(2,I)+C(2):ST(4,I)=ST(4,I)+C(4):NEXT I
1400 FOR I=1 TO 7:ST(3,I)=ST(3,I)+C(3):ST(6,I)=ST(6,I)+C(6):NEXT I
1410 RETURN
1420 PE=INT(RND(1)*10):IF PE>8 THEN 1420
1430 IF PE>1 THEN 1530
1440 PRINT "The U.S. is the target of":PRINT "demonstrations in several middle east:"
1450 PRINT "countries. Several European countries":PRINT "have also been critical of ":PRINT "our foreign policy.":C=0
1460 IF P1=1 THEN C=C-1
1470 IF P1=2 THEN C=C+1
1480 IF I1=6 THEN C=C-1
1490 IF I2=2 THEN C=C-1
1500 FOR Y=1 TO 6:C(Y)=C:NEXT Y
1510 GOSUB 1380
1520 GOTO 2370
1530 IF PE>2 THEN 1670
1540 IN=1:IF INT(RND(1)*10)>5 THEN IN=2
1550 PRINT "The rate of inflation has ";
1560 IF IN=1 THEN IN$="dropped.":GOTO 1580
1570 IN$="risen."
1580 PRINT IN$:C=0
1590 IF P1=1 THEN 1630
1600 IF I1=1 THEN C=C+1
1610 IF I2=1 THEN C=C+1
1620 IF IN=1 THEN C=C+1
1630 IF IN=1 THEN C=C+1
1640 IF IN=2 THEN C=C-1
1650 FOR Y=1 TO 6:C(Y)=6:NEXT Y
1660 GOTO 2370
1670 IF PE>3 THEN 1760
1680 PRINT "There is a shortage of all petroleum":PRINT "products, especially gasoline. The"
1690 PRINT "reasons for the shortage are unclear":PRINT "at this time.":C=1
1700 IF I1=3 THEN C=C+1
1710 IF I2=3 THEN C=C-1
1720 IF P1=1 THEN C=-C
1730 FOR Y=1 TO 6:C(Y)=C:NEXT Y
1740 GOSUB 1380
1750 GOTO 2370
1760 IF PE>4 THEN 1850
1770 PB=INT(RND(1)*1500)+10300
1780 PRINT "A political boss promises to":PRINT "contribute ";PB;" dollars to your":PRINT "campaign if you will appoint some of"
1790 PRINT "his friends to powerful positions if":PRINT "you win. This contribution is not":PRINT "legal."
1800 INPUT "Will you accept (yes/no)",C$
1810 YU$=LEFT$(C$,1):IF YU$="N" OR YU$="n" THEN 2370
1820 IF YU$<>"Y" AND YU$<>"y" THEN 1800
1830 F=F+1:A#=A#+PB
1840 GOTO 2370
1850 IF PE>5 THEN 1960
1860 PRINT "Allegations have been made that you":PRINT "have accepted illegal campaign funds.":
1870 PRINT "You are presently under investigation."
1875 IF F=0 THEN 1950
1880 IF F>5 THEN 1900
1890 PRINT "You have been found guilty and you"
1891 PRINT "lose";INT(52/(G-F));"% of your support";
1892 PRINT "in each state.":GOTO 1910
1900 PRINT "You have been found guilty and thrown":PRINT "in the Federal Penetentary at":PRINT "Leavenworth, Kansas for twenty years.":END
1910 FOR Y=1 TO 6:ST(1,Y)=INT((1/(G-F))*ST(1,Y)):ST(5,Y)=INT((1/(G-F))*ST(5,Y)):NEXT Y
1920 FOR Y=1 TO 13:ST(2,Y)=INT((1/(G-F))*ST(5,Y)):ST(4,Y)=INT((1/(G-F))*ST(4,Y)):NEXT Y
1930 FOR Y=1 TO 7:ST(3,Y)=INT((1/(G-F))*ST(3,Y)):ST(6,Y)=INT((1/(G-F))*ST(6,Y)):NEXT Y
1940 GOTO 2370
1950 PRINT "You have been found innocent.":GOTO 2370
1960 IF PE>6 THEN 2190
1970 PRINT "You and ";O$;" agree to a televised":PRINT "debate."
1980 IF I1>1 THEN 2000
1990 FOR Y=1 TO 12:ST(2,Y)=ST(2,Y)+INT(0.07*(100-ST(2,Y))):NEXT Y
2000 IF I1<>5 THEN 2020
2010 FOR Y=1 TO 13:ST(4,Y)=ST(4,Y)+INT(0.06*(100-ST(4,Y))):NEXT Y
2020 IF I2>1 THEN 2040
2030 FOR Y=1 TO 12:ST(2,Y)=ST(2,Y)-INT(0.05*ST(2,Y)):NEXT Y
2040 IF I2<>5 THEN 2060
2050 FOR Y=1 TO 13:ST(4,Y)=ST(4,Y)-INT(0.02*ST(2,Y)):NEXT Y
2060 DB=INT(RND(1)/3*10):IF DB=0 THEN 2060
2070 IF DB=2 THEN 2160
2080 IF DB=1 THEN 2120
2090 FOR Y=1 TO 6:ST(1,Y)=ST(1,Y)+INT(0.02*(100-ST(1,Y))):ST(5,Y)=ST(5,Y)+INT(0.02*(100-ST(5,Y))):NEXT Y
2100 FOR Y=1 TO 7:ST(3,Y)=ST(3,Y)+INT(0.01*(100-ST(3,Y))):ST(6,Y)=ST(6,Y)+INT(0.01*(100-ST(6,Y))):NEXT Y
2110 GOTO 2150
2120 FOR Y=1 TO 6:ST(1,Y)=ST(1,Y)-INT(0.02*ST(1,Y)):ST(5,Y)=ST(5,Y)-INT(0.02*ST(5,Y)):NEXT Y
2130 FOR Y=1 TO 13:ST(2,Y)=ST(2,Y)-INT(0.01*ST(2,Y)):ST(4,Y)=ST(4,Y)-INT(0.01*ST(4,Y)):NEXT Y
2140 FOR Y=1 TO 7:ST(3,Y)=ST(3,Y)-INT(0.01*ST(3,Y)):ST(6,Y)=ST(6,Y)-INT(0.01*ST(6,Y)):NEXT Y
2150 IF DB=1 THEN PRINT "You lost the debate."
2160 IF DB=2 THEN PRINT "The debate was a draw."
2170 IF DB=3 THEN PRINT "You won the debate."
2180 GOTO 2370
2190 IF PE>7 THEN 2290
2200 PRINT "The president of a large union promises":PRINT "the support of the union's members if"
2210 PRINT "you make some pro-union campaign":PRINT "speeches."
2220 INPUT "Will you accept his help (yes/no) ",C$
2230 YU$=LEFT$(C$,1):IF YU$="Y" OR YU$="y" THEN 2250
2240 IF YU$<>"N" AND YU$<>"n" THEN 2220
2250 C(1)=0:C(2)=2:C(3)=-2:C(4)=-1:C(5)=1:C(6)=-1:GOSUB 1380
2260 GOTO 2370
2270 C(1)=0:C(2)=-2:C(3)=3:C(4)=1:C(5)=0:C(6)=0:GOSUB 1380
2280 GOTO 2370
2290 PRINT "Farmers and ranchers want you to":PRINT "campaign that they should recieve":PRINT "higher prices for their products"
2300 PRINT "Keep in mind that consumers will not":PRINT "like this.":C=0
2310 PRINT "Will you support the farmers and":INPUT "ranchers (yes/no)",C$
2320 YU$=LEFT$(C$,1):IF YU$="Y" OR YU$="y" THEN 2340
2330 IF YU$<>"N" AND YU$<>"n" THEN 2310
2340 C(1)=-1:C(2)=-1:C(3)=3:C(4)=2:C(5)=-1:C(6)=2:GOTO 2360
2350 C(1)=2:C(2)=3:C(4)=-2:C(5)=1:C(6)=-2
2360 GOSUB 1380
2370 RETURN
2380 DATA Alabama,9,4,9
2390 DATA Alaska,3,5,4
2400 DATA Arizona,6,6,4
2410 DATA Arkansas,6,4,12
2420 DATA California,45,5,6
2430 DATA Colorado,7,6,7
2440 DATA Connecticut,8,1,5
2450 DATA Delaware,3,2,3
2460 DATA D.C.,3,2,12
2470 DATA Florida,17,4,7
2480 DATA Georgia,12,4,8
2490 DATA Hawaii,4,5,5
2500 DATA Idaho,4,5,1
2510 DATA Illinois,26,2,9
2520 DATA Indiana,13,2,8
2530 DATA Iowa,8,3,2
2540 DATA Kansas,7,3,5
2550 DATA Kentucky,9,4,3
2560 DATA Louisiana,10,4,11
2570 DATA Maine,4,1,1
2580 DATA Maryland,10,2,5
2590 DATA Massachusetts,14,1,5
2600 DATA Michigan,21,2,7
2610 DATA Minnesota,10,2,11
2620 DATA Mississippi,7,4,10
2630 DATA Missouri,12,4,13
2640 DATA Montana,4,3,6
2650 DATA Nebraska,5,3,4
2660 DATA Nevada,3,6,5
2670 DATA New Hampshire,4,1,2
2680 DATA New Jersey,17,2,4
2690 DATA New Mexico,4,6,3
2700 DATA New York,41,2,1
2710 DATA North Carolina,13,4,5
2720 DATA North Dakota,4,3,1
2730 DATA Ohio,25,2,6
2740 DATA Oklahoma,8,6,2
2750 DATA Oregon,6,5,3
2760 DATA Pennsylvania,27,2,2
2770 DATA Rhode Island,4,1,6
2780 DATA South Carolina,8,4,6
2790 DATA South Dakota,4,3,3
2800 DATA Tennessee,10,4,4
2810 DATA Texas,26,6,1
2820 DATA Utah,4,6,6
2830 DATA Vermont,3,1,3
2840 DATA Virginia,12,4,2
2850 DATA Washington,8,5,2
2860 DATA West Virginia,6,4,1
2870 DATA Wisconsin,11,2,10
2880 DATA Wyoming,3,3,7
2890 DATA end,0,0,0
2900 CLS:PRINT TAB(11);"ELECTION":PRINT
2910 PRINT " You have decided to run for":PRINT "president and have obtained nomination"
2920 PRINT "from your party. The campaign begins"
2930 PRINT "nine months before the election. You"
2940 PRINT "have the options of deciding which"
2950 PRINT "states to visit each month, how many":PRINT "days you wish to spend in the states"
2960 PRINT "you visit, and wheather the visit is":PRINT "for campaigning (which wins popular"
2970 PRINT "votes) or fund raising (which wins":PRINT "no popular votes but brings in"
2980 PRINT "contributions to meet expenses and":PRINT "finance campaign activities in other"
2990 PRINT "states). The money that is in the":PRINT "campaign treasury can be spent as you":PRINT "wish in any state."
3000 PRINT :INPUT "Press >ENTER< to continue",Z$:CLS
3010 PRINT " At the beginning of the campaign,"
3020 PRINT "you are allowed to make some political"
3030 PRINT "decisions. These will affect the":PRINT "initial attitudes of the voters with"
3040 PRINT "respect to you and your opponent."
3050 PRINT "Throughout the campaign you will have":PRINT "to make additional political decisions"
3060 PRINT "that will influence voter opinion. As"
3070 PRINT "with all political decisions, whatever":PRINT "you decide will not please everyone."
3080 PRINT "In addition, some of your decisions":PRINT "will be compared to those made earlier":
3090 PRINT "Therefore, try to weigh the conditions":PRINT "of each decision carefully. In some"
3100 PRINT "cases, changing position during a":PRINT "campaign can be the best strategy,"
3110 PRINT "while at other times, it may be":PRINT "disastrous."
3120 PRINT:INPUT "Press >ENTER< to continue",Z$:CLS
3130 PRINT " At the end of each month, you":PRINT "will receive a report of the finances"
3140 PRINT "of the treasury. You will be shown":PRINT "the balence at the beginning of the"
3150 PRINT "month, the balance at the end of the":PRINT "month, total contributions during the":PRINT "month, and total expenitures during"
3160 PRINT "the month.":PRINT " Campaigning is expensive not only"
3170 PRINT "because of advertising in states but":PRINT "also for your actual visits. It is"
3180 PRINT "helpful to spend time fund raising."
3190 PRINT :INPUT "Press >ENTER< to continue",Z$:CLS
3200 PRINT " There are a few campaign laws to":PRINT "consider:"
3210 PRINT " 1) You can not put the campaign":PRINT "treasury into debt."
3220 PRINT " 2) A $50,000 maximum is placed on":PRINT "each transaction."
3230 PRINT " 3) Unreported campaign contributions":PRINT "are illegal. You may be tempted to"
3240 PRINT "accept some, but you may get caught.":PRINT "It may cost you the election or merely"
3250 PRINT "a few votes.":PRINT " 4) You may campaign as many days per":PRINT "month as you wish and visit as many"
3260 PRINT "states as you wish. Each month is":PRINT "considered to have thirty days."
3270 PRINT :INPUT "Press >ENTER< to continue",Z$:CLS
3280 PRINT " At the end of each month, you":PRINT "will be shown your status in one state"
3290 PRINT "as of the end of the month. This is":PRINT "the only indication that you will"
3300 PRINT "receive on your progress."
3310 PRINT " At the end of the campaign, the":PRINT "election is held and you will be shown"
3320 PRINT "the number of electorial college votes":PRINT "awarded by each state,to whom they":PRINT "were awarded, and the totals of"
3330 PRINT "votes that you and your opponent":PRINT "received."
3340 PRINT :INPUT "Press >ENTER< to continue",Z$:CLS
3350 PRINT " Be sure to spell each state":PRINT "correctly and remember to capitolize" :PRINT "the first letter then drop to small ":PRINT "letters. Do not use the dollar sign"
3360 PRINT "when entering amounts of money and do":PRINT "not use any commas between number digits."
3370 PRINT :INPUT "Press >ENTER< to begin the campaign",Z$:CLS
3380 RETURN
FILES450.TXT
------------------------------------------------------------------------
Disk No 450 Assorted BASIC Games v1 DS2
-----------------------------------------------------------------------
Another bunch of BASIC games for the collector or weekend game lover.
All are interpreted so they can be modified to suit your own tastes.
DICE BAS A simple dice game
ELECTION BAS You get to run for President
FUN BAS A fun with numbers game
MONEYMKT BAS Can you succeed in the stock market?
PRESCH BAS A word game for pre-schoolers
RIEMAN BAS Can you survive in the intergalactic trading circle
ROBOTNKA BAS Shoot the tank before it gets to you
STAR2001 BAS Another space game
WALLST BAS Another Stock Market simulation
PC Software Interest Group (PC-SIG)
1030 E Duane, Suite J
Sunnyvale, CA 94086
(408) 730-9291
FUN.BAS
1 CLS:COLOR 0,7:IF BDR=0 THEN GOTO 15000
2 PRINT"H-HEIGHT-WEIGHT P-PROPORTIONS M-MONEY PROBLEMS "
3 PRINT"A-AGE (WORD PROBLEMS), F-FACTOR-SOLVE SQUARES, L-LINEAR WORD PROBLEM"
4 PRINT"C-CONSECUTIVE NUMBERS E-END T-HYPOTENUSE S-SLOPE "
5 PRINT"R-CUBE ROOTS RV-REVIEW CE-CENTIGRADE AR-AREA V-VOLUME "
6 PRINT"PUT CAPS LOCK DOWN. TYPE ANSWERS IN DECIMAL FORM, PRESS ENTER "
7 COLOR 7,0:PRINT:PRINT:INPUT ANS$:IF ANS$="C" THEN GOTO 2500
8 IF ANS$="A" OR ANS$="a" THEN CLS:GOTO 1100
9 IF ANS$="H" OR ANS$="h" THEN CLS:GOTO 22
10 IF ANS$="P" OR ANS$="p" THEN CLS:GOTO 300
11 IF ANS$="E" OR ANS$="e" THEN CLS:GOTO 5000
12 IF ANS$="M" OR ANS$="m" THEN CLS:GOTO 800
13 IF ANS$="F" OR ANS$="f" THEN CLS:GOTO 1500
14 IF ANS$="L" OR ANS$="l" THEN CLS:GOTO 2000
15 IF ANS$="S" OR ANS$="s" THEN CLS:GOTO 3000
16 IF ANS$="T" OR ANS$="t" THEN CLS:GOTO 4000
17 IF ANS$="R" OR ANS$="r" THEN CLS:GOTO 4700
18 IF ANS$="RV" OR ANS$="rv" THEN CLS:GOTO 12000
19 IF ANS$="AR" OR ANS$="ar" THEN CLS:GOTO 11000
20 IF ANS$="CE" OR ANS$="ce" THEN CLS:GOTO 11300
21 IF ANS$="V" OR ANS$="v" THEN CLS:GOTO 11500
22 PRINT TAB(33);"WEIGHT-BASED ON FORMULA: 2W=11(H-40)"
23 FOR K=1 TO 2000:NEXT K:CLS
30 PRINT:PRINT:PRINT
40 PRINT"WEIGHT-HEIGHT EXERCISE":PRINT
50 RANDOMIZE VAL(MID$(TIME$,7,2)):C=INT(25*RND(1))+40
60 RANDOMIZE VAL(MID$(TIME$,7,2)):D=INT(25*RND(1))+60
70 RANDOMIZE VAL(MID$(TIME$,7,2)):T=INT(19*RND(1))+200
71 RANDOMIZE VAL(MID$(TIME$,7,2)):LET TN=INT(RND*2)+1
72 IF TN=1 THEN GOTO 79
79 PRINT:PRINT"WHAT IS THE NORMAL WEIGHT OF CORNELIUS IF HE IS ";D;" IN. TALL";
80 INPUT A:IF A=0 THEN GOTO 1
81 V=(11*(D-40))/2:E=INT(ABS((V-A)*100/A)+.5)
82 IF E>5 THEN 85
83 BEEP:PRINT"HEY, ";BR$;"-THAT'S PRETTY GOOD!! ANSWER WITHIN ";E;" PERCENT."
85 PRINT"CORRECT ANSWER IS ";V;" LBS."
86 INPUT" WOULD YOU LIKE TO TRY AGAIN (Y/N) ";YN$
87 IF YN$="Y" THEN GOTO 50
88 GOTO 1
300 PRINT TAB(33);"PROPORTIONS-BASED ON W1/L1=W2/L2"
320 PRINT
330 PRINT:PRINT:PRINT
400 PRINT
405 PRINT
406 Q=0
407 RANDOMIZE VAL(MID$(TIME$,7,2)):AH=INT(RND*40)+1
408 RANDOMIZE VAL(MID$(TIME$,7,2)):BH=INT(RND*40)+1
410 RANDOMIZE VAL(MID$(TIME$,7,2)):DH=INT(RND*40)+1
411 CH=(AH/BH)*DH
412 IF AH<2 OR BH<2 OR CH<2 OR DH<2 THEN GOTO 407
413 IF AH=CH OR BH=DH THEN GOTO 407
414 PRINT"THE WOODEN BOARD VARIES DIRECTLY WITH ITS LENGTH."
415 PRINT"IF A ";BH;" FOOT BOARD WEIGHS ";AH;"LBS. THEN HOW MUCH DOES A "
416 PRINT DH;" FOOT BOARD WEIGH "
500 INPUT G
502 ESB=INT(ABS((CH-G)*100/G)+.5):IF ESB<=5 THEN GOTO 510
504 PRINT"BOY, DO YOU NEED PRACTICE!"
506 GOTO 512
510 BEEP:PRINT"HEY, THAT'S SWELL, ";BR$
511 Q=Q+1
512 PRINT"CORRECT ANSWER IS ";CH;" LBS."
520 PRINT
521 INPUT" WOULD YOU LIKE TO CONTINUE WITH THIS (Y/N) ";YN$
522 IF YN$="Y" THEN GOTO 407
523 GOTO 1
800 PRINT"BASED ON TOTAL RECEIPTS=RECEIPT1+RECEIPT2"
801 RANDOMIZE VAL(MID$(TIME$,7,2)):LET T=INT(RND*25)+25
802 RANDOMIZE VAL(MID$(TIME$,7,2)):LET P1=INT(RND*25)+1
803 RANDOMIZE VAL(MID$(TIME$,7,2)):LET P2=INT(RND*25)+1
804 RANDOMIZE VAL(MID$(TIME$,7,2)):LET R=INT(RND*25)+25
805 IF T<R THEN GOTO 801
806 LET K=INT(RND*25)+1:IF P1=P2 THEN 800
807 LET T=ABS(T):LET T=(P1*K)+(P2*R)+(P2*-K):LET M=R-K
808 GOTO 900
812 IF B=K AND C=M THEN BEEP:PRINT"KEEP IT UP, ";BR$;"!":COR=COR+1:GOTO 815
814 PRINT"THE CORRECT ANSWERS ARE ";K;" AND ";M:WR=WR+1
815 INPUT"WOULD YOU LIKE TO TRY AGAIN ";MA$
816 IF MA$="Y" THEN GOTO 800
817 GOTO 1000
900 LET MA=INT(RND*3)+1:IF MA=1 THEN GOTO 905
901 IF MA=3 THEN GOTO 910
902 IF MA=2 THEN GOTO 915
905 PRINT:PRINT"A MERCHANT SOLD ";R;"BRACELETS ON FRIDAY, SOME FOR $";P1
906 PRINT"AND THE REST FOR $";P2;"EACH. IF HIS RECEIPTS TOTALED $";T
907 PRINT"HOW MANY OF EACH KIND DID HE SELL "
908 PRINT:INPUT"TYPE TOTAL OF FIRST JEWELRY ";B
909 INPUT"TYPE TOTAL OF REMAINDER JEWELRY ";C:GOTO 921
910 PRINT:PRINT"HATS WORTH $";P1;" AND DRESSES WORTH $";P2;" WERE SOLD ON"
911 PRINT"MONDAY. THE MANAGER RECEIVED $";T;" AND HAD ";R
912 PRINT"RECEIPTS."
913 PRINT:PRINT:INPUT"TYPE TOTAL OF HATS SOLD ";B
914 INPUT"TYPE TOTAL OF JEWELRY SOLD ";C:GOTO 921
915 PRINT:PRINT"DINNER THEATRE TICKETS FOR THE FIRST SHOW WERE SOLD FOR $";P1
916 PRINT"AND DINNER THEATRE TICKETS FOR THE SECOND SHOW WERE SOLD"
917 PRINT"FOR $";P2;"EACH. A TOTAL OF ";R;" TICKETS WERE SOLD, AND"
918 PRINT"$";T;" WAS COLLECTED IN ALL."
919 PRINT:INPUT"TYPE TOTAL OF FIRST SHOW TICKETS ";B
920 INPUT"TYPE TOTAL OF 2ND SHOW TICKETS ";C
921 GOTO 812
1000 LET SCOR=INT((100*COR)/(COR+WR)):PRINT"YOUR SCORE WAS ";SCOR;"%"
1001 FOR TIM=1 TO 1000:NEXT TIM:COR=0:WR=0:SCOR=0:GOTO 1
1100 CLS:RANDOMIZE VAL(MID$(TIME$,7,2)):LET OPA=INT(RND*10)+1:OP=INT(RND*90)
1101 RANDOMIZE VAL(MID$(TIME$,7,2)):LET PA=INT(RND*10)+1:P=INT(RND*10)+1
1102 LET P=INT(P)
1103 LET OP=INT(PA*P)-INT(PA*OPA)+INT(OPA):IF OP<(2*INT(P)) THEN GOTO 1100
1104 GOSUB 8000:GOTO 1150
1105 IF H=INT(P) THEN BEEP:PRINT"ARE ALL HUMANS THIS GOOD?":CR=CR+1:GOTO 1107
1106 PRINT"THE CORRECT ANSWER IS ";INT(P):WG=WG+1
1107 INPUT" DO YOU WANT TO TRY AGAIN (Y/N) ";YN$
1108 IF YN$="Y" THEN GOTO 1100
1109 LET SC=INT((100*CR)/(CR+WG)):PRINT"YOUR SCORE WAS ";SC;"%"
1110 CR=0:WG=0:SC=0:FOR K=1 TO 1000:NEXT K
1124 GOTO 1
1150 LET FL=INT(RND*3)+1
1151 IF FL=1 THEN GOTO 1250
1152 IF FL=2 THEN GOTO 1350
1153 IF FL=3 THEN GOTO 1450
1250 PRINT"CLOD'S HOUSE IS ";OP;" YEARS OLD. ";OPA;" YEARS AGO"
1251 PRINT"IT WAS ";PA;" TIMES AS OLD AS KLUTZ'S HOUSE."
1252 PRINT"HOW OLD IS KLUTZ'S HOUSE NOW "
1253 INPUT H
1254 GOTO 1105
1350 PRINT"A RUBY IS ";OP;" YEARS OLD. ";OPA;" YEARS AGO"
1351 PRINT"IT WAS ";PA;" TIMES AS OLD AS AN EMERALD."
1352 PRINT"HOW OLD IS THE EMERALD"
1353 INPUT H
1354 GOTO 1105
1450 PRINT OPA;" YEARS AGO A VOLKSWAGEN WAS ";PA;" TIMES AS OLD AS A CHEVROLET"
1451 PRINT"THE VOLKSWAGEN IS NOW ";OP;" YEARS OLD. "
1452 PRINT"HOW OLD IS THE CHEVY NOW"
1453 INPUT H
1454 GOTO 1105
1500 RANDOMIZE VAL(MID$(TIME$,7,2)):LET DL=INT(RND*2)+1
1504 RANDOMIZE VAL(MID$(TIME$,7,2)):LET EL=INT(RND*10)+1
1505 RANDOMIZE VAL(MID$(TIME$,7,2)):LET FL=INT(RND*10)+1
1506 RANDOMIZE VAL(MID$(TIME$,7,2)):LET GL=INT(RND*2)+1
1507 LET FL=INT(FL):LET GD=INT(FL+EL)^2
1508 PRINT GD;"=X^2";" + ";2*EL;"X + ";EL*EL
1509 INPUT"WHAT DOES X EQUAL ";DN:PRINT
1510 IF DN=FL THEN BEEP:PRINT"AND I THOUGHT I WAS SMART!!!":DE=DE+1:GOTO 1512
1511 PRINT"THE CORRECT ANSWER WAS ";FL:LE=LE+1
1512 INPUT" WOULD YOU LIKE TO TRY AGAIN (Y/N) ";AG$
1513 IF AG$="Y" THEN GOTO 1500
1515 LET SD=INT((100*DE)/(DE+LE)):PRINT"YOUR SCORE WAS ";SD;"%"
1516 FOR K=1 TO 1000:SD=0:DE=0:LE=0:SD=0:NEXT K:CLS:GOTO 1
2000 CLS:GOSUB 7000:RANDOMIZE VAL(MID$(TIME$,7,2)):LET AC=INT(RND*40)+1
2002 RANDOMIZE VAL(MID$(TIME$,7,2)):LET CC=INT(RND*40)+1
2003 RANDOMIZE VAL(MID$(TIME$,7,2)):LET DC=INT(RND*30)+1
2004 RANDOMIZE VAL(MID$(TIME$,7,2)):LET EC=INT(RND*40)+1
2005 LET EC=INT(AC+(5*CC))
2006 LET DC=INT(AC+CC)
2007 GOTO 2200
2008 IF NI=CC AND PE=AC THEN BEEP:PRINT"GOOD, ";BR$;"!":CL=CL+1:GOTO 2010
2009 PRINT"THERE ARE ";AC;" PENNIES AND ";CC;" NICKELS.":WL=WL+1
2010 INPUT"WOULD YOU LIKE TO TRY AGAIN (Y/N) ";YN$
2011 IF YN$="Y" THEN GOTO 2000
2012 LET SF=INT((CL*100)/(CL+WL)):PRINT"YOUR SCORE IS ";SF;"%"
2013 FOR K=1 TO 1000:CL=0:WL=0:SF=0:NEXT K:CLS:GOTO 1
2200 PRINT "THE CASH DRAWER CONTAINS A TOTAL OF ";EC;" CENTS."
2202 PRINT "THERE ARE ";DC;" COINS CONSISTING OF NICKELS AND PENNIES.":PRINT
2203 INPUT"HOW MANY NICKELS ARE THERE ";NI
2204 INPUT"HOW MANY PENNIES ARE THERE";PE:PRINT
2220 GOTO 2008
2500 GOSUB 6000:RANDOMIZE VAL(MID$(TIME$,7,2)):LET EL=INT(RND*70)+1
2501 RANDOMIZE VAL(MID$(TIME$,7,2)):LET EF=INT(RND*70)+1
2502 LET EF=INT(EL)+INT(EL+1)+INT(EL+2)
2503 PRINT"THE SUM OF THREE CONSECUTIVE INTEGERS IS ";EF
2504 INPUT"WHAT IS THE FIRST NUMBER ";BI
2505 INPUT"WHAT IS THE 2ND NUMBER ";BJ
2506 INPUT"WHAT IS THE 3RD NUMBER ";BK:PRINT
2507 IF BI=EL AND BJ=EL+1 AND BK=EL+2 THEN GOTO 2510
2508 PRINT"MY REGRETS,";BR$;". THE ANSWERS WERE ";EL;" AND ";EL+1;" AND ";EL+2
2509 GOTO 2511
2510 BEEP:PRINT"I'LL BET YOU'RE HOLDING A LUCKY PENNY.":LET CO=CO+1:GOTO 2512
2511 LET WO=WO+1
2512 INPUT"WOULD YOU LIKE TO CONTINUE ";YN$
2513 IF YN$="Y" THEN GOTO 2500
2514 LET SK=INT((100*CO)/(CO+WO)):PRINT"YOUR SCORE WAS ";SK;"%"
2515 FOR K=1 TO 1000:SK=0:CO=0:WO=0:NEXT K:GOTO 1
3000 RANDOMIZE VAL(MID$(TIME$,7,2)):LET AT=INT(RND*20)+1
3001 RANDOMIZE VAL(MID$(TIME$,7,2)):LET BT=INT(RND*20)+1
3002 RANDOMIZE VAL(MID$(TIME$,7,2)):LET CT=INT(RND*20)+1
3003 RANDOMIZE VAL(MID$(TIME$,7,2)):LET DT=INT(RND*20)+1
3004 RANDOMIZE VAL(MID$(TIME$,7,2)):LET ET=INT(RND*20)+1
3005 PRINT"BASED ON FORMULA SLOPE=RISE/RUN"
3006 LET AT=((BT*CT)+DT)/ET:LET YT=BT/ET
3007 PRINT:PRINT"WHAT IS THE SLOPE FOR THE FOLLOWING EQUATION "
3008 PRINT ET;"Y = ";BT;"X + ";DT
3009 INPUT ZT
3010 EM=INT(ABS((YT-ZT)*100/ZT)+.5)
3011 IF EM>5 THEN PRINT"TOO BAD, ";BR$;". ANSWER IS ";YT:WT=WT+1:GOTO 3013
3012 BEEP:IF EM<=5 THEN PRINT"TERRIFIC, ";BR$;". ANSWER IS ";YT:FT=FT+1
3013 INPUT"WOULD YOU LIKE TO CONTINUE ";YN$
3014 IF YN$="Y" THEN GOTO 3000
3016 LET ST=INT((100*FT)/(FT+WT)):PRINT"YOUR SCORE WAS ";ST;"%"
3017 FOR K=1 TO 1000:NEXT K:ST=0:CT=0:WT=0:GOTO 1
4000 RANDOMIZE VAL(MID$(TIME$,7,2)):LET AZA=INT(RND*20)+1
4001 RANDOMIZE VAL(MID$(TIME$,7,2)):LET AZB=INT(RND*20)+1
4002 RANDOMIZE VAL(MID$(TIME$,7,2)):LET AZC=INT(RND*20)+1
4004 IF AZC^2=AZB^2+AZA^2 THEN GOTO 4006
4005 GOTO 4000
4006 PRINT"HYPOTENUSE SQUARED = LEG1^2 + LEG2^2"
4007 PRINT:PRINT
4008 PRINT"THE HYPOTENUSE OF A RIGHT TRIANGLE IS ";AZC;" IN., AND "
4009 PRINT"ONE OF ITS LEGS IS ";AZA;" IN. HOW LONG IS THE OTHER LEG"
4010 PRINT:INPUT AZF:IF AZF=0 THEN GOTO 1
4011 EZA=INT(ABS((AZB-AZF)*100/AZF)+.5)
4012 IF EZA>5 THEN GOTO 4015
4013 BEEP:PRINT"THAT'S EXCELLENT, ";BR$;"! CORRECT ANSWER ";AZB:CZA=CZA+1
4014 GOTO 4016
4015 PRINT BR$;" WHAT WERE YOU DOING LAST NIGHT. ANSWER IS ";AZB:WZA=WZA+1
4016 PRINT:INPUT"WOULD YOU LIKE TO TRY IT AGAIN (Y/N) ";YN$
4017 IF YN$="Y" THEN GOTO 4000
4018 LET SZA=INT((100*CZA)/(CZA+WZA)):PRINT"YOUR SCORE WAS ";SZA;"%"
4019 FOR K=1 TO 1000:NEXT K:SZA=0:CZA=0:WZA=0:CLS:GOTO 1
4700 RANDOMIZE VAL(MID$(TIME$,7,2)):LET DLA=INT(RND*2)+1
4705 RANDOMIZE VAL(MID$(TIME$,7,2)):LET FLA=INT(RND*15)+1
4707 LET FLA=INT(FLA):LET GDA=INT(FLA)^3
4708 PRINT GDA;" = X^3"
4709 INPUT"WHAT DOES X EQUAL ";DNA:PRINT
4710 IF DNA=FLA THEN BEEP:PRINT"AND I THOUGHT I WAS SMART!!!":DA=DA+1:GOTO 4712
4711 PRINT"THE CORRECT ANSWER WAS ";FLA:LA=LA+1
4712 INPUT"WOULD YOU LIKE TO TRY AGAIN (Y/N) ";AH$
4713 IF AH$="Y" THEN GOTO 4700
4715 LET SDA=INT((100*DA)/(DA+LA)):PRINT BR$;" YOUR SCORE WAS ";SDA;"%"
4716 FOR K=1 TO 1000:NEXT K:SDA=0:DA=0:LA=0:CLS:GOTO 1
5000 CLS:CLEAR:CHAIN "A:DIRECTO.BAS"
6000 PRINT"BASED ON FORMULA N+(N+1)+(N+2)=TOTAL"
6001 FOR K=1 TO 2000:NEXT K:CLS:RETURN
7000 PRINT"BASED ON 5N + P - TOTAL AMOUNT OF CHANGE = 0"
7001 PRINT" LESS N + P - TOTAL NUMBER OF COINS = 0"
7002 PRINT" 4N = AMT CHANGE LESS # COINS"
7003 PRINT" N = AMT CHANGE-COINS/4"
7004 FOR K=1 TO 1000:NEXT K:CLS:RETURN
8000 PRINT"BASED ON TIMES OLDER(YOUNG AGE-YEARS AGO)=OLDER AGE YEARS AGO"
8001 FOR K=1 TO 1000:NEXT K:CLS:RETURN
11000 RANDOMIZE VAL(MID$(TIME$,7,2)):LET AWA=INT(RND*50)+1
11002 RANDOMIZE VAL(MID$(TIME$,7,2)):LET AWB=INT(RND*50)+1
11003 PRINT"BASED ON AREA OF RECTANGLE = LENGTH * WIDTH"
11004 LET ALA=AWA*AWB
11005 PRINT
11006 PRINT"THE LENGTH OF A RECTANGLE IS ";AWA;"IN., AND THE AREA IS ";ALA;"IN"
11007 PRINT"HOW LONG IS THE WIDTH"
11008 INPUT ADA
11009 ECA=INT(ABS((AWB-ADA)*100/ADA)+.5)
11010 IF ECA>5 THEN GOTO 11015
11011 BEEP:PRINT"THREE CHEERS FOR ";BR$;". ANSWER IS ";AWB:CMA=CMA+1
11012 GOTO 11020
11015 PRINT BR$;" ARE YOU SURE YOU DID YOUR HOMEWORK. ANSWER ";AWB:WMA=WMA+1
11020 INPUT"WELL, DO YOU WANT TO DO THIS AGAIN (Y/N) ";YN$
11021 IF YN$="Y" THEN GOTO 11000
11022 LET SWB=INT((100*CMA)/(CMA+WMA)):PRINT"YOUR SCORE WAS ";SWB;"%"
11023 FOR K=1 TO 1000:NEXT K:SWB=0:CMA=0:WMA=0:CLS:GOTO 1
11300 RANDOMIZE VAL(MID$(TIME$,7,2)):LET FX=INT(RND*100)+1
11302 PRINT"CENTIGRADE = .55(FAHRENHEIT - 32)"
11303 PRINT:CX=(.55)*(FX-32)
11304 PRINT"THE TEMPERATURE IN FAHRENHEIT IS ";FX;". HOW MUCH IS THE"
11305 PRINT"TEMPERATURE IN CENTIGRADE"
11306 PRINT
11307 INPUT AS
11308 ES=INT(ABS((CX-AS)*100/AS)+.5)
11309 IF ES>5 THEN GOTO 11320
11310 BEEP:PRINT"THAT IS WONDERFUL. ANSWER ";CX:CL=CL+1
11311 GOTO 11325
11320 PRINT"COME ON, ";BR$;", YOU CAN DO BETTER THAN THAT! ANSWER ";CX:WL=WL+1
11325 INPUT"CARE TO TRY AGAIN (Y/N) ";YN$
11326 IF YN$="Y" THEN GOTO 11300
11327 LET SL=INT((100*CL)/(CL+WL)):PRINT"YOUR SCORE WAS ";SL;"%"
11328 FOR K=1 TO 1000:NEXT K:SL=0:CL=0:WL=0:GOTO 1
11500 DEFDBL J:DEFDBL I:PRINT"BASED ON V=(3.14 * R^2 * H)"
11501 RANDOMIZE VAL(MID$(TIME$,7,2)):LET J=INT(RND*5)+1
11502 RANDOMIZE VAL(MID$(TIME$,7,2)):LET I=INT(RND*5)+1
11503 LET WW=(3.14)*(J^2)*(I)
11504 PRINT:PRINT"IF THE RADIUS OF A CYLINDER IS ";J;" & ITS VOLUME IS ";WW
11505 INPUT"WHAT IS ITS HEIGHT";BDE:IF BDE=0 THEN GOTO 1
11506 EST=INT(ABS((I-BDE)*100/BDE)+.5)
11507 IF EST>5 THEN GOTO 11510
11508 BEEP:PRINT"SAY, THAT'S GOOD, ";BR$;" ANSWER IS ";I:LET CRS=CRS+1
11509 GOTO 11515
11510 PRINT"ALL THAT WORK FOR NOTHING. ANSWER IS ";I:LET WRS=WRS+1
11515 INPUT"WOULD YOU LIKE TO TRY AGAIN (Y/N) ";YN$
11516 IF YN$="Y" THEN GOTO 11500
11517 LET SSA=INT((100*CRS)/(CRS+WRS)):PRINT"YOUR SCORE WAS ";SSA;"%"
11518 FOR K=1 TO 1000:NEXT K:SSA=0:CRS=0:WRS=0:CLS:GOTO 1
12000 CLS:COLOR 0,7:PRINT"***REVIEW ON OPERATIONS IN THIS PROGRAM.****";:COLOR 7,0
12001 COLOR 0,7:PRINT"TYPE YOUR SELECTION, AND THEN THE ENTER KEY.";:COLOR 7,0
12002 PRINT:PRINT
12005 PRINT"H-HEIGHT-WEIGHT P-PROPORTIONS M-MONEY PROBLEMS "
12006 PRINT"A-AGE (WORD PROBLEMS), F-FACTOR-SOLVE SQUARES, L-LINEAR "
12007 PRINT"C-CONSECUTIVE NUMBERS E-END T-HYPOTENUSE S-SLOPE "
12008 PRINT"R-RETURN TO MAIN MENU CE-CENTIGRADE V-VOLUME AR-AREA"
12009 PRINT:PRINT
12010 INPUT AF$
12011 IF AF$="H" OR AF$="h" THEN CLS:GOTO 12200
12012 IF AF$="P" OR AF$="p" THEN CLS:GOTO 12400
12013 IF AF$="M" OR AF$="m" THEN CLS:GOTO 12600
12014 IF AF$="A" OR AF$="a" THEN CLS:GOTO 12800
12015 IF AF$="F" OR AF$="f" THEN CLS:GOTO 13000
12016 IF AF$="L" OR AF$="l" THEN CLS:GOTO 13200
12017 IF AF$="C" OR AF$="c" THEN CLS:GOTO 13400
12018 IF AF$="T" OR AF$="t" THEN CLS:GOTO 13600
12019 IF AF$="S" OR AF$="s" THEN CLS:GOTO 13800
12020 IF AF$="R" OR AF$="r" THEN GOTO 1
12021 IF AF$="" THEN CLS:GOTO 12000
12022 IF AF$="E" OR AF$="e" THEN CLS:END
12023 IF AF$="CE" OR AF$="ce" THEN CLS:GOTO 14000
12024 IF AF$="V" OR AF$="v" THEN CLS:GOTO 14300
12025 IF AF$="AR" OR AF$="ar" THEN CLS:GOTO 14100
12200 PRINT"THE HEIGHT WEIGHT IS BASED ON THE FORMULA 2W=11(H-40)"
12201 PRINT"FOR EXAMPLE, IF A PERSON WEIGHED 170 THEN IT WOULD BE SOLVED THIS"
12202 PRINT"WAY: "
12203 PRINT:PRINT
12204 PRINT"2*170 = 11H-440"
12205 PRINT"340+440 = 11H"
12206 PRINT"780/11 = 70.9 IN."
12207 PRINT:PRINT:INPUT"PRESS ENTER TO CONTINUE ";W$
12208 CLS:GOTO 12000
12400 PRINT"A PROPORTION IS AN EQUATION THAT GIVES THE EQUALITY OF TWO"
12401 PRINT"RATIOS. FOR EXAMPLE: "
12402 PRINT:PRINT"IF THE WEIGHT OF A DOOR VARIES DIRECTLY WITH ITS LENGTH"
12403 PRINT"AND AN EIGHT FOOT DOOR WEIGHS 50 POUNDS, THEN WE COULD EASILY"
12404 PRINT"FIGURE OUT HOW MUCH A FOUR FOOT DOOR WEIGHS W/L=W2/L2"
12405 PRINT:PRINT
12406 PRINT"50/8 = X/4"
12407 PRINT"8X = 200"
12408 PRINT" X = 25"
12409 PRINT:INPUT"PRESS ENTER TO CONTINUE ";W$
12410 GOTO 12000
12600 PRINT"IF I SOLD 18 BRACELETS, SOME FOR 2$, AND THE REST FOR 4$,"
12601 PRINT"AND IF I KNEW THAT I HAD $50 RESULTING FROM THE SALE, THEN"
12602 PRINT"IT WOULD BE POSSIBLE TO DETERMINE HOW MANY 2$ BRACELETS "
12603 PRINT"AND HOW MANY 4$ BRACELETS I SOLD"
12604 PRINT:PRINT
12605 PRINT"TOTAL CASH = 2$ BRACELETS + 4$ BRACELETS"
12606 PRINT"50 = 2B + 4(18 - B)
12607 PRINT"50 = 2B + 72 - 4B
12608 PRINT"-22 = -2B"
12609 PRINT"-22/-2 = -2B/-2
12610 PRINT"11 = NUMBER OF 2$ BRACELETS"
12611 PRINT" THEREFORE NUMBER OF 4$ BRACELETS = 18-11=7"
12612 PRINT:INPUT"PRESS ENTER TO CONTINUE ";W$
12613 GOTO 12000
12800 PRINT"IF MY DAD WAS TWICE MY AGE TWO YEARS AGO, AND HE IS NOW"
12801 PRINT"66 THEN HOW OLD WOULD I BE. THIS IS A VERY SIMPLE PROBLEM"
12802 PRINT:PRINT
12803 PRINT"MY PRESENT AGE IS M"
12804 PRINT"MY AGE TWO YEARS AGO WOULD BE: (M-2)"
12805 PRINT"2 TIMES MY AGE 2 YEARS AGO 2(M-2)"
12806 PRINT"MY DAD'S AGE TWO YEARS AGO: 64"
12807 PRINT
12808 PRINT"2*(M - 2) = 64"
12809 PRINT"2M = 68"
12810 PRINT"M = 34 - MY AGE"
12811 PRINT:INPUT"PRESS ENTER TO CONTINUE ";W$:GOTO 12000
13000 PRINT:PRINT
13001 PRINT"AN EQUATION CAN BE SOLVED MANY TIMES BY FACTORING IF IT IS"
13002 PRINT"A SQUARE. EXAMPLE: "
13003 PRINT:PRINT"X^2 + 4X + 4 = 25"
13004 PRINT" (X+2)*(X+2) = 25"
13005 PRINT" (X+2) = 5"
13006 PRINT" THEREFORE X = 3"
13008 PRINT
13009 PRINT"IF YOU ARE UNSURE ABOUT ANY OF THE PROPERTIES OF ADDITION,"
13010 PRINT"SUBTRACTION, MULTIPLICATION OR DIVISION, THEN YOU CAN"
13011 PRINT"SUBSTITUTE VALUES IN EQUATIONS. EXAMPLE"
13012 PRINT
13013 PRINT"A(B + C) = AB + AC"
13014 PRINT"SUBSTITUTE 2 FOR A, 3 FOR B, AND 4 FOR C."
13015 PRINT"B, THEN CHECK."
13016 PRINT:PRINT"2(3 + 4) = 2 * 7 = 14"
13017 PRINT"2*3 + 2*4 = 6 + 8 = 14"
13018 INPUT"PRESS ENTER TO CONTINUE ";W$
13019 GOTO 12000
13200 PRINT"MANY TIMES TWO EQUATIONS COMBINED CAN BE SOLVED TOGETHER"
13201 PRINT"EXAMPLE"
13203 PRINT"IF I HAVE PENNIES AND NICKELS IN A CASH DRAWER AND"
13204 PRINT"I ALSO KNOW THAT I HAVE 30 COINS CONSISTING OF .70 IN CASH"
13205 PRINT"THEN IT WOULD BE POSSIBLE FOR ME TO FIGURE OUT PRECISELY HOW"
13206 PRINT"MANY NICKELS AND PENNIES I HAVE"
13207 PRINT
13208 PRINT"PENNIES + NICKELS = NUMBER OF COINS"
13209 PRINT"VALUE OF PENNIES + VALUE OF NICKELS = TOTAL CENTS"
13211 PRINT" P + 5N = 70"
13212 PRINT" P + N = 30"
13213 PRINT:PRINT"NEXT, SET THE EQUATIONS UP = TO 0, THEN SUBTRACT"
13215 PRINT" P + 5N -70 = 0"
13216 PRINT" P + N - 30 = 0"
13217 PRINT" 4N- 40 = 0"
13218 PRINT" 4N = 40"
13219 PRINT" N = 10 = NUMBER OF NICKELS"
13220 PRINT" P+10-30 = 0 NUMBER OF PENNIES"
13221 PRINT" P = 20"
13222 PRINT:INPUT"PRESS ENTER TO CONTINUE ";W$
13223 GOTO 12000
13400 PRINT"IF THE SUM OF THREE INTEGERS IS 30 THEN WE CAN SOLVE IT THE"
13401 PRINT"FOLLOWING WAY: "
13402 PRINT
13403 PRINT"N1 + (N1 + 1) + (N1 + 2) = 30
13404 PRINT"3N1 + 3 = 30"
13405 PRINT"3N1 = 27"
13406 PRINT"N1 = 9"
13407 PRINT:PRINT
13408 PRINT"THEREFORE THE NUMBERS ARE 9, 10, AND 11
13409 PRINT:INPUT"PRESS ENTER TO CONTINUE ";W$
13410 GOTO 12000
13600 PRINT"THE PYTHAGOREAN THEOREM STATES THAT IF A AND B ARE THE LENGTHS"
13601 PRINT"OF THE LEGS AND C IS THE LENGTH OF THE HYPOTENUSE OF THE RIGHT"
13602 PRINT"TRIANGLE THEN A^2 = B^2 + C^2"
13603 PRINT
13604 PRINT"IF THE HYPOTENUSE OF A RIGHT TRIANGLE IS 13 AND THE LEG IS"
13605 PRINT"5 THEN IT WOULD BE SOLVED THIS WAY"
13606 PRINT:PRINT
13607 PRINT"13^2 = 5^2 + C^2"
13608 PRINT"169 = 25 + C^2"
13609 PRINT"144 = C^2"
13610 PRINT"12 = C"
13611 PRINT:INPUT"PRESS ENTER TO CONTINUE ";W$
13612 GOTO 12000
13800 PRINT"THE SLOPE = RISE/RUN"
13801 PRINT
13802 PRINT"WE CAN FIGURE OUT THE SLOPE BY SOLVING THE EQUATION IN TERMS"
13803 PRINT"OF Y. EXAMPLE"
13804 PRINT
13805 PRINT"3X + 2Y + 6 =0"
13806 PRINT" 2Y = -3X - 6"
13807 PRINT" Y = -3/2X - 3"
13808 PRINT:PRINT"Y INTERCEPT = -3"
13809 PRINT"SLOPE = -3/2X"
13810 INPUT"PRESS ENTER TO CONTINUE ";W$
13811 GOTO 12000
14000 PRINT"CENTIGRADE IS CONVERTED TO FAHRENHEIT BY USING THE FOLLOWING"
14001 PRINT"FORMULA: C = .55(F-32) (.55 WILL BE USED INSTEAD OF 5/9"
14002 PRINT"IF FAHRENHEIT IS 68 THEN WE WOULD DO IT IN THE FOLLOWING WAY"
14003 PRINT"C = .55(68-32)"
14004 PRINT"C = .55 * 36 = 19.8 DEGREES"
14005 INPUT"PRESS ENTER TO CONTINUE ";W$
14006 GOTO 12000
14100 PRINT"BASED ON THE FORMULA OF AREA = LENGTH * WIDTH"
14101 PRINT
14102 PRINT"IF THE LENGTH IS 5, AND THE AREA IS 20 THEN THE ANSWER WOULD"
14103 PRINT"BE CALCULALATED BY DIVIDING 5 INTO 20 WHICH WOULD BE 4 IN THIS"
14104 PRINT"CASE."
14105 PRINT
14106 PRINT"THE FORMULA WOULD LOOK THIS WAY: "
14107 PRINT"20 = 5 * W"
14108 PRINT"20/5 = 5/5W"
14109 PRINT:INPUT"PRESS ENTER TO CONTINUE ";W$
14110 GOTO 12000
14300 PRINT"THE VOLUME OF A CYLINDER IS V=22/7 * R^2 * H"
14301 PRINT"IF THE RADIUS OF A CYLINDER IS 5, AND ITS VOLUME IS 157"
14302 PRINT"THEN IT WOULD BE CALCULATED THE FOLLOWING WAY"
14303 PRINT
14304 PRINT"157 = 3.14 * 25 * H"
14305 PRINT"157 = 78.5H"
14306 PRINT"2 = H"
14308 PRINT
14309 PRINT"THE VOLUME OF A BOX IS V=LENGTH * WIDTH * DEPTH"
14310 PRINT"IF THE WIDTH OF A BOX IS 5, AND ITS LENGTH IS 4, AND ITS"
14311 PRINT"VOLUME IS 120, THEN THE DEPTH WOULD BE CALCULATED THIS"
14312 PRINT"WAY: "
14313 PRINT
14314 PRINT"120 = 4 * 5 * L"
14315 PRINT"120 = 20L"
14316 PRINT"120/20 = L"
14317 PRINT" 6 = L"
14318 INPUT"PRESS ENTER TO CONTINUE ";W$
14319 GOTO 12000
15000 COLOR 7,0:PRINT TAB(30);:COLOR 0,7:PRINT"FUN WITH NUMBERS";:COLOR 7,0
15001 PRINT TAB(29);:COLOR 0,7:PRINT"BY MARY RININSLAND";:COLOR 7,0
15002 PRINT
15003 PRINT
15004 PRINT
15005 COLOR 7,0:INPUT"WHAT IS YOUR NAME ";BR$
15006 PRINT"HELLO, ";BR$;". GOOD LUCK WITH THE ALGEBRA. "
15007 FOR K=1 TO 1500:NEXT K:CLS
15008 COLOR 0,7:LET BDR=1:GOTO 2
MONEYMKT.BAS
10 REM FOREIGN EXCHANGE
20 GOSUB 1190:REM INITIALISE
30 GOSUB 220:REM HOLDINGS
40 REM EACH NEGOTIATION COSTS .25
50 REM CASH ATTRACTS .125% INTEREST
60 REM PER NEGOTIATION
70 CASH=1.0125*CASH
80 NEG=NEG+1:CASH=CASH-0.25
90 GOSUB 480:REM TRADE
100 IF MONEY+CASH<=0 OR MONEY +CASH>=2500 THEN 130
110 GOSUB 1100:REM FLUCTUATIONS
120 GOTO 30
130 PRINT "After"NEG-1" negotiations you have"
140 PRINT "managed to trade your original $ 1000"
150 PRINT TAB(12);" into";USING "$$####.##";(MONEY+CASH)
160 GOSUB 1510
170 IF MONEY+CASH<=0 THEN PRINT "You've not done well in Foreign Exchange";GOTO 190
180 PRINT TAB(6);"You've done well on the Foreign Exchange"
190 GOSUB 310
200 END
210 REM * * * * * * * * * * *
220 REM HOLDINGS
230 CLS
240 COLOR 12
250 IF HEALTH<0 THEN PRINT "* Market weak this negotiation"NEG:GOTO 280
260 COLOR 11
270 IF HEALTH>0 THEN PRINT "* Market rallied this negotiation"NEG
280 COLOR 15
290 PRINT :PRINT "Currency";TAB(19);"Rate";TAB(26);"Number Value"
300 COLOR 14
310 MONEY=0
320 FOR J=1 TO 9
330 PRINT J;LEFT$(N$(J),13);
340 COLOR 12
350 IF SGN(F(J))=-1 THEN PRINT TAB(18);CHR$(25);:GOTO 380
360 COLOR 10
370 PRINT TAB(18);CHR$(24);
380 PRINT LEFT$(STR$(V(J)),4);
390 COLOR 14
400 IF H(J)>0 THEN PRINT TAB(25);H(J);TAB(32);INT(H(J)*V(J)*10)/10:MONEY=MONEY+H(J)*V(J)
410 IF H(J)=0 THEN PRINT
420 NEXT J
430 GOSUB 1510
440 PRINT "Curr. held ";USING "$$####.##";MONEY;:PRINT TAB(20);"in hand ";USING "$$####.##";CASH
450 PRINT TAB(25);"Total ";USING "$$####.##";(MONEY+CASH)
460 RETURN
470 REM * * * * * * * *
480 REM TRADE
490 IF INKEY$<>"" THEN 490
500 PRINT :PRINT "B - Buy, S - Sell, W - Wait, Q - Quit"
510 T$=INKEY$
520 IF T$<>"B" AND T$<>"S" AND T$<>"W" AND T$<>"Q" THEN 510
530 PRINT TAB(12);"OK"
540 IF T$="Q" THEN 130
550 IF T$="W" THEN RETURN
560 IF T$="S" THEN 830
570 IF INKEY$<>"" THEN 570
580 COLOR 10
590 PRINT :PRINT "Currency to buy (EnterNumber)";
600 T$=INKEY$
610 IF T$<"1" OR T$>"9" THEN 600
620 Y=VAL(T$)
630 PRINT "You wish to buy";N$(Y)
640 PRINT :PRINT "Current price is $"V(Y)
650 PRINT "How many do you wish to purchase";
660 INPUT X
670 IF X<0 THEN 660
680 COLOR 28
690 IF X*V(Y)>CASH THEN PRINT "You cannot afford that many":GOSUB 1510:COLOR 10:GOTO 650
700 CASH=CASH-X*V(Y)
710 H(Y)=H(Y)+X
720 GOSUB 220
730 IF INKEY$<>"" THEN 730
740 COLOR 10
750 PRINT "ENTER NUMBER TO BUY MORE, 0 TO END"
760 T$=INKEY$
770 IF T$<"0" OR T$>"9" THEN 760
780 IF T$="0" THEN RETURN
790 Y=VAL(T$)
800 GOSUB 220
810 COLOR 10
820 GOTO 630
830 REM * * SELL * *
840 COLOR 13
850 IF INKEY$<>"" THEN 850
860 PRINT "Currency (Number) to Sell, 0 to end";
870 R$=INKEY$
880 IF R$<"1" OR R$>"9" THEN 870
890 PRINT TAB(12);"OK"
900 Q=VAL(R$)
910 IF Q=0 THEN RETURN
920 IF H(Q)=0 THEN PRINT "You have no ";N$(Q):FOR J=1 TO 700:NEXT J:GOSUB 1510:RETURN
930 PRINT "How many ";N$(Q);" to sell";
940 INPUT R
950 IF R>H(Q) THEN PRINT "You do not have that many":GOSUB 1510:GOTO 930
960 H(Q)=H(Q)-R
970 CASH=CASH+V(Q)*R
980 GOSUB 220
990 IF INKEY$<>"" THEN 990
1000 PRINT "Enter number to sell more, 0 to end"
1010 T$=INKEY$
1020 IF T$<"0" OR T$>"9" THEN 1010
1030 PRINT TAB(12);"OK"
1040 IF T$="0" THEN RETURN
1050 Q=VAL(T$)
1060 GOSUB 220
1070 COLOR 13
1080 GOTO 920
1090 REM * * * * * * * * * *
1100 REM FLUCTUATIONS
1110 HEALTH=0
1120 FOR J=1 TO 9
1130 IF RND>0.3 THEN V(J)=INT((V(J)+F(J))*1000)/1000
1140 IF V(J)>U(J) OR V(J)<L(J) THEN V(J)=V(J)-F(J)/2:F(J)=-F(J)
1150 HEALTH=HEALTH+SGN(F(J))
1160 NEXT J
1170 RETURN
1180 REM * * * * * * * ** *
1190 REM INITIALISATION
1200 RANDOMIZE VAL(RIGHT$(TIME$,2))
1210 GOSUB 1570:REM INTRO FRAME
1220 REM N$ - CURRENCY NAME
1230 REM V - VALUE (IN $US)
1240 REM F - FLUCTUATION RATE
1250 REM U - UPPER LIMIT
1260 REM L LOWER LIMIT
1270 REM H - HOLDINGS
1280 DIM N$(9),V(9),F(9),U(9),L(9),H(9)
1290 CASH=1000
1300 NEG=1:REM NO. OF NEGOTIATIONS
1310 HEALTH=1:REM STATE OF MARKET
1320 FOR J=1 TO 9
1330 READ N$(J),V(J)
1340 V(J)=V(J)+INT(RND*10+1)/100
1350 F(J)=V(J)/9
1360 U(J)=V(J)+4*F(J)
1370 L(J)=4*F(J)
1380 IF RND>0.5 THEN F(J)=-F(J)
1390 IF L(J)>V(J) THEN L(J)=L(J)-F(J):GOTO 1390
1400 NEXT J
1410 RETURN
1420 DATA " U.S. Dollar",1
1430 DATA " Danish Kroner",0.1071
1440 DATA " French Franc",0.1267
1450 DATA " German Mark",0.3906
1460 DATA " Chinese Yuan",0.5181
1470 DATA " South African Rand",0.8730
1480 DATA " Swiss Franc",0.4784
1490 DATA " Saudi Arabian Ryl",0.3039
1500 DATA " Hong Kong Dollar",0.1369
1510 REM LINE
1520 COLOR 12
1530 PRINT "-------------------------------------------"
1540 COLOR 14
1550 RETURN
1560 REM * * * * * * * * * * * *
1570 REM INTRO FRAME
1580 KEY OFF
1590 SCREEN 0,1
1600 COLOR 15,2,2
1610 WIDTH 40
1620 CLS
1630 GOSUB 1810
1640 FOR J=1 TO 100
1650 COLOR INT(RND*6+9)
1660 LOCATE INT(RND*22+1),INT(RND*38+1)
1670 PRINT "$"
1680 NEXT J
1690 COLOR 15
1700 LOCATE 6,19:PRINT "THE"
1710 LOCATE 8,12:PRINT "MARKETS OF THE"
1720 LOCATE 10,8:PRINT "WORLD AWAIT YOUR EXPERTTISE"
1730 COLOR 12
1740 LOCATE 13,9
1750 PRINT CHR$(213)+STRING$(21,205)+CHR$(184)
1760 LOCATE 14,9
1770 PRINT CHR$(179)+" ";:COLOR 27:PRINT "FOREIGN EXCHANGE";:COLOR 12:PRINT " "+CHR$(179)
1780 LOCATE 15,9
1790 PRINT CHR$(212)+STRING$(21,205)+CHR$(190)
1800 REM * * * * * * * *
1810 REM INTRO MUSIC
1820 PLAY "MB L32 T64
1830 FOR J=1 TO 2
1840 PLAY "O2 EF..D P64 D..P64 D"
1850 PLAY "P64 D....."
1860 NEXT J
1870 PLAY "T32 O3C. P64 C O2B A G A F# E D E C# D...."
1880 RETURN
PRESCH.BAS
1 COLOR 7,0:CLS:PRINT TAB(20);"WORD PROGRAM FOR SMALL CHILDREN"
2 PRINT TAB(30);"BY MARY RININSLAND"
3 PRINT:PRINT:PRINT
4 COLOR 0,7:PRINT"PLEASE TYPE YOUR FIRST NAME AND PRESS ENTER ";:COLOR 7,0:INPUT NAM$
7 FOR K=1 TO 2500:NEXT K:CLS
10 CLS:PRINT:PRINT:PRINT:PRINT TAB(20);:COLOR 1,15:PRINT"TO END, TYPE 999 & PRESS ENTER ":COLOR 7,0:FOR M=1 TO 4:PRINT:NEXT M
11 RANDOMIZE VAL(MID$(TIME$,7,2)):LET AA=INT(RND*53)+1
40 IF AA=1 THEN LOCATE 10,30:COLOR 0,7:PRINT"J U M P";:COLOR 7,0:PRINT:GOTO 2000
50 IF AA=2 THEN LOCATE 10,30:COLOR 0,7:PRINT"C A R";:COLOR 7,0:PRINT:GOTO 3000
60 IF AA=3 THEN LOCATE 10,30:COLOR 0,7:PRINT"D O G";:COLOR 7,0:PRINT:GOTO 4000
70 IF AA=4 THEN LOCATE 10,30:COLOR 0,7:PRINT"B O A T";:COLOR 7,0:GOTO 5000
80 IF AA=5 THEN LOCATE 10,30:COLOR 0,7:PRINT"H O M E";:COLOR 7,0:GOTO 6000
90 IF AA=6 THEN LOCATE 10,30:COLOR 0,7:PRINT"T H R O W";:COLOR 7,0:GOTO 7000
100 IF AA=7 THEN LOCATE 10,30:COLOR 0,7:PRINT"T R A I N";:COLOR 7,0:GOTO 8562
110 IF AA=8 THEN LOCATE 10,30:COLOR 0,7:PRINT"T O W N";:COLOR 7,0:GOTO 9270
120 IF AA=9 THEN LOCATE 10,30:COLOR 0,7:PRINT"D O W N";:COLOR 7,0:GOTO 10000
130 IF AA=10 THEN LOCATE 10,30:COLOR 0,7:PRINT"U P ";:COLOR 7,0:GOTO 11000
140 IF AA=11 THEN LOCATE 10,30:COLOR 0,7:PRINT"C U P ";:COLOR 7,0:GOTO 12000
150 IF AA=12 THEN LOCATE 10,30:COLOR 0,7:PRINT"F I S H";:COLOR 7,0:GOTO 13000
160 IF AA=13 THEN LOCATE 10,30:COLOR 0,7:PRINT"C A K E";:COLOR 7,0:GOTO 14000
170 IF AA=14 THEN LOCATE 10,30:COLOR 0,7:PRINT"G I R L";:COLOR 7,0:GOTO 15000
180 IF AA=15 THEN LOCATE 10,30:COLOR 0,7:PRINT"T R E E";:COLOR 7,0:GOTO 16000
190 IF AA=16 THEN LOCATE 10,30:COLOR 0,7:PRINT"B O X";:COLOR 7,0:GOTO 17000
200 IF AA=17 THEN LOCATE 10,30:COLOR 0,7:PRINT"C H A I R";:COLOR 7,0:GOTO 18000
210 IF AA=18 THEN LOCATE 10,30:COLOR 0,7:PRINT"F A C E";:COLOR 7,0:GOTO 19000
220 IF AA=19 THEN LOCATE 10,30:COLOR 0,7:PRINT"S H I R T";:COLOR 7,0:GOTO 20000
230 IF AA=20 THEN LOCATE 10,30:COLOR 0,7:PRINT"D R E S S";:COLOR 7,0:GOTO 21000
240 IF AA=21 THEN LOCATE 10,30:COLOR 0,7:PRINT"R U G ";:COLOR 7,0:GOTO 22000
250 IF AA=22 THEN LOCATE 10,30:COLOR 0,7:PRINT"H I T ";:COLOR 7,0:GOTO 23000
260 IF AA=23 THEN LOCATE 10,30:COLOR 0,7:PRINT"S T A R";:COLOR 7,0:GOTO 24000
270 IF AA=24 THEN LOCATE 10,30:COLOR 0,7:PRINT"T A B L E";:COLOR 7,0:GOTO 25000
280 IF AA=25 THEN LOCATE 10,30:COLOR 0,7:PRINT"H E A R T";:COLOR 7,0:GOTO 26000
285 IF AA=26 THEN LOCATE 10,30:COLOR 0,7:PRINT"B I R D ";:COLOR 7,0:GOTO 27000
290 IF AA=27 THEN LOCATE 10,30:COLOR 0,7:PRINT"S L E D ";:COLOR 7,0:GOTO 28000
300 IF AA=28 THEN LOCATE 10,30:COLOR 0,7:PRINT"H I L L ";:COLOR 7,0:GOTO 29000
310 IF AA=29 THEN LOCATE 10,30:COLOR 0,7:PRINT"T O Y ";:COLOR 7,0:GOTO 30000
320 IF AA=30 THEN LOCATE 10,30:COLOR 0,7:PRINT"L A K E";:COLOR 7,0:GOTO 31000
330 IF AA=31 THEN LOCATE 10,30:COLOR 0,7:PRINT"K I C K";:COLOR 7,0:GOTO 32000
340 IF AA=32 THEN LOCATE 10,30:COLOR 0,7:PRINT"C A B";:COLOR 7,0:GOTO 33000
350 IF AA=33 THEN LOCATE 10,30:COLOR 0,7:PRINT"W A G";:COLOR 7,0:GOTO 34000
360 IF AA=34 THEN LOCATE 10,30:COLOR 0,7:PRINT"N A M E";:COLOR 7,0:GOTO 35000
370 IF AA=35 THEN LOCATE 10,30:COLOR 0,7:PRINT"R U N";:COLOR 7,0:GOTO 36000
380 IF AA=36 THEN LOCATE 10,30:COLOR 0,7:PRINT"B A R K";:COLOR 7,0:GOTO 37000
390 IF AA=37 THEN LOCATE 10,30:COLOR 0,7:PRINT"D O T";:COLOR 7,0:GOTO 38000
400 IF AA=38 THEN LOCATE 10,30:COLOR 0,7:PRINT"T R U C K";:COLOR 7,0:GOTO 39000
410 IF AA=39 THEN LOCATE 10,30:COLOR 0,7:PRINT"B U S";:COLOR 7,0:GOTO 40000
420 IF AA=40 THEN LOCATE 10,30:COLOR 0,7:PRINT"G R E E N";:COLOR 7,0:GOTO 41000
430 IF AA=41 THEN LOCATE 10,30:COLOR 0,7:PRINT"P A N";:COLOR 7,0:GOTO 42000
431 IF AA=42 THEN LOCATE 10,30:COLOR 0,7:PRINT"R A K E";:COLOR 7,0:GOTO 43000
440 IF AA=43 THEN LOCATE 10,30:COLOR 0,7:PRINT"W A L K";:COLOR 7,0:GOTO 44000
450 IF AA=44 THEN LOCATE 10,30:COLOR 0,7:PRINT"O N E";:COLOR 7,0:GOTO 45000
460 IF AA=45 THEN LOCATE 10,30:COLOR 0,7:PRINT"T W O";:COLOR 7,0:GOTO 46000
470 IF AA=46 THEN LOCATE 10,30:COLOR 0,7:PRINT"F O U R";:COLOR 7,0:GOTO 47000
480 IF AA=47 THEN LOCATE 10,30:COLOR 0,7:PRINT"F I V E";:COLOR 7,0:GOTO 48000
490 IF AA=48 THEN LOCATE 10,30:COLOR 0,7:PRINT"S I X";:COLOR 7,0:GOTO 49000
500 IF AA=49 THEN LOCATE 10,30:COLOR 0,7:PRINT"C A G E";:COLOR 7,0:GOTO 50000
510 IF AA=50 THEN LOCATE 10,30:COLOR 0,7:PRINT"M A I L";:COLOR 7,0:GOTO 51000
520 IF AA=51 THEN LOCATE 10,30:COLOR 0,7:PRINT"C L O C K";:COLOR 7,0:GOTO 52000
530 IF AA=52 THEN LOCATE 10,30:COLOR 0,7:PRINT"S M A L L";:COLOR 7,0:GOTO 53000
540 IF AA=53 THEN LOCATE 10,30:COLOR 0,7:PRINT"C R O S S";:COLOR 7,0:GOTO 54000
900 LOCATE 11,30:INPUT"NOW YOU TRY TO TYPE THE WORD ";ENT$
901 IF ENT$="999" THEN GOTO 1000
902 IF ENT$="JUMP" AND AA=1 OR ENT$="jump" AND AA=1 THEN BEEP:LOCATE 12,30:PRINT"VERY GOOD, ";NAM$:GOTO 999
903 IF ENT$="CAR" AND AA=2 OR ENT$="car" AND AA=2 THEN BEEP:LOCATE 12,30:PRINT"GREAT, ";NAM$:GOTO 999
904 IF ENT$="DOG" AND AA=3 OR ENT$="dog" AND AA=3 THEN BEEP:LOCATE 12,30:PRINT"RIGHT, ";NAM$:GOTO 999
905 IF ENT$="BOAT" AND AA=4 OR ENT$="boat" AND AA=4 THEN BEEP:LOCATE 12,30:PRINT"GOOD, ";NAM$:GOTO 999
906 IF ENT$="HOME" AND AA=5 OR ENT$="home" AND AA=5 THEN BEEP:LOCATE 12,30:PRINT"CORRECT, ";NAM$:GOTO 999
907 IF ENT$="THROW" AND AA=6 OR ENT$="throw" AND AA=6 THEN BEEP:LOCATE 12,30:PRINT"VERY GOOD, ";NAM$:GOTO 999
908 IF ENT$="TRAIN" AND AA=7 OR ENT$="train" AND AA=7 THEN BEEP:LOCATE 12,30:PRINT"RIGHT, ";NAM$:GOTO 999
909 IF ENT$="TOWN" AND AA=8 OR ENT$="town" AND AA=8 THEN BEEP:LOCATE 12,30:PRINT"GREAT, ";NAM$:GOTO 999
910 IF ENT$="DOWN" AND AA=9 OR ENT$="down" AND AA=9 THEN BEEP:LOCATE 12,30:PRINT"GOOD, ";NAM$:GOTO 999
911 IF ENT$="UP" AND AA=10 OR ENT$="up" AND AA=10 THEN BEEP:LOCATE 12,30:PRINT"HOORAY, ";NAM$:GOTO 999
912 IF ENT$="CUP" AND AA=11 OR ENT$="cup" AND AA=11 THEN BEEP:LOCATE 12,30:PRINT"YIPPEE, ";NAM$:GOTO 999
913 IF ENT$="FISH" AND AA=12 OR ENT$="fish" AND AA=12 THEN BEEP:LOCATE 12,30:PRINT"TERRIFIC, ";NAM$:GOTO 999
914 IF ENT$="CAKE" AND AA=13 OR ENT$="cake" AND AA=13 THEN BEEP:LOCATE 12,30:PRINT"RIGHT, ";NAM$:GOTO 999
915 IF ENT$="GIRL" AND AA=14 OR ENT$="girl" AND AA=14 THEN BEEP:LOCATE 12,30:PRINT"RIGHT, ";NAM$:GOTO 999
916 IF ENT$="TREE" AND AA=15 OR ENT$="tree" AND AA=15 THEN BEEP:LOCATE 12,30:PRINT"GREAT, ";NAM$:GOTO 999
917 IF ENT$="BOX" AND AA=16 OR ENT$="box" AND AA=16 THEN BEEP:LOCATE 12,30:PRINT"GOOD, ";NAM$:GOTO 999
918 IF ENT$="CHAIR" AND AA=17 OR ENT$="chair" AND AA=17 THEN BEEP:LOCATE 12,30:PRINT"CORRECT, ";NAM$:GOTO 999
919 IF ENT$="FACE" AND AA=18 OR ENT$="face" AND AA=18 THEN BEEP:LOCATE 12,30:PRINT"HOORAY, ";NAM$:GOTO 999
920 IF ENT$="SHIRT" AND AA=19 OR ENT$="shirt" AND AA=19 THEN BEEP:LOCATE 12,30:PRINT"YIPPEE, ";NAM$:GOTO 999
921 IF ENT$="DRESS" AND AA=20 OR ENT$="dress" AND AA=20 THEN BEEP:LOCATE 12,30:PRINT"GOOD, ";NAM$:GOTO 999
922 IF ENT$="RUG" AND AA=21 OR ENT$="rug" AND AA=21 THEN BEEP:LOCATE 12,30:PRINT"VERY GOOD, ";NAM$:GOTO 999
923 IF ENT$="HIT" AND AA=22 OR ENT$="hit" AND AA=22 THEN BEEP:LOCATE 12,30:PRINT"ALL RIGHT, ";NAM$:GOTO 999
924 IF ENT$="STAR" AND AA=23 OR ENT$="star" AND AA=23 THEN BEEP:LOCATE 12,30:PRINT"YOU'RE A STAR, ";NAM$:GOTO 999
925 IF ENT$="TABLE" AND AA=24 OR ENT$="table" AND AA=24 THEN BEEP:LOCATE 12,30:PRINT"GREAT, ";NAM$:GOTO 999
926 IF ENT$="HEART" AND AA=25 OR ENT$="heart" AND AA=25 THEN BEEP:LOCATE 12,30:PRINT"PERFECT, ";NAM$:GOTO 999
927 IF ENT$="BIRD" AND AA=26 OR ENT$="bird" AND AA=26 THEN BEEP:LOCATE 12,30:PRINT"VERY GOOD, ";NAM$:GOTO 999
928 IF ENT$="SLED" AND AA=27 OR ENT$="sled" AND AA=27 THEN BEEP:LOCATE 12,30:PRINT"YEA, ";NAM$:GOTO 999
929 IF ENT$="HILL" AND AA=28 OR ENT$="hill" AND AA=28 THEN BEEP:LOCATE 12,30:PRINT"YIPPEE, ";NAM$:GOTO 999
930 IF ENT$="TOY" AND AA=29 OR ENT$="toy" AND AA=29 THEN BEEP:LOCATE 12,30:PRINT"GOOD, ";NAM$:GOTO 999
931 IF ENT$="LAKE" AND AA=30 OR ENT$="lake" AND AA=30 THEN BEEP:LOCATE 12,30:PRINT"HOORAY, ";NAM$:GOTO 999
932 IF ENT$="KICK" AND AA=31 OR ENT$="kick" AND AA=31 THEN BEEP:LOCATE 12,30:PRINT"RIGHT, ";NAM$:GOTO 999
933 IF ENT$="CAB" AND AA=32 OR ENT$="cab" AND AA=32 THEN BEEP:LOCATE 12,30:PRINT"PERFECT, ";NAM$:GOTO 999
934 IF ENT$="WAG" AND AA=33 OR ENT$="wag" AND AA=33 THEN BEEP:LOCATE 12,30:PRINT"GREAT, ";NAM$:GOTO 999
935 IF ENT$="NAME" AND AA=34 OR ENT$="name" AND AA=34 THEN BEEP:LOCATE 12,30:PRINT"VERY GOOD, ";NAM$:GOTO 999
936 IF ENT$="RUN" AND AA=35 OR ENT$="run" AND AA=35 THEN BEEP:LOCATE 12,30:PRINT"HOORAY, ";NAM$:GOTO 999
937 IF ENT$="BARK" AND AA=36 OR ENT$="bark" AND AA=36 THEN BEEP:LOCATE 12,30:PRINT"YIPPEE, ";NAM$:GOTO 999
938 IF ENT$="DOT" AND AA=37 OR ENT$="dot" AND AA=37 THEN BEEP:LOCATE 12,30:PRINT"GOOD, ";NAM$:GOTO 999
939 IF ENT$="TRUCK" AND AA=38 OR ENT$="truck" AND AA=38 THEN BEEP:LOCATE 12,30:PRINT"RIGHT, ";NAM$:GOTO 999
940 IF ENT$="BUS" AND AA=39 OR ENT$="bus" AND AA=39 THEN BEEP:LOCATE 12,30:PRINT"GREAT, ";NAM$:GOTO 999
941 IF ENT$="GREEN" AND AA=40 OR ENT$="green" AND AA=40 THEN BEEP:LOCATE 12,30:PRINT"TERRIFIC, ";NAM$:GOTO 999
942 IF ENT$="PAN" AND AA=41 OR ENT$="pan" AND AA=41 THEN BEEP:LOCATE 12,30:PRINT"RIGHT, ";NAM$:GOTO 999
943 IF ENT$="RAKE" AND AA=42 OR ENT$="rake" AND AA=42 THEN BEEP:LOCATE 12,30:PRINT"VERY GOOD, ";NAM$:GOTO 999
944 IF ENT$="WALK" AND AA=43 OR ENT$="walk" AND AA=43 THEN BEEP:LOCATE 12,30:PRINT"ALL RIGHT, ";NAM$:GOTO 999
945 IF ENT$="ONE" AND AA=44 OR ENT$="one" AND AA=44 THEN BEEP:LOCATE 12,30:PRINT"GREAT, ";NAM$:GOTO 999
946 IF ENT$="TWO" AND AA=45 OR ENT$="two" AND AA=45 THEN BEEP:LOCATE 12,30:PRINT"GOOD, ";NAM$:GOTO 999
947 IF ENT$="FOUR" AND AA=46 OR ENT$="four" AND AA=46 THEN BEEP:LOCATE 12,30:PRINT"HOORAY, ";NAM$:GOTO 999
948 IF ENT$="FIVE" AND AA=47 OR ENT$="five" AND AA=47 THEN BEEP:LOCATE 12,30:PRINT"YIPPEE, ";NAM$:GOTO 999
949 IF ENT$="SIX" AND AA=48 OR ENT$="six" AND AA=48 THEN BEEP:LOCATE 12,30:PRINT"VERY GOOD, ";NAM$:GOTO 999
950 IF ENT$="CAGE" AND AA=49 OR ENT$="cage" AND AA=49 THEN BEEP:LOCATE 12,30:PRINT"CORRECT, ";NAM$:GOTO 999
951 IF ENT$="MAIL" AND AA=50 OR ENT$="mail" AND AA=50 THEN BEEP:LOCATE 12,30:PRINT"PERFECT, ";NAM$:GOTO 999
952 IF ENT$="CLOCK" AND AA=51 OR ENT$="clock" AND AA=51 THEN BEEP:LOCATE 12,30:PRINT"ALL RIGHT, ";NAM$:GOTO 999
953 IF ENT$="SMALL" AND AA=52 OR ENT$="small" AND AA=52 THEN BEEP:LOCATE 12,30:PRINT"GOOD, ";NAM$:GOTO 999
954 IF ENT$="CROSS" AND AA=53 OR ENT$="cross" AND AA=53 THEN BEEP:LOCATE 12,30:PRINT"GREAT, ";NAM$:GOTO 999
999 FOR K=1 TO 2000:NEXT K:CLS:GOTO 10
1000 PRINT"GOODBYE ";NAM$;". IT WAS FUN DOING THIS WITH YOU!"
1001 FOR K=1 TO 4000:NEXT K:CLS:CLEAR:CHAIN "A:DIRECTO.BAS"
1002 END
2000 FOR MM=1 TO 3:FOR Y=15 TO 14 STEP -1:Z=30
2003 LOCATE Y,Z
2004 PRINT" "
2005 LOCATE Y+1,Z
2006 PRINT" ";CHR$(2);" ";CHR$(203);" "
2007 LOCATE Y+2,Z
2008 PRINT" ";CHR$(201);CHR$(205);CHR$(219);CHR$(205);CHR$(188);" "
2009 LOCATE Y+3,Z
2010 PRINT" ";CHR$(202);" ";CHR$(219);" "
2011 LOCATE Y+4,Z
2012 PRINT" / \ "
2013 LOCATE Y+5,Z
2014 PRINT" /_ /_ "
2015 LOCATE Y+6,Z:PRINT" "
2016 FOR K=1 TO 300:NEXT K:NEXT Y
2017 FOR Y=14 TO 15 STEP 1:Z=30
2020 LOCATE Y,Z
2021 PRINT" "
2022 LOCATE Y+1,Z
2023 PRINT" ";CHR$(203);" ";CHR$(2);" "
2024 LOCATE Y+2,Z
2025 PRINT" ";CHR$(200);CHR$(205);CHR$(219);CHR$(205);CHR$(187);" "
2026 LOCATE Y+3,Z
2027 PRINT" ";CHR$(219);" ";CHR$(202);" "
2028 LOCATE Y+4,Z
2029 PRINT" / \ "
2030 LOCATE Y+5,Z
2031 PRINT" \_ \_ "
2032 LOCATE Y+6,Z:PRINT" "
2033 FOR K=1 TO 300:NEXT K:NEXT Y:NEXT MM
2034 FOR XY=1 TO 20:FOR TM=400 TO 1700 STEP 100:SOUND TM,.01
2035 NEXT TM:NEXT XY
2036 SOUND 32767,0
2037 FOR K=1 TO 1000:NEXT K:GOTO 900
3000 FOR XA=1 TO 40
3001 XB=14
3002 LOCATE XB,XA
3003 PRINT" _____ "
3004 LOCATE XB+1,XA
3005 PRINT" / | | \ "
3006 LOCATE XB+2,XA
3007 PRINT" __/ |";:COLOR 1,15:PRINT CHR$(2);:COLOR 7,0:PRINT"| \_____ "
3008 LOCATE XB+3,XA
3009 PRINT" | \ "
3010 LOCATE XB+4,XA
3011 PRINT" |________________/ "
3012 LOCATE XB+5,XA
3013 PRINT" O O "
3025 SOUND 500,.2:SOUND 600,.2:NEXT XA
3026 GOTO 900
4000 FOR XC=1 TO 60:XD=14
4001 LOCATE XD,XC:PRINT" v "
4002 LOCATE XD+1,XC:PRINT" O< "
4003 LOCATE XD+2,XC:PRINT" \____/ "
4004 LOCATE XD+3,XC:PRINT" (____) "
4005 LOCATE XD+4,XC:PRINT" /\ /\ "
4006 FOR K=1 TO 100:NEXT K
4007 LOCATE XD,XC:PRINT" v "
4008 LOCATE XD+1,XC:PRINT" O> "
4009 LOCATE XD+2,XC:PRINT" ______/ "
4010 LOCATE XD+3,XC:PRINT" (____) "
4011 LOCATE XD+4,XC:PRINT" |> |> "
4012 FOR K=1 TO 100:NEXT K
4013 NEXT XC:GOTO 900
5000 FOR XF=1 TO 48:XG=14:LOCATE 19,1:PRINT STRING$(70,"~")
5002 LOCATE XG,XF:PRINT" ____________ "
5003 LOCATE XG+1,XF:PRINT" | | "
5004 LOCATE XG+2,XF:PRINT" |__";CHR$(2);"_____";CHR$(2);"___|____ "
5005 LOCATE XG+3,XF:PRINT" | / "
5006 LOCATE XG+4,XF:PRINT" |_______________/ "
5007 LOCATE 19,1:PRINT STRING$(70,"^")
5008 SOUND 500,.3:SOUND 600,.3:NEXT XF
5009 GOTO 900
6000 XI=17
6002 LOCATE 14,10:PRINT" /\ ":LOCATE 14,35:PRINT"\o/"
6003 LOCATE 15,10:PRINT" / \ "
6004 LOCATE 16,10:PRINT" /____\ "
6005 LOCATE 17,10:PRINT" | _ | "
6006 LOCATE 18,10:PRINT" ||";:COLOR 1,15:PRINT CHR$(2);:COLOR 7,0:PRINT"| | "
6007 LOCATE 19,10:PRINT" |____| "
6008 FOR XJ=50 TO 30 STEP -1:LOCATE 14,35:PRINT"\o/"
6009 LOCATE XI,XJ:PRINT"<O ":LOCATE XI+1,XJ:PRINT" \____/ ":LOCATE XI+2,XJ:PRINT" (____) ":LOCATE XI+3,XJ:PRINT" <\ <\ ":FOR K=1 TO 200:NEXT K
6010 LOCATE 14,35:PRINT"/o\"
6011 LOCATE XI,XJ:PRINT">O ":LOCATE XI+1,XJ:PRINT" \____ ":LOCATE XI+2,XJ:PRINT" (____)\ ":LOCATE XI+3,XJ:PRINT" /| /| ":FOR K=1 TO 200:NEXT K
6013 NEXT XJ
6020 FOR K=1 TO 2000:NEXT K:COLOR 7,0:GOTO 900
7000 FOR MN=1 TO 3:XK=14
7001 LOCATE XK,1:PRINT" ";CHR$(2);" ";CHR$(2);" "
7002 LOCATE XK+1,1:PRINT" <";CHR$(219);"_|' *`==";CHR$(219);"> "
7003 LOCATE XK+2,1:PRINT" ";CHR$(219);" ";CHR$(219);" "
7004 LOCATE XK+3,1:PRINT" / \ / \ "
7005 LOCATE XK+4,1:PRINT" /_ /_ _/ _\ "
7006 FOR XL=18 TO 8 STEP -1:LOCATE XK+1,XL:PRINT"* ":FOR K=1 TO 200:NEXT K:NEXT XL
7007 LOCATE XK+1,1:PRINT" <";CHR$(219);"=='* `|_";CHR$(219);"> "
7008 LOCATE XK+4,1:PRINT" /_ \_ _\ _\ "
7009 FOR XL=8 TO 18 STEP 1:LOCATE XK+1,XL:PRINT" *":FOR K=1 TO 200:NEXT K:NEXT XL
7010 NEXT MN:GOTO 900
8562 FOR C=1 TO 28
8563 LOCATE 14,C
8564 PRINT" ___ "
8565 LOCATE 15,C
8566 PRINT" ________ _____()___\ /___()_____ "
8567 LOCATE 16,C:PRINT" |________| | |\ "
8568 LOCATE 17,C
8569 PRINT" __|________|__ | ______ | | "
8570 LOCATE 18,C
8571 PRINT" | ___ ___ | | | | | | "
8572 LOCATE 19,C
8573 PRINT" || || || | |_`\";CHR$(2);"__| | \"
8574 LOCATE 20,C
8575 PRINT" ||_";CHR$(2);"_||_";CHR$(2);"_|| |----------------------| \
8576 LOCATE 21,C:PRINT" |__________|----|______________________|____\ "
8577 LOCATE 22,C
8578 PRINT" o o o o o o o o o o o o o o o o o "
8579 PLAY"T120":PLAY"MBO2E16O2D16O2D16O2D16O2D16"
8580 NEXT C:GOTO 900
9270 LOCATE 14,1
9271 PRINT"__________________"
9272 LOCATE 15,1
9273 PRINT"| BANK |"
9274 LOCATE 16,1
9275 PRINT"||--| ___ |"
9276 LOCATE 17,1
9278 PRINT"||__| |. | |"
9279 LOCATE 18,1
9280 PRINT"|_______| |____|"
9281 LOCATE 14,30
9282 PRINT"____________________"
9283 LOCATE 15,30
9284 PRINT"| STORE |"
9285 LOCATE 16,30
9286 PRINT"| _____ ____ |"
9287 LOCATE 17,30
9288 PRINT"| | | | . | |"
9289 LOCATE 18,30
9290 PRINT"|_|_____|__| |__|"
9291 PLAY"T90":PLAY"MBO3E4O3C4O3E8O3E8O3G4O3E4O3C4O3E8O3E8O3C4"
9292 FOR C=1 TO 15
9294 LOCATE 20,C:PRINT" ";CHR$(2);" ";CHR$(2)
9295 LOCATE 21,C:PRINT" `\";CHR$(219);"-, `-";CHR$(219);"/'"
9296 LOCATE 22,C:PRINT" .< \. ./ >."
9298 FOR K=1 TO 50:NEXT K
9299 LOCATE 20,C:PRINT" ";CHR$(2);" ";CHR$(2)
9300 LOCATE 21,C:PRINT" ,-";CHR$(219);"/' `\";CHR$(219);"-,"
9301 LOCATE 22,C:PRINT" ./ >. .< \."
9302 FOR K=1 TO 50:NEXT K
9304 NEXT C
9334 GOTO 900
10000 COLOR 23:FOR RA=14 TO 18:LOCATE RA,20:PRINT" "
10001 LOCATE RA+1,20:PRINT" __ "
10002 LOCATE RA+2,20:PRINT" | | "
10003 LOCATE RA+3,20:PRINT" | | "
10004 LOCATE RA+4,20:PRINT" \/ "
10005 SOUND 500,.2:SOUND 600,.2:SOUND 550,.2:SOUND 575,.2:SOUND 590,.2
10006 NEXT RA:COLOR 7,0
10007 GOTO 900
11000 COLOR 23:FOR RA=18 TO 14 STEP -1:LOCATE RA,20:PRINT" /\ "
11001 LOCATE RA+1,20:PRINT" | | "
11002 LOCATE RA+2,20:PRINT" | | "
11003 LOCATE RA+3,20:PRINT" |__| "
11004 LOCATE RA+4,20:PRINT" "
11005 SOUND 500,.2:SOUND 600,.2:SOUND 550,.2:SOUND 575,.2:SOUND 590,.2
11006 NEXT RA:COLOR 7,0
11007 GOTO 900
12000 LOCATE 14,20:PRINT" _____ "
12001 LOCATE 15,20:PRINT" | | |"
12002 LOCATE 16,20:PRINT" |___|="
12003 GOTO 900
13000 FOR RL=1 TO 60
13001 LOCATE 14,1:PRINT STRING$(70,"^")
13002 LOCATE 15,RL:PRINT" ____ "
13003 LOCATE 16,RL:PRINT" |\/ @ ";:COLOR 1,15:PRINT"\";:COLOR 7,0:PRINT" "
13004 LOCATE 17,RL:PRINT" |/\____/ "
13005 LOCATE 14,1:PRINT STRING$(70,"~"):SOUND 500,.3:SOUND 600,.3
13006 NEXT RL:GOTO 900
14000 LOCATE 14,20:COLOR 23:PRINT" * * *";:COLOR 7,0:PRINT
14002 LOCATE 15,20:COLOR 1,15:PRINT" ";CHR$(186);" ";CHR$(186);" ";CHR$(186);:COLOR 7,0:PRINT
14003 LOCATE 16,20:PRINT"| |"
14004 LOCATE 17,20:PRINT"|____|"
14005 GOTO 900
15000 LOCATE 14,20:PRINT" o ";CHR$(2);" "
15001 LOCATE 15,20:PRINT" \_";CHR$(219);"_ "
15002 LOCATE 16,20:PRINT" ";CHR$(219);"/ "
15003 LOCATE 17,20:PRINT" ";:COLOR 1,15:PRINT"/";:COLOR 7,0:PRINT"_";:COLOR 1,15:PRINT"\";:COLOR 7,0:PRINT
15004 LOCATE 18,20:PRINT" _";CHR$(186);" ";CHR$(186);"_"
15005 GOTO 900
16000 LOCATE 14,20:PRINT" /\ "
16001 LOCATE 15,20:PRINT" / \ "
16002 LOCATE 16,20:PRINT"/____\ "
16003 LOCATE 17,20:PRINT" || "
16004 GOTO 900
17000 LOCATE 14,20:PRINT" ______ "
17001 LOCATE 15,20:PRINT" |\_____\ "
17003 LOCATE 16,20:PRINT" || | "
17004 LOCATE 17,20:PRINT" \|_____| "
17005 GOTO 900
18000 LOCATE 14,20:PRINT" ____"
18001 LOCATE 15,20:PRINT"| |"
18002 LOCATE 16,20:PRINT"|____|"
18004 LOCATE 17,20:PRINT CHR$(186);"\___";:COLOR 1,15:PRINT"\";:COLOR 7,0:PRINT
18005 LOCATE 18,20:PRINT CHR$(186);" ";CHR$(186);" ";CHR$(186)
18006 LOCATE 19,20:PRINT " ";CHR$(186);" ";CHR$(186)
18007 GOTO 900
19000 LOCATE 14,20:PRINT CHR$(2)
19001 GOTO 900
20000 LOCATE 14,20:PRINT" ___ "
20001 LOCATE 15,20:PRINT" __|/ \|__ "
20002 LOCATE 16,20:PRINT" / . \ "
20003 LOCATE 17,20:PRINT" /_/| . |\_\"
20004 LOCATE 18,20:PRINT" | . |
20054 LOCATE 19,20:PRINT" |_____|
20055 GOTO 900
21000 LOCATE 14,20:PRINT" ___ "
21001 LOCATE 15,20:PRINT" __|/ \|__ "
21002 LOCATE 16,20:PRINT" / . \ "
21003 LOCATE 17,20:PRINT" /_/| . |\_\"
21004 LOCATE 18,20:PRINT" |=====|
21054 LOCATE 19,20:PRINT" / \ "
21055 LOCATE 20,20:PRINT" / \ "
21056 LOCATE 21,20:PRINT" /_________\"
21057 GOTO 900
22000 LOCATE 14,20:PRINT STRING$(11,CHR$(177))
22001 LOCATE 15,20:PRINT STRING$(11,CHR$(177))
22002 LOCATE 16,20:PRINT STRING$(11,CHR$(177))
22003 GOTO 900
23000 FOR JJ=1 TO 3:LOCATE 14,20:PRINT" ";CHR$(2);" o ";CHR$(2);" "
23001 LOCATE 15,20:PRINT" _";CHR$(219);"_ |_";CHR$(219);"_ "
23002 LOCATE 16,20:PRINT" \";CHR$(219);"/ ";CHR$(219);"/ "
23003 LOCATE 17,20:PRINT" / \ / \ "
23004 LOCATE 18,20:PRINT" /_ /_ _\ _\ "
23005 FOR K=1 TO 500:NEXT K
23006 LOCATE 14,20:PRINT" ";CHR$(2);" ";CHR$(2);" "
23007 LOCATE 15,20:PRINT" _";CHR$(219);"_o___";CHR$(219);"_ "
23008 LOCATE 16,20:PRINT" \";CHR$(219);"/ ";CHR$(219);"/ "
23009 LOCATE 17,20:PRINT" / \ / \ "
23010 LOCATE 18,20:PRINT" /_ /_ _\ _\ "
23011 FOR K=1 TO 500:NEXT K:NEXT JJ
23012 GOTO 900
24000 COLOR 23:LOCATE 14,20:PRINT" /\ "
24001 LOCATE 15,20:PRINT" ___/ \___"
24002 LOCATE 16,20:PRINT" \ /"
24003 LOCATE 17,20:PRINT" \ / "
24004 LOCATE 18,20:PRINT" | /\ |"
24005 LOCATE 19,20:PRINT" |/ \|":COLOR 7,0:GOTO 900
25000 LOCATE 14,20:PRINT" _________"
25001 LOCATE 15,20:PRINT" |\ \"
25002 LOCATE 16,20:PRINT" | \________\"
25003 LOCATE 17,20:PRINT" | |-------|"
25004 LOCATE 18,20:PRINT" | | |"
25005 LOCATE 19,20:PRINT" | |"
25006 GOTO 900
26000 LOCATE 14,30:PRINT CHR$(3)
26001 GOTO 900
27000 FOR RN=1 TO 7:LOCATE 14,30:PRINT"/o\"
27001 FOR K=1 TO 300:NEXT K
27002 LOCATE 14,30:PRINT"\o/"
27003 FOR K=1 TO 300:NEXT K:NEXT RN:GOTO 900
28000 LOCATE 15,20:PRINT" ___________ "
28002 LOCATE 16,20:PRINT" |\ \ "
28003 LOCATE 17,20:PRINT" \\___________\"
28004 LOCATE 18,20:PRINT" (/_\_______/\) "
28005 GOTO 900
29000 LOCATE 14,20:PRINT" ____ "
29001 LOCATE 15,20:PRINT" / \ "
29002 LOCATE 16,20:PRINT" / \ "
29003 LOCATE 17,20:PRINT" / \ "
29004 LOCATE 18,20:PRINT"_v_v__/ \____v___v__vv___vv__v"
29005 GOTO 900
30000 LOCATE 14,20:PRINT" O "
30001 LOCATE 15,20:PRINT" ____/ "
30002 LOCATE 16,20:PRINT" (____) "
30003 LOCATE 17,20:PRINT"\";:COLOR 1,15:PRINT" /\ /\ ";:COLOR 7,0:PRINT"/"
30004 GOTO 900
31000 FOR Z=1 TO 10
31001 LOCATE 14,1
31002 PRINT STRING$(70,"~")
31003 FOR K=1 TO 200:NEXT K
31004 LOCATE 14,1
31005 PRINT STRING$(70,"^")
31007 SOUND 500,.3:SOUND 600,.3
31008 NEXT Z
31009 GOTO 900
32000 LOCATE 14,20:PRINT" ";CHR$(2);" "
32001 LOCATE 15,20:PRINT" _";CHR$(219);"_/' "
32002 LOCATE 16,20:PRINT" \";CHR$(219);" "
32003 LOCATE 17,20:PRINT" / \ "
32004 LOCATE 18,20:PRINT" /_ /_ o "
32005 FOR K=1 TO 200:NEXT K
32006 LOCATE 14,20:PRINT" ";CHR$(2);" "
32007 LOCATE 15,20:PRINT" _";CHR$(219);"_/' "
32008 LOCATE 16,20:PRINT" \";CHR$(219);" "
32009 LOCATE 17,20:PRINT" / \ "
32010 LOCATE 18,20:PRINT" /_ \_o "
32011 FOR K=1 TO 200:NEXT K
32012 FOR MR=28 TO 60:LOCATE 18,MR:PRINT" o":FOR K=1 TO 200:NEXT K:NEXT MR
32013 GOTO 900
33000 FOR XA=1 TO 40
33001 XB=14
33002 LOCATE XB,XA
33003 PRINT" |";:COLOR 1,15:PRINT"TAXI";:COLOR 7,0:PRINT"| "
33004 LOCATE XB+1,XA
33005 PRINT" / | | \ "
33006 LOCATE XB+2,XA
33007 PRINT" __/ |";:COLOR 1,15:PRINT CHR$(2);:COLOR 7,0:PRINT"| \_____ "
33008 LOCATE XB+3,XA
33009 PRINT" | \ "
33010 LOCATE XB+4,XA
33011 PRINT" |________________/ "
33012 LOCATE XB+5,XA
33013 PRINT" O O "
33025 SOUND 500,.2:SOUND 600,.2:NEXT XA
33026 GOTO 900
34000 FOR MN=1 TO 7:LOCATE 14,20:PRINT" O>"
34001 LOCATE 15,20:PRINT" ____/"
34002 LOCATE 16,20:PRINT" /(____)"
34003 LOCATE 17,20:PRINT" /> /\"
34004 FOR K=1 TO 200:NEXT K
34005 LOCATE 14,20:PRINT" O>"
34006 LOCATE 15,20:PRINT" \____/"
34007 LOCATE 16,20:PRINT" (____)"
34008 LOCATE 17,20:PRINT" /> /\"
34009 FOR K=1 TO 200:NEXT K
34010 NEXT MN
34011 GOTO 900
35000 LOCATE 14,20:PRINT NAM$
35001 GOTO 900
36000 FOR MZ=1 TO 60:LOCATE 14,MZ:PRINT" ";CHR$(2);" "
36001 LOCATE 15,MZ:PRINT" __";CHR$(219);" "
36002 LOCATE 16,MZ:PRINT" ` ";CHR$(219);"\. "
36003 LOCATE 17,MZ:PRINT" / \ "
36004 LOCATE 18,MZ:PRINT" /_ /_ "
36005 FOR K=1 TO 30:NEXT K
36006 LOCATE 14,MZ:PRINT" ";CHR$(2);" "
36007 LOCATE 15,MZ:PRINT" ";CHR$(219);"__ "
36008 LOCATE 16,MZ:PRINT" ./";CHR$(219);" ' "
36009 LOCATE 17,MZ:PRINT" \\ "
36010 LOCATE 18,MZ:PRINT" /_\_ "
36011 FOR K=1 TO 30:NEXT K:NEXT MZ
36013 GOTO 900
37000 FOR MN=1 TO 7:LOCATE 14,20:PRINT" O>"
37001 LOCATE 15,20:PRINT" ____/"
37002 LOCATE 16,20:PRINT" /(____)"
37003 LOCATE 17,20:PRINT" /> /\"
37004 FOR K=1 TO 200:NEXT K
37005 LOCATE 14,20:PRINT" O<"
37006 LOCATE 15,20:PRINT" ____/"
37007 LOCATE 16,20:PRINT" /(____)"
37008 LOCATE 17,20:PRINT" /> /\"
37009 FOR K=1 TO 200:NEXT K
37010 NEXT MN
37011 GOTO 900
38000 LOCATE 14,20:PRINT CHR$(249)
38001 GOTO 900
39000 FOR XA=1 TO 25
39001 XB=14
39002 LOCATE XB,XA
39003 PRINT" _______ "
39004 LOCATE XB+1,XA
39005 PRINT" | | | | "
39006 LOCATE XB+2,XA
39007 PRINT" _________| |";:COLOR 1,15:PRINT CHR$(2);:COLOR 7,0:PRINT"| |__ "
39008 LOCATE XB+3,XA
39009 PRINT" | | "
39010 LOCATE XB+4,XA
39011 PRINT" |____________________| "
39012 LOCATE XB+5,XA
39013 PRINT" O O "
39025 SOUND 500,.2:SOUND 600,.2:NEXT XA
39026 GOTO 900
40000 FOR XA=1 TO 25
40001 XB=14
40002 LOCATE XB,XA
40003 PRINT" _________________ "
40004 LOCATE XB+1,XA
40005 PRINT" | | | | | | | | "
40006 LOCATE XB+2,XA
40007 PRINT" | |";:COLOR 1,15:PRINT CHR$(2);:COLOR 7,0:PRINT"| |";:COLOR 1,15:PRINT CHR$(2);:COLOR 7,0:PRINT"| |";:COLOR 1,15:PRINT CHR$(2);:COLOR 7,0:PRINT"| |___ "
40008 LOCATE XB+3,XA
40009 PRINT" | | "
40010 LOCATE XB+4,XA
40011 PRINT" |_____________________| "
40012 LOCATE XB+5,XA
40013 PRINT" O O "
40025 SOUND 500,.2:SOUND 600,.2:NEXT XA
40026 GOTO 900
41000 LOCATE 14,20:PRINT CHR$(219);CHR$(219);CHR$(219)
41001 LOCATE 15,20:PRINT CHR$(219);CHR$(219);CHR$(219)
41002 GOTO 900
42000 LOCATE 14,20:PRINT"__ "
42001 LOCATE 15,20:PRINT"\ \ "
42002 LOCATE 16,20:PRINT" \ \____o_____"
42003 LOCATE 17,20:PRINT" \ /"
42004 LOCATE 18,20:PRINT" \________/"
42005 GOTO 900
43000 LOCATE 14,20:PRINT" _ "
43001 LOCATE 15,20:PRINT" | | "
43002 LOCATE 16,20:PRINT" | | "
43003 LOCATE 17,20:PRINT" | | "
43004 LOCATE 18,20:PRINT" | | "
43005 LOCATE 19,20:PRINT" | | "
43006 LOCATE 20,20:PRINT" ___| |___ "
43007 LOCATE 21,20:PRINT" / _ \ "
43008 LOCATE 22,20:PRINT" /_/|_| |_|\_\"
43009 GOTO 900
44000 FOR MZ=1 TO 60:LOCATE 14,MZ:PRINT" ";CHR$(2);" "
44001 LOCATE 15,MZ:PRINT" __";CHR$(219);" "
44002 LOCATE 16,MZ:PRINT" ` ";CHR$(219);"\. "
44003 LOCATE 17,MZ:PRINT" / \ "
44004 LOCATE 18,MZ:PRINT" /_ /_ "
44005 FOR K=1 TO 100:NEXT K
44006 LOCATE 14,MZ:PRINT" ";CHR$(2);" "
44007 LOCATE 15,MZ:PRINT" ";CHR$(219);"__ "
44008 LOCATE 16,MZ:PRINT" ./";CHR$(219);" ' "
44009 LOCATE 17,MZ:PRINT" \\ "
44010 LOCATE 18,MZ:PRINT" /_\_ "
44011 FOR K=1 TO 100:NEXT K:NEXT MZ
44013 GOTO 900
45000 LOCATE 14,20:COLOR 1,15:PRINT"1";:COLOR 7,0:PRINT
45001 LOCATE 16,20:PRINT" ____ "
45002 LOCATE 17,20:PRINT"| |"
45003 LOCATE 18,20:PRINT"|____|"
45004 GOTO 900
46000 LOCATE 14,20:COLOR 1,15:PRINT"2";:COLOR 7,0:PRINT
46001 LOCATE 16,20:PRINT" /\ /\"
46002 LOCATE 17,20:PRINT" / \ / \"
46003 LOCATE 18,20:PRINT"/____\ /____\"
46004 GOTO 900
47000 LOCATE 14,20:COLOR 1,15:PRINT"4";:COLOR 7,0:PRINT
47001 LOCATE 16,20:PRINT CHR$(4);" ";CHR$(4);" ";CHR$(4);" ";CHR$(4)
47002 GOTO 900
47004 GOTO 900
48000 LOCATE 14,20:COLOR 1,15:PRINT"5";:COLOR 7,0:PRINT
48001 LOCATE 16,20:PRINT CHR$(127);" ";CHR$(127);" ";CHR$(127);" ";CHR$(127);" ";CHR$(127)
48002 GOTO 900
49000 LOCATE 14,20:COLOR 1,15:PRINT"6";:COLOR 7,0:PRINT
49001 LOCATE 16,20:PRINT CHR$(4);" ";CHR$(4);" ";CHR$(4);" ";CHR$(4);" ";CHR$(4);" ";CHR$(4)
49002 GOTO 900
50000 LOCATE 14,20:PRINT" ______ "
50001 LOCATE 15,20:PRINT" |";:COLOR 1,15:PRINT"\_\_\_\";:COLOR 7,0:PRINT" "
50003 LOCATE 16,20:PRINT" |";:COLOR 1,15:PRINT"| | | ";:COLOR 7,0:PRINT"| "
50004 LOCATE 17,20:PRINT" \";:COLOR 1,15:PRINT"|_|_|_";:COLOR 7,0:PRINT"| "
50005 GOTO 900
51000 LOCATE 14,20:PRINT" __________________________________"
51001 LOCATE 15,20:PRINT"|8888 Happy St. |22";CHR$(155);" |"
51002 LOCATE 16,20:PRINT"|Smile, TX 75238 |_____|"
51003 LOCATE 17,20:PRINT"| |"
51004 LOCATE 18,20:PRINT"| |"
51005 LOCATE 19,20:PRINT"| The Klutz Family |"
51006 LOCATE 20,20:PRINT"| 9999 Fall Street |"
51007 LOCATE 21,20:PRINT"| Trip, TX 75238 |"
51008 LOCATE 22,20:PRINT"|__________________________________|"
51009 GOTO 900
52000 LOCATE 14,20:PRINT" _________________ "
52001 LOCATE 15,20:PRINT" | 12 | "
52002 LOCATE 16,20:PRINT" | 11 1 | "
52003 LOCATE 17,20:PRINT" | 10 | 2 | "
52004 LOCATE 18,20:PRINT" | 9 | 3 | "
52005 LOCATE 19,20:PRINT" | 8 / 4 | "
52006 LOCATE 20,20:PRINT" | 7 5 | "
52007 LOCATE 21,20:PRINT" |________";:COLOR 1,15:PRINT"6";:COLOR 7,0:PRINT"________| "
52008 GOTO 900
53000 LOCATE 14,20:PRINT CHR$(250):GOTO 900
54000 LOCATE 14,20:PRINT" "
54001 LOCATE 15,20:PRINT" __ "
54002 LOCATE 16,20:PRINT" | | "
54003 LOCATE 17,20:PRINT" ___| |___ "
54005 LOCATE 18,20:PRINT" |___ ___| "
54006 LOCATE 19,20:PRINT" | |" "
54007 LOCATE 20,20:PRINT" | |"
54008 LOCATE 21,20:PRINT" |__|"
54009 GOTO 900
RIEMAN.BAS
10 REM QUEST FOR RIEMANNIAN
20 GOSUB 5460:REM INITIALISE
30 OXYGEN=INT(100*(OXYGEN-2.45))/100:IF OXYGEN<1 THEN OXYGEN=0
40 FUEL=FUEL-4.75:IF FUEL<1 THEN FUEL=0
50 PROVISIONS=PROVISIONS-2.45:IF PROVISIONS<1 THEN PROVISIONS=0
60 TE=TE+1
70 PLACE=PLACE+1
80 COLOR INT(RND*7+10)
90 GOSUB 330:REM PRINTOUT
100 COLOR 31
110 IF OXYGEN<10 AND OXYGEN>0 THEN PRINT "* * Oxygen level needs attention * *"
120 IF OXYGEN=0 THEN PRINT "All oxygen tanks exhausted":GOTO 490
130 IF PLACE=24 THEN PRINT "You have arrived safely back on Earth":GOTO 490
140 IF PROVISIONS<10 AND PROVISIONS>0 THEN PRINT ">> Supplies must be supplemented <<"
150 IF PROVISIONS=0 THEN PRINT "You have run out of provisions":GOTO 490
160 IF FUEL<10 AND FUEL>0 THEN PRINT "<< WARNING - Fuel low >>"
170 IF FUEL=0 THEN PRINT "Your Fuel is exhausted":GOTO 490
180 COLOR 15
190 PRINT "++++++++++++++++++++++++++++++++++++++++"
200 COLOR 15,1,1:REM CHANGED COLOR INT(RND*6+9)
210 IF RND>0.5 THEN 270
220 IF RND>0.82 THEN GOSUB 760:REM HOSTILE ALIENS
230 IF RND>0.4 THEN GOSUB 1410:REM RIEMANNIAN RESERVES
240 IF RND>0.7 THEN GOSUB 2040:REM REFUEL STATION
250 IF RND>0.6 THEN GOSUB 2580:REM FRIENDLY ALIENS
260 IF RND>0.97 THEN GOSUB 3050:REM BLACK HOLE
270 IF RND>0.6 THEN GOSUB 3380:REM TRADING POST PLANET
280 IF RND>0.9 THEN GOSUB 4330:REM MEETING WITH LEGENDARY 'SPACE ARK'
290 IF RND>0.851 THEN GOSUB 4920:REM SPACE ATTACK
300 GOSUB 5780
310 GOTO 30
320 REM * * * * * * * * *
330 REM PRINT OUT
340 CLS
350 L$=""
360 PRINT
370 COLOR 15
380 PRINT "+++++++++++++++++++++++++++++++++++++++"
390 COLOR 15,1,1:REM CHANGED COLOR INT(RND*6+9)
400 IF PLACE<13 THEN PRINT "You are in the ";A$(PLACE):PRINT TAB(5);" sector of the Galaxy"
410 IF PLACE>12 THEN PRINT "You are now in";A$(25-PLACE):PRINT " on your way home"
420 PRINT "+++++++++++++++++++++++++++++++++++++++"
430 PRINT "Fuel:"FUEL,"Money Reserves:"WEALTH
440 PRINT "Oxyn:"OXYGEN,"Riemannian:"RIEMAN
450 PRINT "Prov:"INT(PROVISIONS),"Stardate:"TE
460 PRINT "+++++++++++++++++++++++++++++++++++++++"
470 RETURN
480 REM * * * * * * * *
490 REM END OF QUEST
500 IF PLACE=24 THEN PRINT "Well Done !!"
510 PRINT :PRINT "Now we will see how well you did on"
520 PRINT " that trip !"
530 PRINT "You managed to mine"RIEMAN" tons":PRINT TAB(7);" of Riemannian"
540 IF RIEMAN=0 THEN PRINT "You failed in your prime objective":PRINT " which was to mine Riemannian"
550 GOSUB 5780
560 PRINT "Your rating, Captain ";N$;","
570 PRINT "for this run in the ";S$;" is:"
580 PRINT
590 X=0:PQ=0
600 GOSUB 720
610 PQ=PQ+3*FUEL:GOSUB 720
620 PQ=PQ+4*PROVISIONS:GOSUB 720
630 PQ=PQ+55*RIEMAN:GOSUB 720
640 PQ=PQ+12*OXYGEN:GOSUB 720
650 PQ=PQ+45.5*WEALTH:GOSUB 720
660 PQ=PQ-2*HALIENS+4*RSTATION+5*FALIENS-2*SARK+3.4*TPOST
670 PRINT :PRINT
680 PRINT "+++++++++++++++++++++++++++++++++++++++"
690 PRINT "Your final score is"INT(PQ)
700 PRINT "+++++++++++++++++++++++++++++++++++++++"
710 END
720 X=X+1:PRINT "Rating after factor"X" is"INT(PQ)
730 GOSUB 5780
740 RETURN
750 REM * * * * * * * *
760 REM HOSTILE ALIENS
770 HALIENS=HALIENS+1:IF HALIENS>2 THEN RETURN
780 R$="Sauronian"
790 Y=INT(RND(1)*8)
800 IF Y=1 THEN R$="Haradrim"
810 IF Y=2 THEN R$="Nebulian"
820 IF Y=3 THEN R$="Sproul"
830 IF Y=4 THEN R$="Arecibo"
840 IF Y=5 THEN R$="Hertzsprung"
850 IF Y=6 THEN R$="Lallemand"
860 IF Y=7 THEN R$="Countermixian"
870 PRINT "The ";S$;" is under attack from a"
880 PRINT " fleet of ";R$;" ships"
890 GOSUB 5780
900 CODE=INT((RND*10000)*100+(RND*100))
910 PRINT :PRINT "To defeat the dreaded ";R$
920 PRINT " you have to confuse their control "
930 PRINT " computer by sending a code signal"
940 PRINT " which the computer interpret as"
950 PRINT " meaning you are also a";R$
960 PRINT " ship......stand by to see the code....."
970 PRINT "Once it vanishes from the screen, you"
980 PRINT " must send it back to the ";R$;"s"
990 PRINT :PRINT "STAND BY...."
1000 FOR T=1 TO 1400+RND*400
1010 NEXT T
1020 PRINT "The code is >"CODE
1030 FOR T=1 TO 500:NEXT T
1040 CLS
1050 IF INKEY$<>"" THEN 1050
1060 PRINT :PRINT
1070 PRINT "Send that code back to confuse them"
1080 INPUT Q
1090 GOSUB 5780
1100 PRINT :PRINT
1110 IF Q=CODE THEN 1290
1120 PRINT "OH NO...You were wrong !"
1130 PRINT "You signaled"Q" and"
1140 PRINT " the code was"CODE
1150 GOSUB 5780
1160 PRINT :PRINT
1170 PRINT "The ";R$;"s attack..."
1180 GOSUB 5780
1190 IF RND(1)>0.5 THEN PRINT "They have ruptured an oxygen tank!":OXYGEN=INT(3*OXYGEN/4):GOTO 1290
1200 Q=INT(RND(1)*3)
1210 IF Q=0 THEN Y$=" shields"
1220 IF Q=1 THEN Y$=" hull"
1230 IF Q=2 THEN Y$=" engines"
1240 PRINT "Their fire has hit our ";Y$
1250 PRINT :PRINT "Draining energy from our reserves"
1260 FUEL=INT(3*FUEL/4)
1270 GOSUB 5780
1280 RETURN
1290 PRINT :PRINT "You have been sucessful..."
1300 PRINT TAB(8);"in repelling their attack"
1310 PRINT :PRINT "The ";R$;" are leaving the"
1320 PRINT " space sector around the ";S$
1330 GOSUB 5780
1340 PRINT "Congratulations, Captain ";N$
1350 GOSUB 5780
1360 PRINT TAB(8);"Continuing with flight"
1370 GOSUB 5780
1380 RETURN
1390 RETURN
1400 REM * * * * * * * * * * *
1410 REM RIEMANNAIN RESERVES
1420 Q=INT(RND*5)
1430 IF Q=0 THEN Y$="Tau III"
1440 IF Q=1 THEN Y$="Eridani IV"
1450 IF Q=2 THEN Y$="Draconis II"
1460 IF Q=3 THEN Y$="Hermu II"
1470 IF Q=4 THEN Y$="Hydri VIX"
1480 PRINT "You land the ";S$;" on"
1490 PRINT " the mining asteroid ";Y$
1500 GOSUB 5780
1510 PRINT :PRINT
1520 PRINT "Your ore detecting computer generates"
1530 PRINT "two (2) numbers, less than 10.":PRINT "If you can"
1540 PRINT " correctly predict a fact about the"
1550 PRINT " third co-ordinate, you'll be able to"
1560 PRINT "mine for the precious Riemannian"
1570 GOSUB 5780
1580 PRINT "+++++++++++++++++++++++++++++++++++++++"
1590 Q1=INT(RND*9)+1
1600 Q2=INT(RND*9)+1
1610 IF Q2<=Q1 THEN 1590
1620 Q3=INT(RND*9)+1
1630 PRINT "First two (2) co-ordinates are"Q1" and "Q2
1640 GOSUB 5780
1650 PRINT :PRINT "Enter 3rd co-ordinate prediction:"
1660 PRINT TAB(3);"A - is between"Q1" and "Q2
1670 PRINT TAB(3);"B - is equal to"Q1" or "Q2
1680 PRINT TAB(3);"C - is greater than"Q2
1690 INPUT T$
1700 IF T$<"A" OR T$>"C" THEN 1690
1710 PRINT TAB(6);"Third co-ordinate is"Q3
1720 IF T$="A" AND Q3>Q1 AND Q3<Q2 THEN 1800
1730 IF T$="B" AND (Q3=Q1 OR Q3=Q2) THEN 1800
1740 IF T$="C" AND Q3>Q2 THEN 1800
1750 GOSUB 5780
1760 PRINT :PRINT "Computer reports you are unable to"
1770 PRINT "mine for Riemannian on ";Y$
1780 GOSUB 5780
1790 RETURN
1800 PRINT :PRINT "Computer reports you are now able"
1810 PRINT "to mine for Riemannian on ";Y$
1820 GOSUB 5780
1830 PRINT "The speed with which you hit the"
1840 PRINT "indicated letter will determine how"
1850 PRINT "much Riemannian you can mine. Stand by.."
1860 FOR T=1 TO 400+RND*400
1870 NEXT T
1880 M=INT(RND*25)+65:M$=CHR$(M)
1890 IF INKEY$<>"" THEN 1890
1900 PRINT :PRINT
1910 TX=0
1920 PRINT TAB(8);"Hit the '";M$;"' key"
1930 TX=TX+1
1940 P$=INKEY$
1950 IF P$<>M$ THEN 1930
1960 TX=(400-TX)/20:IF TX<1 THEN TX=0.25
1970 PRINT :PRINT "You have mined "TX"tons"
1980 GOSUB 5780
1990 PRINT :PRINT "Now we'll return to our flight..."
2000 RIEMAN=RIEMAN+TX
2010 GOSUB 5780
2020 RETURN
2030 REM * * * * * * * * *
2040 REM REFUEL STATION
2050 RSTATION=RSTATION+1
2060 PRINT "+++++++++++++++++++++++++++++++++++++++"
2070 PRINT "You are approaching refueling orbiting"
2080 PRINT TAB(11);"Station Number"RSTATION
2090 PRINT "++++++++++++++++++++++++++++++++++++++++"
2100 PRINT "Your current banks hold"FUEL
2110 IF INKEY$<>"" THEN 2110
2120 PRINT "++++++++++++++++++++++++++++++++++++++++"
2130 GOSUB 5780
2140 PRINT "Press 1 to attempt landing"
2150 PRINT " or 2 to continue flight"
2160 T$=INKEY$
2170 IF T$<>"1" AND T$<>"2" THEN 2160
2180 IF T$="2" THEN RETURN
2190 PRINT "Follow the co-ordinate landing"
2200 PRINT "sequence for a safe touchdown..."
2210 GOSUB 5780
2220 J=1
2230 IF INKEY$<>"" THEN 2230
2240 K$=STR$(INT(RND*8)+1)
2250 K$=RIGHT$(K$,1)
2260 TR=0
2270 PRINT J" - Press the '";K$;"' key"
2280 PRINT
2290 T$=INKEY$
2300 TR=TR+1
2310 IF TR>110 THEN PRINT "You took too long !"
2320 IF TR>110 THEN GOSUB 5780:RETURN
2330 IF T$="" THEN 2290
2340 IF T$<>K$ THEN PRINT T$;" is wrong":GOSUB 5780:RETURN
2350 IF J<10 THEN J=J+1:GOTO 2240
2360 PRINT "++++++++++++++++++++++++++++++++++++++++"
2370 PRINT "You managed to complete the sequence.."
2380 PRINT "You are now cleared for landing..."
2390 GOSUB 5780
2400 COST=13+INT(RND*8)
2410 PRINT "Here on station"RSTATION" the cost"
2420 PRINT "of fuel suitable for the ";S$
2430 PRINT TAB(9);"is"COST"per unit"
2440 PRINT "++++++++++++++++++++++++++++++++++++++++"
2450 PRINT "You have"WEALTH"credits"
2460 IF WEALTH<COST THEN PRINT "So you can't even afford one unit":GOSUB 5780:RETURN
2470 PRINT :PRINT "How much fuel do you want to buy";
2480 INPUT NEED
2490 IF NEED*COST>WEALTH THEN PRINT "You do not have sufficient credits":GOTO 2470
2500 FUEL=FUEL+NEED
2510 WEALTH=WEALTH-COST*NEED
2520 GOSUB 5780
2530 PRINT :PRINT "Your tanks now hold"FUEL
2540 PRINT :PRINT "and you have"WEALTH"credits"
2550 GOSUB 5780
2560 RETURN
2570 REM * * * * * * * * * *
2580 REM FRIENDLY ALIENS
2590 FALIENS=FALIENS+1:IF FALIENS>3 THEN RETURN
2600 PRINT "++++++++++++++++++++++++++++++++++++++++"
2610 M=INT(RND(1)*7)
2620 IF M=0 THEN Y$="He'Idani"
2630 IF M=1 THEN Y$="Beta Lepoiis"
2640 IF M=2 THEN Y$="Gamra Gamra"
2650 IF M=3 THEN Y$="Keoimumi"
2660 IF M=4 THEN Y$="Draconmh"
2670 IF M=5 THEN Y$="Tuu Epsoni"
2680 IF M=6 THEN Y$="Yydronica"
2690 PRINT "Your navigation computer signals that"
2700 PRINT "an Alien craft has been spotted"
2710 PRINT "approaching your ship...it has not yet"
2720 PRINT "Been able to identify it. Is it friend "
2730 PRINT TAB(13);"or foe ?"
2740 GOSUB 5780
2750 PRINT "++++++++++++++++++++++++++++++++++++++++"
2760 PRINT "Computer indentifies ship originates in"
2770 PRINT TAB(5);"the ";Y$;" system"
2780 GOSUB 5780
2790 PRINT "Alliance not yet determined..."
2800 PRINT TAB(8);">>> STAND BY <<<"
2810 GOSUB 5780
2820 PRINT "++++++++++++++++++++++++++++++++++++++++"
2830 PRINT "The Alliance of the ";Y$;" is"
2840 GOSUB 5780
2850 IF RND>0.4 THEN 3010
2860 PRINT "with our Empire...Allow them to board"
2870 GOSUB 5780
2880 PRINT "++++++++++++++++++++++++++++++++++++++++"
2890 PRINT "The ";Y$;"ns offer you either"
2900 PRINT TAB(9);"1 - FUEL"
2910 PRINT TAB(6);"or 2 - OXYGEN"
2920 IF INKEY$<>"" THEN 2920
2930 PRINT TAB(6);"## Which one do you want ? ##"
2940 T$=INKEY$
2950 IF T$<>"1" AND T$<>"2" THEN 2940
2960 PRINT "++++++++++++++++++++++++++++++++++++++++"
2970 IF T$="1" THEN PRINT TAB(12);">FUEL it is ! <":FUEL=FUEL+INT(RND*20)+19
2980 IF T$="2" THEN PRINT TAB(12);"> OXYGEN it is <":OXYGEN=OXYGEN+INT(RND*30)+29
2990 GOSUB 5780
3000 RETURN
3010 PRINT "Against the Empire...FLEE !!"
3020 L$=Y$
3030 GOTO 5290
3040 REM * * * * * * * *
3050 REM BLACK HOLE
3060 FOR J=1 TO 12
3070 PRINT TAB(J);"> DANGER !! <"
3080 FOR T=1 TO 200:NEXT T
3090 PRINT TAB(13-J);"> DANGER !! <"
3100 FOR T=1 TO 200:NEXT T
3110 NEXT J
3120 GOSUB 5780
3130 CLS
3140 GOSUB 5780
3150 PRINT :PRINT
3160 PRINT "The ";S$;" is being sucked"
3170 PRINT TAB(9);"into a Black Hole !"
3180 GOSUB 5780
3190 CLS
3200 GOSUB 5780
3210 FOR K=1 TO 7
3220 FOR J=1 TO 10
3230 PRINT TAB(J+2*K);"Dragging us in..."
3240 NEXT J
3250 NEXT K
3260 CLS
3270 GOSUB 5780
3280 FOR J=1 TO 5
3290 FOR K=1 TO 5
3300 PRINT TAB(J);"ALL COMMUNCATIONS HAVE STOPPED 1"
3310 NEXT K
3320 NEXT J
3330 GOSUB 5780
3340 CLS
3350 GOSUB 5780
3360 END
3370 REM * * * * * * * * * * * *
3380 REM TRADING POST
3390 TPOST=TPOST+1
3400 IF TPOST>15 THEN TPOST=15
3410 PRINT "++++++++++++++++++++++++++++++++++++++++"
3420 PRINT "You're approaching a Trading Post Planet"
3430 PRINT "++++++++++++++++++++++++++++++++++++++++"
3440 GOSUB 5780
3450 PRINT "It is the Planet ";X$(TPOST);
3460 IF TPOST=15 THEN PRINT INT(RND*6+1) ELSE PRINT
3470 PRINT "++++++++++++++++++++++++++++++++++++++++"
3480 PRINT "The inhabitants of ";X$(TPOST)
3490 PRINT "Wish to buy Riemannian, and will sell"
3500 PRINT "you provisions, fuel and oxygen"
3510 PRINT "++++++++++++++++++++++++++++++++++++++++"
3520 GOSUB 5780
3530 IF INKEY$<>"" THEN 3530
3540 PRINT "Enter your choice:":PRINT
3550 PRINT TAB(5);"1 - to sell Riemannian"
3560 PRINT TAB(5);"2 - to buy provisions"
3570 PRINT TAB(5);"3 - to buy fuel"
3580 PRINT TAB(5);"4 - to buy oxygen"
3590 PRINT TAB(5);"5 - to continue flight"
3600 T$=INKEY$
3610 IF T$<"1" OR T$>"5" THEN 3600
3620 IF T$<>"1" THEN CLS
3630 IF T$="5" THEN RETURN
3640 PRINT "++++++++++++++++++++++++++++++++++++++++"
3650 IF T$="2" THEN 3870
3660 IF T$="3" THEN 4020
3670 IF T$="4" THEN 4170
3680 IF T$="1" THEN 3700
3690 GOTO 3600
3700 IF RIEMAN<1 THEN PRINT "You have noe to sell !":GOSUB 5780:PRINT TAB(5);"Please enter new choice":GOTO 3600
3710 PRINT :PRINT "You have"RIEMAN"Riemannian"
3720 PRINT "How many tons do you want to sell";
3730 INPUT SELL
3740 IF SELL>RIEMAN THEN 3730
3750 PRICE=50+INT(RND*50)
3760 PRINT"The Trader offers"PRICE" per ton"
3770 PRINT "Do you accept this (Y or N)";
3780 INPUT U$:IF U$<>"Y" AND U$<>"N" THEN 3780
3790 IF U$="Y" THEN 3820
3800 IF U$="N" AND RND>0.5 THEN PRICE=PRICE+INT(RND*6)+3:PRINT "They now offer"PRICE:GOTO 3770
3810 PRINT "They won't haggle":GOSUB 5780:RETURN
3820 PRINT "It's a Deal !"
3830 GOSUB 5780
3840 WEALTH=WEALTH+SELL*PRICE
3850 RIEMAN=RIEMAN-SELL
3860 RETURN
3870 REM * * BUY PROVISIONS * *
3880 PRINT "You have"WEALTH" credits"
3890 Y=INT(RND*9)+6
3900 PRINT :PRINT "The Traders are selling provisions"
3910 PRINT "at"Y" credits per unit"
3920 IF Y>WEALTH THEN PRINT "So you cannot afford a single unit":GOTO 3520
3930 PRINT :PRINT "How many units do you want to buy";
3940 INPUT AMOUNT
3950 IF AMOUNT=0 THEN 3520
3960 IF AMOUNT*Y>WEALTH THEN PRINT "You cannot affor"AMOUNT:GOSUB 5780:GOTO 3940
3970 PRINT TAB(5);"> The sale has been made <"
3980 GOSUB 5780
3990 WEALTH=WEALTH-Y*AMOUNT
4000 PROVISIONS=PROVISIONS+AMOUNT
4010 RETURN
4020 REM * * BUY FUEL * *
4030 PRINT "You have"WEALTH" credits"
4040 Y=INT(RND*8)+16
4050 PRINT :PRINT "The Traders are selling fuel"
4060 PRINT "at"Y"credits per unit"
4070 IF Y>WEALTH THEN PRINT "So the price is too high for you":GOTO 3520
4080 PRINT :PRINT "How many units do you want to buy";
4090 INPUT AMOUNT
4100 IF AMOUNT=0 THEN 3520
4110 IF AMOUNT*Y>WEALTH THEN PRINT "You cannot afford"AMOUNT:GOSUB 5780:GOTO 4090
4120 PRINT TAB(5);"> The fuel is now yours <"
4130 GOSUB 5780
4140 WEALTH=WEALTH-Y*AMOUNT
4150 FUEL=FUEL+AMOUNT
4160 RETURN
4170 REM * * BUY OXYGEN * *
4180 PRINT "You have"WEALTH" credits"
4190 Y=INT(RND*6)+25
4200 PRINT :PRINT "The Traders are selling oxygen"
4210 PRINT "at"Y"credits per tank"
4220 IF Y>WEALTH THEN PRINT "So you cannot buy right now":GOTO 3520
4230 PRINT :PRINT "How many tanks do you want to buy";
4240 INPUT AMOUNT
4250 IF AMOUNT=0 THEN 3520
4260 IF AMOUNT*Y>WEALTH THEN PRINT "You cannot afford"AMOUNT:GOSUB 5780:GOTO 4240
4270 PRINT TAB(3)"> Oxygen is now in your exo-webs <"
4280 GOSUB 5780
4290 WEALTH=WEALTH-Y*AMOUNT
4300 OXYGEN=OXYGEN+AMOUNT
4310 RETURN
4320 REM * * * * * * * * * * *
4330 REM MEETING WITH THE SPACE ARK
4340 SARK=SARK+1:IF SARK>1 THEN RETURN
4350 FOR J=1 TO 3
4360 PRINT TAB(J*3);"STAND...":GOSUB 5780:PRINT TAB(J*3+5);"...BY"
4370 GOSUB 5780
4380 NEXT J
4390 PRINT :PRINT
4400 PRINT "It seems impossible to believe but your"
4410 PRINT "Central Computer says that an object"
4420 PRINT "resembling the legendary 'Space Ark' of"
4430 PRINT "long, long ago, in a galaxy far away"
4440 PRINT TAB(6);"has been spotted"
4450 PRINT "++++++++++++++++++++++++++++++++++++++++"
4460 PRINT "Computer to Captain ";N$
4470 GOSUB 5780
4480 PRINT TAB(8);"Checking Identification..."
4490 PRINT "++++++++++++++++++++++++++++++++++++++++"
4500 GOSUB 5780
4510 PRINT "Identification confirmed. Craft is the"
4520 PRINT "Nasmyth Focus, which vanished 200 years"
4530 PRINT "ago in what became known as the"
4540 PRINT "First Temporal Displacement..."
4550 GOSUB 5780
4560 PRINT "++++++++++++++++++++++++++++++++++++++++"
4570 PRINT "WARNING....";:GOSUB 5780:PRINT "WARNING...."
4580 GOSUB 5780
4590 PRINT "The Nasmyth later became known as the"
4600 PRINT "Space Ark. It is supposed to appear to"
4610 PRINT "Ships just before disaster is due to"
4620 PRINT "strike them....":GOSUB 5780
4630 PRINT "++++++++++++++++++++++++++++++++++++++++"
4640 PRINT "The Temporal Flux around the Nasmyth is"
4650 PRINT "affecting the Force Warp holding our"
4660 PRINT "exhold oxygen web...."
4670 GOSUB 5780
4680 PRINT "++++++++++++++++++++++++++++++++++++++++"
4690 N=0
4700 IF INKEY$<>""THEN 4700
4710 PRINT "Press the 'J `key on your controls"
4720 GOSUB 5780
4730 P$=INKEY$
4740 N=N+1
4750 IF P$="J" THEN 4840
4760 IF N<99 THEN 4730
4770 PRINT "You took to long...."
4780 GOSUB 5780
4790 PRINT "++++++++++++++++++++++++++++++++++++++++"
4800 PRINT "The Flux has caught our O2 web !"
4810 GOSUB 5780
4820 OXYGEN=INT(3*(OXYGEN/4))
4830 RETURN
4840 PRINT :PRINT "Well Done ! Your reflexes are"
4850 PRINT "excellent Captain ";N$
4860 GOSUB 5780
4870 PRINT "++++++++++++++++++++++++++++++++++++++++"
4880 PRINT "We can now continue on our flight..."
4890 GOSUB 5780
4900 RETURN
4910 REM * * * * * * * * *
4920 REM SPACE ATTACK
4930 ATTACK=ATTACK+1:IF RND(1)<ATTACK/7 THEN RETURN
4940 IF ATTACK>3 THEN RETURN
4950 PRINT "++++++++++++++++++++++++++++++++++++++++"
4960 PRINT "LKJS 8907843":GOSUB 5780
4970 PRINT "CAgT#IN ";N$;", TjER\ ^S"
4980 PRINT "SOM*THIN% WRO$G #ITH OU& SYST9m@..."
4990 GOSUB 5780
5000 PRINT "We A%e b&^NG jAM!eD iN SoM# oDd w%Y..."
5010 GOSUB 5780
5020 PRINT "JAgM!n& D7ViC% b#INj oP!$aTEd bU aLI-x"
5030 PRINT "CjAfT %N vE@jOR 9q37-231A"
5040 GOSUB 5780
5050 PRINT "++++++++++++++++++++++++++++++++++++++++"
5060 Y=INT(RND(1)*8)
5070 IF Y=0 THEN L$="Lexo"
5080 IF Y=1 THEN L$="Sabu"
5090 IF Y=2 THEN L$="Repi"
5100 IF Y=3 THEN L$="Aste"
5110 IF Y=4 THEN L$="Prie"
5120 IF Y=5 THEN L$="Cona"
5130 IF Y=6 THEN L$="Zusi"
5140 IF Y=7 THEN L$="Inqu"
5150 Y=INT(RND(1)*8)
5160 IF Y=0 THEN L$=L$+"taje"
5170 IF Y=1 THEN L$=L$+"ll'e"
5180 IF Y=2 THEN L$=L$+"proc"
5190 IF Y=3 THEN L$=L$+"leal"
5200 IF Y=4 THEN L$=L$+"mapo"
5210 IF Y=5 THEN L$=L$+"hercon"
5220 IF Y=5 THEN L$=L$+"oral"
5230 IF Y=6 THEN L$=L$+"kok"
5240 IF Y=7 THEN L$=L$+"zucc"
5250 PRINT "++++++++++++++++++++++++++++++++++++++++"
5260 GOSUB 5780
5270 PRINT "The Alien Craft is under the"
5280 PRINT "control of the dreaded ";L$
5290 PRINT "++++++++++++++++++++++++++++++++++++++++"
5300 GOSUB 5780
5310 IF RND>0.9 AND RIEMAN>0 THEN PRINT "The ";L$;' are heading":PRINT "for the Riemannian hold":RIEMAN=INT(RIEMAN/2):GOTO 5360
5320 IF RND>0.8 THEN PRINT "Fire from their craft hits our":PRINT "external fuel web !!":FUEL=4*(INT(FUEL/5)):GOTO 5360
5330 IF RND>0.57 THEN PRINT "The ";L$;" lasers strike our":PRINT "oxygen web !!":OXYGEN=7*(INT(OXYGEN/8)):GOTO 5360
5340 IF RND>0.8 THEN PRINT "Oh no ! The nasty ";L$:PRINT "have sent a robot raider to our":PRINT "precious provisions !":PROVISIONS=3*(INT(PROVISIONS/4))
5350 PRINT "++++++++++++++++++++++++++++++++++++++++"
5360 GOSUB 5780
5370 IF RND>0.46 THEN 5320
5380 GOSUB 5780
5390 PRINT "++++++++++++++++++++++++++++++++++++++++"
5400 PRINT "The ";L$;" are retreating..."
5410 GOSUB 5780
5420 PRINT "The attack seems to be over..."
5430 GOSUB 5780
5440 RETURN
5450 REM * * * * * * * * * *
5460 REM INITIALISATION
5470 GOSUB 5860
5480 RANDOMIZE VAL(RIGHT$(TIME$,2))
5490 DIM A$(12),X$(15)
5500 PLACE=0
5510 WEALTH=INT(RND*50)+75
5520 FUEL=INT(RND*50)+75
5530 OXYGEN=INT(RND*25)+50
5540 RIEMAN=0
5550 PROVISIONS=100-INT(RND*73)
5560 HALIENS=0:REM HOSTILE ALIENS
5570 RSTATION=0:REM REFUEL STATION
5580 FALIENS=0:REM FRIENDLY ALIENS
5590 SARK=0:REM SPACE ARK
5600 TPOST=0:REM TRADING POST
5610 ATTACK=0:REM SPACE ATTACK
5620 TE=0:REM STARDATE
5630 INPUT "Please enter your name";N$
5640 PRINT
5650 INPUT "Now the name of your ship";S$
5660 FOR J=1 TO 12
5670 READ A$(J)
5680 NEXT J
5690 FOR J=1 TO 15
5700 READ X$(J)
5710 NEXT J
5720 RETURN
5730 DATA Terra,Pegasus,Mira,Cita,Delphinus,Cygnus,pleides,Hyades,Hydrus,Lepus,Carina,Spica
5740 DATA Asimov III,Galieo IV,"Barnard's Rest",Praesepe,Sagan IX
5750 DATA Neutrinon,Seyfert VI,Torusk,Lemaitre,Markaria
5760 DATA Leverrier,Gamow,Heisenberg,Fizeau,Cerenkov
5770 REM * * * * * *
5780 REM DELAY
5790 NOTE=INT(RND*46+38)
5800 IF RND>0.7 THEN PLAY "MB L1 N=NOTE;
5810 FOR T=1 TO 1500:NEXT T
5820 COLOR 15,1,1:REM CHANGED COLOR INT(RND*7+ 7)
5830 PRINT
5840 RETURN
5850 REM * * * * * * *
5860 REM INTRO FRAME
5870 KEY OFF
5880 DEF SEG=0:POKE &H417,(PEEK(&H417) OR &H40)
5890 SCREEN 0,1
5900 WIDTH 40
5910 FOR J=0 TO -1 STEP -1
5920 COLOR (12+J),1,1
5930 IF J=0 THEN CLS
5940 LOCATE 5,16:PRINT "Join the"
5950 LOCATE 7,13,0:PRINT "search for the"
5960 LOCATE 9,3,0:PRINT "precious substance in the universe"
5970 COLOR (30+J):LOCATE 14,9,0
5980 PRINT CHR$(213)+STRING$(21,205)+CHR$(184)
5990 LOCATE 15,9,0
6000 PRINT CHR$(179)+" ";:COLOR (31+J):PRINT "RIEMANNIAN";:COLOR (30+J):PRINT " "+CHR$(179)
6010 LOCATE 16,9,0
6020 PRINT CHR$(212)+STRING$(21,205)+CHR$(190)
6030 PLAY "ML L8 T84 O2 FP32FP16F. P16 T128 D T64 G F D# D P32 D. P64"
6040 PLAY "T128 D P64 D P64 D# P64"
6050 PLAY "T64 D P64 D# D P64 C P64 C O1 A# P64 A.. P64"
6060 PLAY "T128 A# P64 T64 A# T128 P64 A# P64 T64 O2 C D T128 DC O1A# O2C....."
6070 NEXT J
6080 COLOR 15,1,1
6090 CLS
6100 RETURN
ROBOTNKA.BAS
10 PRINT "> > > HIT THE TANK < < <":PRINT:CLEAR
11 '
12 ' You are a modern artilleryman firing missiles, but
13 ' the age-old principles apply: At what angle above
14 ' the horizon should you aim your missile to get close
15 ' enough to destroy an approaching enemy tank? Range
16 ' of target and exploding missile reported after each
17 ' round fired. The larger the selected "Difficulty"
18 ' number, the closer you must get to the tank. Get
19 ' the enemy before he "zaps" you. Good luck!
20 INPUT "Difficulty Level 1-4:";L:C=0
30 IF L<1 THEN PRINT "Select level again":GOTO 20
35 IF L>4 THEN PRINT "Select level again":GOTO 20
40 L=50*(6-L)
42 GOSUB 10030
46 T=N
50 INPUT "Missile Angle= ";D
60 IF D<0 THEN PRINT "Cannot be done":GOTO 40
70 IF D>=90 THEN PRINT "You just shot yourself! ":GOTO 10
75 GOSUB 5100
80 P=(96000!*SIN(2*R))/32:P=INT(P)
85 V=T-P
90 C=C+1:IF ABS(V)<=L THEN 400
100 GOSUB 200
105 PRINT "Missile ";
110 PRINT USING "#####";P;
112 PRINT " Tank ";
115 PRINT USING "#####";T
118 GOSUB 8000
120 T=T-M:IF T<=L THEN PRINT "Zap...destroyed by Tank":GOTO 10
130 PRINT "Change Missile angle ";D;
132 PRINT " to: ":GOTO 50
200 PRINT " ---> "," -----> "," ---------> ":RETURN
300 PRINT "Tank was destroyed at ";T
310 PRINT " Missile hit at ";P
320 PRINT " Tank speed = ";M;" ypm.":PRINT:GOTO 10
400 PRINT " * * Got Tank in ";C;
410 PRINT " shots. * *":GOTO 300
415 '
5000 REM Radian to Degree
5020 D=180/3.14159*R
5040 RETURN
5050 '
5100 REM Degree to Radian
5120 R=3.14159/180*D
5140 RETURN
5150 '
8000 M=INT(RND*1000)
8010 IF M<350 THEN 8000
8020 IF M>650 THEN 8000
8030 RETURN
10010 '
10030 INPUT "Random seed (1-99):";Z
10040 Z=INT(3*Z/2):GOSUB 20000
10060 RANDOMIZE U
10070 GOSUB 30000
10080 GOTO 46
10090 '
20000 PI=3.14159
20010 U=((PI+U)^5)-INT((PI+U)^5)
20020 R=1000*U
20030 U=INT(R)+Z
20040 IF U>10000 THEN Z=INT(Z/100):GOTO 20010
20050 RETURN
20060 '
30000 N=INT(RND*10000)
30010 IF N<2800 THEN 30000
30020 IF N>4200 THEN 30000
30050 RETURN
STAR2001.BAS
10 REM STAR BASE 2000
20 REM NEEDS BASICA
30 GOSUB 3060:REM INITILIALISE
40 GOSUB 210:REM NAME OF QUADRANT
50 IF EVENT<5 AND RND<0.15 THEN GOSUB 2290
60 GOSUB 630:REM CONDITION OF SHIP
70 FOR O=1 TO 3:GOSUB 3730:NEXT O
80 GOSUB 860:REM PROXIMITY REPORTS
90 GOSUB 1250:REM ACCEPT MOVE
100 IF B$="N" THEN 140
110 GOSUB 210
120 GOSUB 630
130 GOSUB 860
140 GOSUB 1520:REM ACCEPT FIRE COMMAND
150 GOSUB 630
160 GOSUB 1850:REM ALIENS RETURN FIRE
170 STARDATE=STARDATE+1
180 B$=""
190 GOTO 40
200 REM * * * * * * * * * *
210 REM NAME OF QUADRANT
220 CLS:PRINT :PRINT
230 COLOR 14
240 PRINT ":::: You are in ";
250 COLOR 28
260 P=INT(S1/8+0.5)
270 Q=INT(S2/8+0.5)
280 IF P<1 THEN P=1
290 IF Q<1 THEN Q=1
300 IF P>8 THEN P=8
310 IF Q>8 THEN Q=8
320 IF P>4 THEN 420
330 IF Q=1 THEN PRINT "Pegasus";
340 IF Q=2 THEN PRINT "Aquarius";
350 IF Q=3 THEN PRINT "Eridanus";
360 IF Q=4 THEN PRINT "Hyades";
370 IF Q=5 THEN PRINT "Canis Major";
380 IF Q=6 THEN PRINT "Ursa Major";
390 IF Q=7 THEN PRINT "Ophiuchus";
400 IF Q=8 THEN PRINT "Cepheus";
410 GOTO 500
420 IF Q=1 THEN PRINT "Dorado";
430 IF Q=2 THEN PRINT "Triangulam";
440 IF Q=3 THEN PRINT "Auriga";
450 IF Q=4 THEN PRINT "Magellanic";
460 IF Q=5 THEN PRINT "Scorpio";
470 IF Q=6 THEN PRINT "Corvus";
480 IF Q=7 THEN PRINT "Archernar";
490 IF Q=8 THEN PRINT "Cygnus";
500 PRINT " sector"
510 COLOR 4
520 PRINT "++++++++++++++++++++++++++++++++++++++++"
530 COLOR 13
540 PRINT "Ship's Log stardate ";:COLOR 14:PRINT STARDATE;:COLOR 13:PRINT " Aliens:";:COLOR 14:PRINT AK
550 COLOR 4
560 PRINT "++++++++++++++++++++++++++++++++++++++++"
570 COLOR 13
580 PRINT "^v^ Your galactic co-ordinates:";:COLOR 14:PRINT S1;S2
590 COLOR 4
600 PRINT "++++++++++++++++++++++++++++++++++++++++"
610 RETURN
620 REM * * * * * * * * * * *
630 REM SHIP CONDITION
640 COLOR 4
650 PRINT TAB(12);"* * ENERGY BANKS HOLD";
660 COLOR 12:PRINT ENERGY
670 IF ENERGY>1 THEN 740
680 COLOR 28
690 PRINT :PRINT :PRINT "You have exhausted your energy banks"
700 COLOR 14
710 PRINT :PRINT "Your voyage is over"
720 PRINT :PRINT "You survived for "STARDATE-1000" stardates "
730 PRINT :PRINT "You destroyed"AK"alien ships":GOTO 2220
740 IF ENERGY>50 THEN 830
750 COLOR 31
760 FOR H=1 TO 3
770 PRINT TAB(H*3);"> WARNING <"
780 NEXT H
790 COLOR 30
800 PRINT :PRINT "ENERGY RESERVES * LOW *"
810 COLOR 31
820 PRINT :PRINT "YOU MUST FIND A STARBASE SOON"
830 FOR T=1 TO 1000:NEXT T
840 RETURN
850 REM * * * * * * * *
860 REM SCANNER
870 P=200:A1=200:AB=200:PROX=0
880 COLOR 5
890 PRINT :PRINT "Do you want to use scanner(Y or N)";
900 INPUT C$
910 IF C$<>"N" AND C$<>"Y" THEN 900
920 IF C$="N" THEN RETURN
930 ENERGY=ENERGY-0.25
940 COLOR 20
950 PRINT "> Stand by for scan...";
960 COLOR 12
970 X1=S1-8:X2=S1+8:Y1=S2-8:Y2=S2+8
980 IF X1<1 THEN X1=1
990 IF X1>64 THEN X1=64
1000 IF Y1<1 THEN Y1=1
1010 IF Y1>64 THEN Y1=64
1020 IF X2<1 THEN X2=1
1030 IF X2>64 THEN X2=64
1040 IF Y2<1 THEN Y2=1
1050 IF Y2>64 THEN Y2=64
1060 FOR X=X1 TO X2
1070 PRINT :PRINT CHR$(26);
1080 FOR Y=Y1 TO Y2
1090 P=SQR((X-S1)*(X-S1)+(Y-S2)*(Y-S2))
1100 P=INT(P*1000)/1000
1110 IF A(X,Y)=SH OR A(X,Y)=1 THEN PRINT "v";:GOTO 1150
1120 IF A(X,Y)=TA THEN PROX=P:COLOR 28:PRINT ".....STARBASE 2000 DETECTED!.....":COLOR 20
1130 IF A(X,Y)=AL AND P<A1 THEN A1=P:PRINT "A";:GH=X:GJ=Y
1140 IF A(X,Y)=SB AND P<AB THEN AB=P:PRINT "S";
1145 PRINT " ";
1150 NEXT Y
1160 NEXT X
1170 COLOR 9
1180 IF A1<>200 THEN PRINT :PRINT "Closest alien: Scan reading of "A1
1190 IF AB<>200 THEN PRINT :PRINT "Closest starbase: Scan reading of "AB
1200 IF PROX<>0 THEN PRINT :PRINT "Scan on Starbase 2000 returns:"PROX:PRINT TAB(8);"It is within range"
1210 IF PROX=0 THEN PRINT :PRINT "Long range fix on S.B. 2000 reads"100*(S1-B1)+(S2-B2)
1220 FOR T=1 TO 1000:NEXT T
1230 RETURN
1240 REM * * * * * * * * * * *
1250 REM ACCEPT MOVE
1260 COLOR 3
1270 PRINT :PRINT "^V^ Your galactic co-ordinates:";:COLOR 14:PRINT S1;S2:COLOR 3
1280 PRINT :PRINT "Do you want to move ship (Y or N)";
1290 INPUT B$
1300 IF B$<>"N" AND B$<>"Y" THEN 1290
1310 IF B$="N" THEN RETURN
1320 ENERGY=ENERGY-2.725
1330 COLOR 9
1340 PRINT TAB(6);"Which direction (N, S, E or W)";
1350 INPUT A$
1360 IF A$<>"N" AND A$<>"S" AND A$<>"W" AND A$<>"E" THEN 1350
1370 IF A$="N" AND S1=1 THEN RETURN
1380 IF A$="S" AND S1=64 THEN RETURN
1390 IF A$="W" AND S2=1 THEN RETURN
1400 IF A$="E" AND S2=64 THEN RETURN
1410 A(S1,S2)=0
1420 IF A$="N" THEN S1=S1-1
1430 IF A$="S" THEN S1=S1+1
1440 IF A$="W" THEN S2=S2-1
1450 IF A$="E" THEN S2=S2+1
1460 IF A(S1,S2)=AL THEN COLOR 28:PRINT "YOU'VE LANDED ON AN ALIEN SHIP !!":ENERGY=0:FOR T=1 TO 1000:NEXT T:RETURN
1470 IF A(S1,S2)=SB THEN COLOR 28:PRINT "YOU'VE LANDED ON A STARBASE":ENERGY=ENERGY+55:GOTO 1490
1480 IF S1=B1 AND S2=B2 THEN 1990:REM STAR BASE HAS BEEN FOUND
1485 A(S1,S2)=SH
1490 FOR T=1 TO 1000:NEXT T
1500 RETURN
1510 REM * * * * * * * *
1520 REM FIRE COMMAND
1530 COLOR 13
1540 PRINT :PRINT "Do you want to fire Photons (Y or N)";
1550 INPUT A$
1560 IF A$<>"Y" AND A$<>"N" THEN 1550
1570 IF A$="N" THEN RETURN
1580 COLOR 14
1590 PRINT TAB(8);"AT WHAT FORCE (2 TO 8)";
1600 INPUT K
1610 IF K<2 OR K>8 THEN 1600
1620 ENERGY=ENERGY-K*2.5
1630 COLOR 13
1640 PRINT :PRINT ":::: IN WHICH DIRECTION (N, S, E OR W)";
1650 INPUT A$
1660 IF A$<>"N" AND A$<>"S" AND A$<>"E" AND A$<>"W" THEN 1650
1670 M=S1:N=S2
1680 FOR J=1 TO K
1690 COLOR 14
1700 PRINT "Sector beam "J;
1710 IF A$="N" THEN M=M-1
1720 IF A$="S" THEN M=M+1
1730 IF A$="W" THEN N=N-1
1740 IF A$="E" THEN N=N+1
1750 IF M<1 OR M>64 OR N<1 OR N>64 THEN 1800
1760 COLOR 28
1770 IF A(M,N)=AL THEN PRINT :PRINT "ALIEN SHIP DESTROYED AT "M;N:AK=AK+1:A(M,N)=0:GH=0:GJ=0:GOTO 1810
1780 IF A(M,N)=SB THEN PRINT "YOU HIT A FRIENDLY STARBASE !":ENERGY=ENERGY/2:GOTO 1810
1790 IF M=B1 AND N=B2 THEN PRINT "YOU'VE DESTROYED STARBASE 2000 !":ENERGY=0:GOTO 2170
1800 PRINT "...NOTHING"
1810 NEXT J
1820 FOR T=1 TO 1000:NEXT T
1830 RETURN
1840 REM ** * * * * ** * ** * *
1850 REM ALIENS RETURN FIRE
1860 IF GH=0 OR GJ=0 OR RND>0.5 THEN RETURN
1870 COLOR 28
1880 PRINT "ALIENS AT "GH;GJ" ARE FIRING AT US SIR..."
1890 FOR T=1 TO 1000:NEXT T
1900 R=INT(RND*4)
1910 COLOR 12
1920 IF R=0 THEN PRINT TAB(7);"* * THEY MISSED !!"
1930 IF R=1 THEN PRINT ;"ALIEN FIRE CLIPPED THE STARBOARD SIDE":PRINT :PRINT TAB(7);"MINOR DAMAGE":ENERGY=ENERGY-4.75
1940 IF R=2 THEN PRINT ;"ALIEN FIRE HIT THE CREW SECTION":ENERGY=ENERGY-18.25
1950 IF R=3 THEN PRINT ;"ALIEN FIRE HIT THE DRIVE SECTION":PRINT :PRINT TAB(7);"MAJOR DAMAGE":ENERGY=ENERGY-30.55
1960 FOR T=1 TO 1000:NEXT T
1970 RETURN
1980 REM * * * * * * * * *
1990 REM END OF QUEST
2000 COLOR 14
2010 PRINT :PRINT
2020 PRINT "----------------------------------------"
2030 COLOR 12
2040 PRINT TAB(8);"YOU HAVE SUCCEEDED !"
2050 COLOR 14
2060 PRINT "----------------------------------------"
2070 COLOR 12
2080 PRINT "YOU HAVE FOUND THE STARBASE 2000"
2090 PEOPLE=1000+INT(RND*1000)
2100 COLOR 14
2110 PRINT "----------------------------------------"
2120 COLOR 12
2130 PRINT PEOPLE;"STARBASE RESIDENTS ARE STILL"
2140 PRINT "ALIVE, AND WILL NOW LIVE BECAUSE OF THE"
2150 PRINT TAB(8);"SERUM YOU HAVE BROUGHT THEM"
2160 COLOR 14
2170 PRINT "----------------------------------------"
2180 COLOR 12
2190 PRINT "YOUR RATING FOR THIS GAME IS";
2200 PRINT INT(PEOPLE+STARDATE+ENERGY*AK-1000)
2210 END
2220 COLOR 14
2230 PRINT "----------------------------------------"
2240 COLOR 12
2250 PRINT "Unfortunately, you did not locate the"
2260 PRINT "Starbase, which was at"B1;B2
2270 GOTO 2170
2280 REM * * * * * * *
2290 REM EVENTS
2300 EVENT=EVENT+1
2310 COLOR 13
2320 PRINT "^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"
2330 COLOR 10
2340 PRINT "vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv"
2350 COLOR 13
2360 ON EVENT GOSUB 2400,2500,2620,2770,2930
2370 FOR T=1 TO 1000:NEXT T
2380 RETURN
2390 REM * * * * * * ** ** *
2400 PRINT "Your ship has flown into the beam of a"
2410 PRINT "gamma-ray emission from galactic"
2420 PRINT "anticenter, epifocus is Vela..."
2430 FOR T=1 TO 1000:NEXT T
2440 PRINT "Your ship is diverted by the emissions.."
2450 S1=S1+1:S2=S2-1
2460 IF S1>64 THEN S1=64
2470 IF S2<1 THEN S2=1
2480 RETURN
2490 REM * * * * * * * * * *
2500 PRINT "Navigation reports unusual atomic"
2510 PRINT "activity at magnitudes 4.8 and 10.13"
2520 PRINT "from Kapteyn's apparently directed"
2530 PRINT "towards UV Ceti A and B..."
2540 FOR T=1 TO 1000:NEXT T
2550 PRINT "This suggests our scanner output"
2560 PRINT "may be inaccurate..."
2570 B1=B1+2:B2=B2-2
2580 IF B1>65 THEN B1=64
2590 IF B2<1 THEN B2=1
2600 RETURN
2610 REM * * * * * * * * * * *
2620 PRINT "Signals received from direction of the"
2630 PRINT "Horsehead Neblua at 337 Parsecs show"
2640 PRINT "excessive sodium measurement in"
2650 PRINT "the interstellar dust cloud..."
2660 FOR T=1 TO 1000:NEXT T
2670 PRINT "We must divert 12% of our energy to"
2680 PRINT "strengthen our shields..."
2690 FOR T=1 TO 500:NEXT T
2700 PRINT "Energy banks now hold"ENERGY
2710 ENERGY=0.78*ENERGY
2720 FOR T=1 TO 500:NEXT T
2730 PRINT "After shield strengthening, energy"
2740 PRINT "banks report a reading or"ENERGY
2750 RETURN
2760 REM * * * * * * * * * *
2770 PRINT "Forward control reports Proto-star"
2780 PRINT "formation in gaseous nebula M16"
2790 PRINT "in Serpens, The proton-proton reaction"
2800 PRINT "is generating internal temperatures of"
2810 PRINT "the order of 17 x 10^6 K..."
2820 PRINT "We must move away from that location..."
2830 FOR T=1 TO 1000:NEXT T
2840 PRINT TAB(8);"WARP DRIVE ON !"
2850 FOR T=1 TO 1000:NEXT T
2860 S1=S1+INT(RND*3)
2870 S2=S2+INT(RND*3)
2880 IF S1>64 THEN S1=64
2890 IF S2>64 THEN S2=64
2900 FOR T=1 TO 1000:NEXT T
2910 RETURN
2920 REM * * * * * * * * *
2930 PRINT "WARNING...WARNING..."
2940 FOR T=1 TO300:NEXT T:IF RND>0.7 THEN 2930
2950 PRINT "BLACK HOLE WITHIN"RND*1000" UNITS, IN"
2960 PRINT "DIRECTION"RND*1000" HEADING"RND*34
2970 FOR T=1 TO 500:NEXT T
2980 PRINT :PRINT "Gravitational lens effect is putting"
2990 PRINT "extreme strain on galactic image as"
3000 PRINT "seen by initiated process"INT(RND*100)/100
3010 M=S2:S2=S1:S1=M
3020 PRINT "We are tumbling...";
3030 IF RND>0.4 THEN 3020
3040 RETURN
3050 REM * * * * * * * * *
3060 REM INITIALISE
3070 DEF SEG=0:POKE &H417,(PEEK(&H417) OR &H40):REM UPPER CASE
3080 GOSUB 3450
3090 PRINT :PRINT "Please stand by.";
3100 RANDOMIZE VAL(RIGHT$(TIME$,2))
3110 DIM A(64,64)
3120 AL=ASC("A"):REM ALIEN
3130 AK=0:REM ALIENS KILLED
3140 SH=ASC("S"):REM YOUR SHIP
3150 SB=ASC("B"):REM STAR BASE
3160 TA=ASC("T"):REM 'TARGET' OF GAME, STARBASE 2000
3170 STARDATE=1000
3180 ENERGY=300
3190 REM * * CREATE GALAXY * *
3200 FOR M=1 TO 300
3210 SOUND (M+40),1
3220 COLOR INT(RND*31)+1:PRINT ".";
3230 FOR N=1 TO 2
3240 C=INT(RND*64)+1
3250 D=INT(RND*64)+1
3260 IF N=1 THEN A(C,D)=AL
3270 IF N=2 THEN A(C,D)=SB
3280 NEXT N
3290 NEXT M
3300 REM * * STARBASE 2000 * *
3310 B1=INT(RND*64)+1
3320 B2=INT(RND*64)+1
3330 A(B1,B2)=TA
3340 REM * * START POSITION, SHIP * *
3350 S1=INT(RND*64)+1
3360 S2=INT(RND*64)+1
3370 IF S1=B1 OR S2=B2 THEN 3350
3380 A(S1,S2)=SH
3390 PEOPLE=0
3400 GH=0:GJ=0
3410 EVENT=0
3420 RETURN
3430 NEXT SOUND
3440 REM * * * * * * * * * *
3450 REM OPENING FRAME
3460 KEY OFF
3470 SCREEN 0,1
3480 COLOR 15,0,0
3490 WIDTH 40
3500 CLS
3510 LOCATE 5,16:PRINT "FAR INTO"
3520 LOCATE 7,11,0:PRINT "OUTER SPACE WE GO..."
3530 COLOR 10,0:LOCATE 10,9,0
3540 PRINT CHR$(213)+STRING$(21,205)+CHR$(184)
3550 LOCATE 11,9,0
3560 GOSUB 3730
3570 PRINT CHR$(179)+" ";:COLOR 28:PRINT "STAR BASE 2000";:COLOR 10:PRINT " "+CHR$(179)
3580 LOCATE 12,9,0
3590 PRINT CHR$(212)+STRING$(21,205)+CHR$(190)
3600 GOSUB 3730
3610 COLOR 14,0:LOCATE 17,7,0
3620 PRINT "Count down to adventure..."
3630 GOSUB 3730
3640 FOR T=10 TO 1 STEP -1
3650 PRINT T;
3660 GOSUB 3730:FOR Y=1 TO 40:NEXT Y
3670 NEXT T
3680 FOR Y=1 TO 400:NEXT Y
3690 COLOR 28:PRINT TAB(28);"Blast off!"
3700 FOR Y=40 TO 400 STEP 20:SOUND Y,1:NEXT Y
3710 RETURN
3720 REM * * * * * * * * * * *
3730 REM SOUND EFFECTS
3740 REM PLAY "MB164T255N=J":PLAY "FC#DD#EGF#GG#BA#BAACCC#AAAA#A#A#C"
3750 RETURN
WALLST.BAS
10 REM WALL STREET TRADER
20 GOSUB 1570:REM INITIALISE
30 CLS
40 CASH=CASH-INT(INFLAT*(CASH+VALUE)/10000):REM ATTENDANCE FEE, RELATED TO INFLATION AND NET WORTH
50 GOSUB 300:REM ENVIRONMENT
60 GOSUB 550:REM TRADING
70 GOSUB 1230:REM DIVIDENDS PAYMENTS
80 GOSUB 1300:REM SPLITS
90 GOSUB 1480:REM MARKET MOVEMENTS
100 IF CASH+VALUE>0 AND CASH+VALUE<100*1000 THEN 30
110 IF CASH+VALUE>=100*1000 THEN 150
120 PRINT :PRINT "Your net worth is now zero"
130 PRINT "You have failed on Wall Street !"
140 END
150 REM * * SUCCESS * *
160 PRINT :PRINT TAB(8);"Well done !"
170 PRINT :PRINT "You have succeeded in multiplying your"
180 PRINT "Starting stake of $10,000 by ten"
190 PRINT :PRINT "Here is your portfolio..."
200 VALUE=0
210 FOR J=1 TO 14
220 IF H(J) <>0 THEN PRINT LEFT$(N$(J),10);TAB(22);H(J);TAB(29);"$";H(J)*V(J):VALUE=VALUE+H(J)*V(J)
230 NEXT J
240 CASH=INT((CASH+0.5)*10)/10
250 PRINT TAB(12);">> CASH WORTH $"CASH
260 PRINT TAB(8);">> HOLDINGS WORTH $"VALUE
270 PRINT TAB(11);">> TOTAL WORTH $"VALUE+CASH
280 END
290 REM * * * * * * * * * * *
300 REM ENVIROMENT
310 REM * * * UNEMPLOYMENT * * *
320 IF UNEMPLOY>10 THEN MARKET=-1:A$="BEAR"
330 IF UNEMPLOY<5 THEN MARKET=1:A$="BULL"
340 IF RND>0.8 THEN 380
350 UNEMPLOY=INT((UNEMPLOY+UCHANGE+0.5)*10)/10
360 IF UNEMPLOY<3.7 THEN UCHANGE=-UCHANGE:UNEMPLOY=3.8
370 IF UNEMPLOY>13.6 THEN UCHANGE=-UNCHANGE:UNEMPLOY=13.5
380 PRINT "UNEMPLOYMENT -"LEFT$(STR$(UNEMPLOY),5)"%";TAB(25);"Market is"
390 IF INFLAT>9 THEN MARKET=-1:A$="BEAR"
400 IF INFLAT<4.5 THEN MARKET =1:A$="BULL"
410 REM * * INFLATION * *
420 IF RND>0.8 THEN 460
430 INFLAT=INT((INFLAT+ICHANGE+0.5)*10)/10
440 IF INFLAT<4 THEN INFLAT=4.1:ICHANGE=-ICHANGE
450 IF INFLAT>12 THEN INFLAT=11.9:ICHANGE=-ICHANGE
460 PRINT TAB(2);"Inflation -"LEFT$(STR$(INFLAT),5)"%";:COLOR 7:PRINT TAB(28);A$
470 COLOR 7
480 REM * * BULL/BEAR * *
490 IF RND<0.8 THEN RETURN
500 MARKET=-MARKET
510 IF A$="BULL" THEN A$="BEAR":RETURN
520 A$="BULL"
530 RETURN
540 REM * * * * * *
550 REM TRADING
560 GOSUB 1080
570 IF INKEY$<>"" THEN 570
580 PRINT "--> Do you wish to sell (A), Buy (B),"
590 PRINT " Stand Steady (C) or (Q) Quit ?"
600 R$=INKEY$
610 IF R$<>"A" AND R$<>"B" AND R$<>"C" AND R$<>"Q" THEN 600
620 COLOR 31
630 PRINT TAB(12);"OK"
640 SOUND 440,1
650 COLOR 7
660 IF R$="Q" THEN 190
670 IF R$="C" THEN RETURN
680 CLS:GOSUB 300:GOSUB 1080
690 IF R$="A" THEN 890
700 REM * * BUY * *
710 COLOR 7
720 PRINT "Enter stock number to buy, 0 to end";
730 INPUT WH
740 COLOR 7
750 IF WH=0 THEN RETURN
760 IF WH<1 OR WH>14 THEN 730
770 PRINT N$(WH)" at $"V(WH)"each"
780 PRINT "How many do you want";
790 INPUT HO
800 COLOR 31
810 IF HO*V(WH)>CASH THEN PRINT "Your Funds will not permit that":GOSUB 1860:GOTO 780
820 COLOR 31
830 PRINT ">> Transaction being processed <<"
840 COLOR 7
850 GOSUB 1860
860 CASH=CASH-V(WH)*HO
870 H(WH)=H(WH)+HO
880 GOTO 680
890 REM * * SELL * *
900 COLOR 7
910 PRINT "Which number to sell, O to end sale";
920 INPUT WH
930 COLOR 7
940 IF WH=0 THEN RETURN
950 IF H(WH)=0 THEN PRINT "You do not have any":GOSUB 1860:GOTO 910
960 PRINT "How many to sell";
970 INPUT HO
980 COLOR 28
990 IF HO>H(WH) THEN PRINT "You do not have that many":GOSUB 1860:GOTO 960
1000 COLOR 7
1010 PRINT N$(WH)" are worth $"V(WH) " each"
1020 PRINT ">> Transaction being processed <<"
1030 GOSUB 1860
1040 CASH=CASH+V(WH)*HO
1050 H(WH)=H(WH)-HO
1060 IF WH=0 THEN RETURN
1070 CLS:GOSUB 1080:GOTO 910
1080 VALUE=0
1090 FOR J=1 TO 14
1100 COLOR 7
1110 IF J<10 THEN PRINT " ";
1120 PRINT J;:COLOR 7:PRINT LEFT$(N$(J),12);:COLOR 7:PRINT " $";V(J);
1130 IF H(J)<>0 THEN PRINT TAB(24);H(J);TAB(30);"$";H(J)*V(J):VALUE=VALUE+H(J)*V(J)
1140 IF H(J)=0 THEN PRINT
1150 NEXT J
1160 COLOR 7
1170 PRINT TAB(16);"Net worth - $"CASH+VALUE
1180 COLOR 7
1190 PRINT "Cash Fund: $"CASH;TAB(23);" shares: $"VALUE
1200 COLOR 7
1210 RETURN
1220 REM * * * * * * * * * * * *
1230 REM DIVIDENDS PAYMENTS
1240 FOR J=1 TO 14
1250 IF H(J)<>0 THEN CASH=CASH+V(J)*H(J)*Y(J)/5200
1260 NEXT J
1270 CASH=INT(CASH*100)/100
1280 RETURN
1290 REM * * * * * * * * *
1300 REM STOCK SPLITS
1310 FOR X=1 TO 14
1320 IF V(X)>60 THEN GOSUB 1350
1330 NEXT X
1340 RETURN
1350 CLS
1360 V(X)=INT(V(X)/2)
1370 FOR U=1 TO 12
1380 COLOR INT(RND(1)*6+9)
1390 PRINT TAB(2*U);"*>"
1400 NEXT U
1410 COLOR 31
1420 PRINT N$(X);:COLOR 28:PRINT " Splits 2 to 1"
1430 COLOR 7
1440 GOSUB 1860:GOSUB 1860
1450 IF H(X)<>0 THEN H(X)=2*H(X)
1460 RETURN
1470 REM * * * * * * * * * * *
1480 REM MARKET MOVEMENTS
1490 IF RND>0.4 THEN RETURN
1500 M=INT(RND*10)+1
1510 FOR J=1 TO 14
1520 V(J)=V(J)+MARKET*F(J,M)
1530 IF V(J)<1 THEN V(J)=0
1540 NEXT J
1550 RETURN
1560 REM * * * * * * * * * *
1570 REM INITIALISATION
1580 RANDOMIZE VAL(RIGHT$(TIME$,2))
1590 GOSUB 1900:REM INTRO FRAME
1600 REM N$ - NAME OF STOCK
1610 REM Y - YIELD
1620 REM V - STARTING VALUES
1630 REM H - HOLDINGS
1640 REM F - CHANGES IN WORTH
1650 DIM N$(14),Y(14),V(14),H(14),F(14,10)
1660 UNEMPLOY=INT(3+RND*5)
1670 UCHANGE=RND
1680 INFLAT=INT(4+RND*5)
1690 ICHANGE=RND
1700 A$="BULL"
1710 CASH=10010
1720 MARKET=1
1730 FOR J=1 TO 14
1740 READ N$(J)
1750 READ Y(J)
1760 V(J)=INT(50+RND*10-RND*10)
1770 NEXT J
1780 REM STOCK INVESTMENTS
1790 FOR J=1 TO 14
1800 FOR K=1 TO 10
1810 READ F(J,K)
1820 NEXT K
1830 NEXT J
1840 RETURN
1850 REM * * * * * *
1860 REM DELAY
1870 FOR J=1 TO 1000:NEXT J
1880 RETURN
1890 REM * * * * * * * *
1900 REM INTRO FRAME
1910 KEY OFF
1920 SCREEN 0,1
1930 COLOR 15,1,1
1940 WIDTH 40
1950 CLS
1960 LOCATE 5,12
1970 PRINT "Is the bull market"
1980 LOCATE 7,9,0:PRINT " living on borrowed time ?"
1990 COLOR 12,0:LOCATE 10,9,0
2000 PRINT CHR$(213)+STRING$(21,205)+CHR$(184)
2010 LOCATE 11,9,0
2020 PRINT CHR$(179)+ " ";:COLOR 31:PRINT "Wall Street Trader";:COLOR 12:PRINT ""+CHR$(179)
2030 LOCATE 12,9,0
2040 PRINT CHR$(212)+STRING$(21,205)+CHR$(190)
2050 FOR J=4 TO 36
2060 COLOR INT(RND*6+9)
2070 FOR K=1 TO INT(RND*10)
2080 LOCATE (24-K),J
2090 PRINT CHR$(219)
2100 NEXT K
2110 NEXT J
2120 COLOR 15,1,1
2130 FOR J=1 TO 3
2140 PLAY "O=J; L32 T32 ML"
2150 PLAY "B G A D.. P32 D A B G.. P32"
2160 NEXT J
2170 RETURN
2180 DATA "Candelbra Electric",5
2190 DATA "Beggaman Banking Corp.",1
2200 DATA "High Carbon Smelters Inc.",3
2210 DATA "Goodlooker Apparel Inc.",2
2220 DATA "Reimer Computers Inc.",3
2230 DATA "Aerosoar Industrial",6
2240 DATA "Ryder Truckers Inc.",2
2250 DATA "Pink Box Housing",0
2260 DATA "Clarendon Chemantic",0
2270 DATA "Arcane Explorations",7
2280 DATA "Gadget Goodies Inc.",4
2290 DATA Pintpot Forklifts Inc.",0
2300 DATA "Teleamerican Comm. Inc.",1
2310 DATA "Fireball Bonds",8
2320 REM * * BULL DATA * *
2330 REM CANDELBRA
2340 DATA 3,3,0,1,3,-8,2,3,12,-6
2350 REM BEGGAMAN
2360 DATA 4,2,4,0,4,3,2,1,2,3
2370 REM HIGH CARBON
2380 DATA 1,-1,1,0,0,-1,-2,1,-1,0
2390 REM GOOD LOOKER
2400 DATA 12,14,-10,-13,0,8,-7,12,12,10
2410 REM REIMER
2420 DATA 6,5,6,-1,5,6,8,0,6,5
2430 REM AREOSTAR
2440 DATA 12,-20,9,-20,0,-15,20,3,-19,1
2450 REM RYDER
2460 DATA 6,5,4,-3,4,0,-9,4,3,2
2470 REM PINK BOX
2480 DATA 3,2,1,0,2,1,3,2,1,3
2490 REM CLAREDON
2500 DATA 15,-10,15,-20,3,-19,20,-3,-4,10
2510 REM ARCANE
2520 DATA 1,0,2,0,1,0,2,0,2,0
2530 REM GADGET
2540 DATA 5,4,3,-1,-2,0,-4,2,-5,6
2550 REM PINKPOT
2560 DATA 7,6,5,-4,-3,-1,12,3,2,0
2570 REM TELEAMERICAN
2580 DATA 1,2,1,0,-1,-2,0,1,2,-1
2590 REM FIREBALL
2600 DATA 0,0,0,0,0,0,0,0,0,0
2610 REM * * * * * * * * *
Directory of PC-SIG Library Disk #0450
Volume in drive A has no label
Directory of A:\
DICE BAS 5137 1-01-80 7:02a
ELECTION BAS 13927 3-06-85 9:52p
FILES450 TXT 881 11-16-85 2:35p
FUN BAS 21766 1-01-80 1:27a
MONEYMKT BAS 4333 2-26-85 7:26p
PRESCH BAS 29324 1-01-80 4:52a
RIEMAN BAS 17590 1-01-80 12:17a
ROBOTNKA BAS 1735 10-08-85 2:21p
STAR2001 BAS 9697 2-28-85 8:02p
WALLST BAS 6031 6-20-85 10:46a
10 file(s) 110421 bytes
47104 bytes free