mirror of
https://github.com/rfivet/BCG101.git
synced 2025-07-26 11:24:36 -04:00
CAN-AM: - Add missing letters on column 85 in original.
- Single player mode testable on RSTS/E. - Width set to 132 columns before listing capture.
This commit is contained in:
parent
7ccc5b3fe3
commit
a4f0a4dad2
@ -68,13 +68,13 @@
|
||||
770 REM WE HAVE JUST LEARNED FOREIGN LANGUAGES
|
||||
780 DATA WILDMAN WILLY,HOTSHOT HARRY,SLOWPOKE SAM 'NAMES OF DRIVERS WHO COMPETE AGAINST ONLY ONE PERSON. (AUTO-PILOTS)
|
||||
790 MAT READ Q$(3) 'NAME ARRAY
|
||||
800 DATA -2.9,-2.9,-5 'AMT. SPEED TO BE SUBTRACTED FROM AUTO-PILOT' SPEEDS
|
||||
800 DATA -2.9,-2.9,-5 'AMT. SPEED TO BE SUBTRACTED FROM AUTO-PILOT'S SPEEDS
|
||||
810 MAT READ Q(3)
|
||||
820 MAT READ M$(3) 'READ NAMES OF TYPES OF ROADWAY
|
||||
830 READ X$ 'DEATH MESSAGE
|
||||
840 INPUT A$ 'RESPONSE TO DO YOU KNOW WHAT YOU'RE DOING?
|
||||
850 IF A$>"O9" THEN 890 'IF BETWEEN O1 AND O9, THEN MULTI-TERMINAL
|
||||
860 IF A$<"O1" THEN 890
|
||||
850 IF A$>"09" THEN 890 'IF BETWEEN 01 AND 09, THEN MULTI-TERMINAL
|
||||
860 IF A$<"01" THEN 890
|
||||
870 LET O9=VAL(A$)
|
||||
880 GOTO 960
|
||||
890 LET O$="" 'SET THINGS UP FOR SINGLE TERMINAL
|
||||
@ -107,7 +107,7 @@
|
||||
1160 NEXT A
|
||||
1170 PRINT O$(10);"YOUR MAX. SPEED IS 200 MPH. TO SEE STANDINGS INPUT"
|
||||
1180 PRINT "0 AS YOUR SPEED"
|
||||
1190 PRINT O$(0);"WOULD YOU LIKE TO SEE THE COURSE";CHR$(63*SGN(O9));O$; 'PRINT ? IF ULT-TERM, OTHERWISE DON'T
|
||||
1190 PRINT O$(0);"WOULD YOU LIKE TO SEE THE COURSE";CHR$(63*SGN(O9));O$; 'PRINT ? IF MULT-TERM, OTHERWISE DON'T
|
||||
1200 MAT INPUT A$
|
||||
1210 PRINT O$(10);
|
||||
1220 LET A$=A$(NUM)
|
||||
@ -410,7 +410,7 @@ GENTLEMEN, START YOUR ENGINES! THE GREEN GOES DOWN AND"
|
||||
4140 ON SGN(T(A)-T(G))+2 GOTO 4150,4170,4190 'BUSINESS PART
|
||||
4150 PRINT T(G)-T(A);"SECONDS BEHIND YOU" 'GOOD NEWS
|
||||
4160 GOTO 4200
|
||||
4170 PRINT " RIGHT BESIDE YOU." SO SO
|
||||
4170 PRINT " RIGHT BESIDE YOU." 'SO SO
|
||||
4180 GOTO 4200
|
||||
4190 PRINT T(A)-T(G);"SECONDS AHEAD OF YOU." 'BAD NEWS
|
||||
4200 NEXT G
|
||||
|
||||
@ -23,6 +23,7 @@ while 1 {
|
||||
|
||||
expect "Password: " { send "user\r" }
|
||||
#expect "Ready\r\n\n" { send "NOEXTEND\r" }
|
||||
expect "Ready\r\n\n" { send "SET WIDTH 132\r" }
|
||||
expect "Ready\r\n\n" {
|
||||
if { $file_f } {
|
||||
set file [open $argv]
|
||||
|
||||
@ -48,15 +48,13 @@
|
||||
570 ! 12/27/72--TO REWORD INSTRUCTIONS.
|
||||
580 !
|
||||
590 !* * * * * * * * * * * * * * * * * * * * * *
|
||||
600
|
||||
610 REM PLEASE REFER ALL BUGS OR COMMENTS TO DIANE
|
||||
620 REM MATHER, PROGRAM LIBRARIAN, 105 KIEWIT
|
||||
630
|
||||
640 LET O(0)=2 !STANDARD MOTIF HEADER
|
||||
650 LET O(1) = ASC(SOH)
|
||||
660 LET O(2) = ASC(N)
|
||||
650 LET O(1) = 1 !ASCII(SOH)
|
||||
660 LET O(2) = ASCII("N")
|
||||
670 CHANGE O TO O1$
|
||||
680 LET O(2) = ASC(Q)
|
||||
680 LET O(2) = ASCII("Q")
|
||||
690 CHANGE O TO O$
|
||||
700 PRINT O1$;O$;CHR$(13);"XX ARE YOU FAMILIAR WITH THE WAY THIS GAME WORKS";
|
||||
710 DATA NON,OUI,"PARLEZ-VOUS ANGLAIS?",NEIN,JA,"SPRECHEN SIE ENGLISCH?"
|
||||
@ -70,13 +68,13 @@
|
||||
781 !NAMES OF DRIVERS WHO COMPETE AGAINST ONLY ONE PERSON. (AUTO-PILOTS)
|
||||
790 MAT READ Q$(3) !NAME ARRAY
|
||||
800 DATA -2.9,-2.9,-5
|
||||
801 !AMT. SPEED TO BE SUBTRACTED FROM AUTO-PILOT' SPEEDS
|
||||
801 !AMT. SPEED TO BE SUBTRACTED FROM AUTO-PILOT'S SPEEDS
|
||||
810 MAT READ Q(3)
|
||||
820 MAT READ M$(3) !READ NAMES OF TYPES OF ROADWAY
|
||||
830 READ X$ !DEATH MESSAGE
|
||||
840 INPUT A$ !RESPONSE TO DO YOU KNOW WHAT YOU'RE DOING?
|
||||
850 IF A$>"O9" THEN 890 !IF BETWEEN O1 AND O9, THEN MULTI-TERMINAL
|
||||
860 IF A$<"O1" THEN 890
|
||||
850 IF A$>"09" THEN 890 !IF BETWEEN 01 AND 09, THEN MULTI-TERMINAL
|
||||
860 IF A$<"01" THEN 890
|
||||
870 LET O9=VAL(A$)
|
||||
880 GOTO 960
|
||||
890 LET O$="" !SET THINGS UP FOR SINGLE TERMINAL
|
||||
@ -86,10 +84,10 @@
|
||||
930 INPUT O
|
||||
940 LET Q(3)=Q(3)*O
|
||||
950 GOTO 1050
|
||||
960 LET O(2) = ASC(A) !CREATE O$ ARRAY FOR MULTI-TERMINAL
|
||||
960 LET O(2) = ASCII("A") !CREATE O$ ARRAY FOR MULTI-TERMINAL
|
||||
970 CHANGE O TO O$(10) !STANDARD MOTIF
|
||||
980 FOR I = 0 TO O9
|
||||
990 LET O(2) = ASC(0)+I
|
||||
990 LET O(2) = ASCII("0")+I
|
||||
1000 CHANGE O TO O$(I)
|
||||
1010 NEXT I
|
||||
1020 PRINT O$(10);"YOU MAY 'DRAFT' (SLIPSTREAM) OFF OF ANY CAR AHEAD"
|
||||
@ -109,7 +107,7 @@
|
||||
1160 NEXT A
|
||||
1170 PRINT O$(10);"YOUR MAX. SPEED IS 200 MPH. TO SEE STANDINGS INPUT"
|
||||
1180 PRINT "0 AS YOUR SPEED"
|
||||
1190 PRINT O$(0);"WOULD YOU LIKE TO SEE THE COURSE";CHR$(63*SGN(O9));O$; !PRINT ? IF ULT-TERM, OTHERWISE DON'T
|
||||
1190 PRINT O$(0);"WOULD YOU LIKE TO SEE THE COURSE";CHR$(63*SGN(O9));O$; !PRINT ? IF MULTI-TERM, OTHERWISE DON'T
|
||||
1200 MAT INPUT A$
|
||||
1210 PRINT O$(10);
|
||||
1220 LET A$=A$(NUM)
|
||||
@ -132,7 +130,7 @@
|
||||
1390 PRINT "^";TAB(16);"______/"
|
||||
1400 PRINT"^8";TAB(15);"(5 E"
|
||||
1410 PRINT "^";TAB(16);"\"
|
||||
1420 PRINT "\";TAB(17);"-----------)";CHR$(13);TAB(20);"/PITS\"
|
||||
1420 PRINT "\";TAB(17);"---/PITS\--)"
|
||||
1430 PRINT " \7";TAB(14);"G";TAB(21);"F^";TAB(27);"6I"
|
||||
1440 PRINT" \_________________________/"
|
||||
1450 LET N=RND*3+1
|
||||
@ -220,9 +218,7 @@
|
||||
2270 LET A$="YES"
|
||||
2280 RETURN
|
||||
2290 STOP
|
||||
2300 !------- --------
|
||||
|
||||
|
||||
2300 !CONTROL FUNCTION
|
||||
2310 DEF FNA(A$,R,B,C,D) !KIND TRACK, MAX. SPEED, ADHESION FUDGE FACTOR, LENGTH
|
||||
2320 !ASC(LETTER FOLLOWING KIND OF TRACK)
|
||||
2330 IF G1=1 THEN 4250 !ALL DEAD?
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user