Listing of file='PEDESTRI' on disk='vmedia/games-droz00.wvd.zip'
# Sector 422, program filename = 'PEDESTRI'
0010 REM PEDESTRI - PEDESTRIAN WALKER - AUTHOR UNKNOWN REC'D 9/5/79
0011 PRINT HEX(030A0A0A0A)
0020 PRINT TAB(10);"IT IS DANGEROUS FOR A PEDESTRIAN TO CROSS EVEN"
0030 PRINT TAB(10);"AN ONE-WAY STREET !! --- BUT, HE HAS A CHANCE !!"
0040 FOR I=1 TO 1000
: NEXT I
0050 F=40
: SELECT P
: SELECT PRINT 005(80)
0060 FOR J=1 TO 15
: PRINTUSING 630
: NEXT J
0070 F=35
: REM **** F = PROBABLE DISTANCE BETWEEN CARS *******
0080 X=INT(RND(1)*F+1)
0090 Y=INT(RND(2)*11+1)
0100 FOR I=1 TO X
: PRINTUSING 630
: GOSUB 930
: NEXT I
0110 IF Y<4 THEN 360
0120 IF Y<7 THEN 250
0130 IF Y>9 THEN 470
0140 REM ******** CAR 3 *********
0150 PRINTUSING 650
0160 PRINTUSING 670
0170 PRINTUSING 680
0180 PRINTUSING 690
0190 FOR J=1 TO 2
: PRINTUSING 700
: NEXT J
0200 PRINTUSING 680
0210 PRINTUSING 670
0220 PRINTUSING 660
0230 IF Z<42 THEN 60
: IF Z>53 THEN 60
0240 GOTO 1070
0250 REM ******** CAR 2 *********
0260 PRINTUSING 710
0270 PRINTUSING 730
0280 PRINTUSING 740
0290 PRINTUSING 750
0300 FOR J=1 TO 2
: PRINTUSING 760
: NEXT J
0310 PRINTUSING 740
0320 PRINTUSING 730
0330 PRINTUSING 720
0340 IF Z<25 THEN 60
: IF Z>36 THEN 60
0350 GOTO 1080
0360 REM ******** CAR 1 *********
0370 PRINTUSING 770
0380 PRINTUSING 790
0390 PRINTUSING 800
0400 PRINTUSING 810
0410 FOR J=1 TO 2
: PRINTUSING 820
: NEXT J
0420 PRINTUSING 800
0430 PRINTUSING 790
0440 PRINTUSING 780
0450 IF Z<8 THEN 60
: IF Z>19 THEN 60
0460 GOTO 1090
0470 REM ******** TRUCK ********
0480 PRINTUSING 830
0490 PRINTUSING 840
0500 PRINTUSING 850
0510 PRINTUSING 860
0520 PRINTUSING 870
0530 PRINTUSING 910
0540 PRINTUSING 910
0550 FOR J=1 TO 10
: PRINTUSING 880
: NEXT J
0560 PRINTUSING 890
0570 PRINTUSING 900
0580 PRINTUSING 890
0590 PRINTUSING 910
0600 PRINTUSING 920
0610 IF Z<20 THEN 60
: IF Z>58 THEN 60
0620 GOTO 1100
0630 %***** *****
0640 % *****
0650 %***** .-------. *****
0660 %***** '-------' *****
0670 %***** () MMM () *****
0680 %***** <>=MMMMM=<> *****
0690 %***** () MMMMM () *****
0700 %***** MMMMM *****
0710 %***** .-------. *****
0720 %***** '-------' *****
0730 %***** () MMM () *****
0740 %***** <>=MMMMM=<> *****
0750 %***** () MMMMM () *****
0760 %***** MMMMM *****
0770 %***** .-------. *****
0780 %***** '-------' *****
0790 %***** () MMM () *****
0800 %***** <>=MMMMM=<> *****
0810 %***** () MMMMM () *****
0820 %***** MMMMM *****
0830 %***** .---------------------------------. *****
0840 %***** MMMMMMMMMMMMMMMMMMMMMMMMMMM *****
0850 %***** () MMMMMMMMMMMMMMMMMMMMMMMMMMMMM () *****
0860 %***** <>=MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM=<> *****
0870 %***** () MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM () *****
0880 %***** M M *****
0890 %***** () M M () *****
0900 %***** <>=M M=<> *****
0910 %***** MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM *****
0920 %***** '---------------------------------' *****
0930 PRINT HEX(01),"PEDESTRIAN=";F1;" POINTS"
0940 PRINTUSING 640
: F2=B1+B2+B3+B4
0950 PRINT "C A R S =";F2;" POINTS"
0960 PRINTUSING 640
0970 PRINT HEX(0A0A0A)
: PRINT TAB(Z);
0980 Z=Z+1
0990 IF Z<60 THEN 1000
: Z=5
: F1=F1+1
1000 PRINT " O";
: PRINT HEX(0A080808);" /Y";
: PRINT HEX(5C0A08080808);
1010 IF Z-INT(Z/2)*2=0 THEN 1040
1020 PRINT " /!";
: PRINT HEX(0A08080808);
: PRINT " < L"
1030 GOTO 1050
1040 PRINT " (";
: PRINT HEX(200A08080808082020204C205C)
1050 PRINT HEX(0D0A0A0A)
1060 RETURN
1070 B3=B3+1
: Q=3
: GOTO 1110
1080 B2=B2+1
: Q=2
: GOTO 1110
1090 B1=B1+1
: Q=1
: GOTO 1110
1100 B4=B4+1
: Q=4
1110 FOR I=1 TO 3
: PRINTUSING 630
: NEXT I
1120 ON Q GOTO 1130,1150,1170,1190
1130 PRINTUSING 1290
: PRINTUSING 630
: PRINTUSING 1300,B1
1140 GOTO 1200
1150 PRINTUSING 1270
: PRINTUSING 630
: PRINTUSING 1280,B2
1160 GOTO 1200
1170 PRINTUSING 1250
: PRINTUSING 630
: PRINTUSING 1260,B3
1180 GOTO 1200
1190 PRINTUSING 1310
: PRINTUSING 630
: PRINTUSING 1320,B4
1200 SELECT P2
1210 FOR I=1 TO 250
: NEXT I
1220 FOR I=1 TO 15
: PRINTUSING 630
: NEXT I
1230 FOR I=1 TO 50
: NEXT I
1240 SELECT P
: Z=3
: GOTO 60
1250 %***** *YOU HIT HIM CAR 3* *****
1260 %***** YOUR HAVE ## POINT *****
1270 %***** *YOU HIT HIM CAR 2* *****
1280 %***** YOU HAVE ## POINT *****
1290 %***** *YOU HIT HIM CAR 1* *****
1300 %***** YOU HAVE ## POINT *****
1310 %***** * YOU HIT HIM MR. TRUCK-DRIVER * *****
1320 %***** YOUR POINTS ARE NOW ## *****