|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800)
Types: TextFile
Names: »CARS.BAS«
└─⟦69a509965⟧ Bits:30005211 CR8 BASIC Games
└─ ⟦this⟧ »CARS.BAS«
1 REM PROGRAM CARS.BAS 5 DIM A$(10),B$(2) 10 PRINT "YOU MAY MAKE AN ENQUIRY ABOUT REG. NO., MAKE OR COLOUR." 20 PRINT "TWO ENQUIRIES CAN BE MADE AT ONE TIME. EG. COLOUR/MAKE" 30 OPEN "INFO.DAT" FOR INPUT AS FILE #1 31 OPEN "TEMP.DAT" FOR INPUT AS FILE #2 40 INPUT #1,N1 50 INPUT #2,N2 60 LET N=N1+N2 80 FOR I=1 TO N1 90 INPUT #1,A$(I) 100 NEXT I 110 FOR I=N1+1 TO N 120 INPUT #2,A$(I) 130 NEXT I 140 LET E$="IS ENQUIRY" 150 LET C$=" COLOUR" 160 LET M$=" MAKE" 170 LET R$=" REG. NO." 180 LET Y$="YES" 190 LET Z$="NO" 200 PRINT "HOW MANY ENQUIRIES 1 OR 2?", 210 INPUT K 220 IF K=1 THEN 250 225 IF K=2 THEN 250 230 PRINT "PLEASE TYPE '1' OR '2'" 240 GO TO 200 250 LET X$=" " 260 FOR L=1 TO K 270 IF X$=R$ THEN 380 280 PRINT E$;R$;"?", 290 INPUT Q$ 300 IF Q$=Z$ THEN 380 310 IF Q$=Y$ THEN 340 320 GOSUB 890 330 GO TO 280 340 LET U(L)=1 350 LET V(L)=9 360 LET X$=R$ 370 GO TO 620 380 IF X$=M$ THEN 490 390 PRINT E$;M$;"?", 400 INPUT Q$ 410 IF Q$=Z$ THEN 490 420 IF Q$=Y$ THEN 450 430 GOSUB 890 440 GO TO 390 450 LET U(L)=10 460 LET V(L)=26 470 LET X$=M$ 480 GO TO 620 490 IF X$=C$ THEN 600 500 PRINT E$;C$;"?", 510 INPUT Q$ 520 IF Q$=Z$ THEN 600 530 IF Q$=Y$ THEN 560 540 GOSUB 890 550 GO TO 500 560 LET U(L)=27 570 LET V(L)=39 580 LET X$=C$ 590 GO TO 620 600 PRINT "INPUT ERROR" 610 GO TO 270 620 PRINT "INPUT";X$, 630 INPUT B$(L) 640 LET F(L)=0 650 NEXT L 660 IF K=2 THEN 680 670 LET F(2)=1 680 FOR I=1 TO N 690 FOR L=1 TO K 700 LET C(L)=LEN(B$(L)) 710 FOR J=U(L) TO V(L)-C(L) 720 IF B$(L)=SEG$(A$(I),J,J+C(L)-1) THEN 750 730 NEXT J 740 GO TO 790 750 LET F(L)=1 760 NEXT L 770 IF F(1)<>0 THEN 780 775 IF F(2)=0 THEN 790 780 PRINT A$(I) 790 NEXT I 800 IF F(1)<>1 THEN 810 805 IF F(2)=1 THEN 820 810 PRINT "NO RECORD OF THIS VEHICLE" 820 PRINT 830 PRINT "ANY OTHER ENQUIRIES?", 840 INPUT Q$ 850 IF Q$=Y$ THEN 200 860 IF Q$=Z$ THEN 920 870 GOSUB 890 880 GO TO 830 890 PRINT "PLEASE TYPE 'YES' OR 'NO'" 900 PRINT 910 RETURN 920 END «eof»