-
Notifications
You must be signed in to change notification settings - Fork 3
/
Copy pathPIZZADASH.BAS
1050 lines (1050 loc) · 40.7 KB
/
PIZZADASH.BAS
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
10 VDU 23,1,0
20 CLS
30 REM ***********VARS********************
40 :
50 REM ***********ARRAYS*******************
60 DIM HIGHWAY%(2,119)
70 DIM CARX%(2)
80 DIM CARY%(2)
90 CARY%(0) = 90 : CARY%(1) = 110 : CARY%(2) = 125
100 DIM TRUCKY%(2)
110 TRUCKY%(0)=95 : TRUCKY%(1)=115 : TRUCKY%(2)=130
120 DIM POTHLY%(2)
130 POTHLY%(0)=104 : POTHLY%(1)=124 : POTHLY%(2)=139
140 DIM PIZZAY%(2)
150 PIZZAY%(0)=105 : PIZZAY%(1)=125 : PIZZAY%(2)=140
160 DIM MTRBKY%(2)
170 MTRBKY%(0)=101 : MTRBKY%(1)=121 : MTRBKY%(2)=136
180 DIM TAXIY%(2)
190 TAXIY%(0)=100 : TAXIY%(1)=120 : TAXIY%(2)=135
200 :
210 REM ************************************
220 :
230 PROC_STARTSCREEN
240 PROC_POPHIGHWAY
250 PROC_POPCARX
260 IF LRESTER%=1 THEN PROC_DRWSKY1
270 IF LRESTER%=2 THEN PROC_DRWSKY2
280 IF LRESTER%=3 THEN PROC_DRWSKY3
290 PROC_DRWYELLRD
300 PROC_DRWREDRD
310 PROC_DRWGRNRD
320 PROC_DRWTTRUCK
330 PROC_DRWCAR
340 PROC_DRWFEARARI
350 PROC_DRWPOTHOLE
360 PROC_DRWFEARJMP
370 PROC_DRWPIZZA
380 PROC_DRWSPLSION
390 PROC_DRWMOTORBIKE
400 PROC_DRWTAXI
410 :
420 VDU 23,27,7,NUMOFSPRITE%
430 REPEAT
460 FOR I% = 0 TO 2
470 VDU 23,27,4,I%,23,27,13,CARX%(I%);CARY%(I%);
480 CARX%(I%) = CARX%(I%) - RDRATE%
490 NEXT
500 VDU 23,27,4,4,23,27,13,TRUCKX%;TRKY%;
510 VDU 23,27,4,5,23,27,13,POTHLX%;POTY%;
520 VDU 23,27,4,6,23,27,13,PIZZAX%;PIZY%;
530 VDU 23,27,4,8,23,27,13,MTRBKX%;MBKY%;
540 VDU 23,27,4,9,23,27,13,TAXIX%;TAXY%;
550 TRUCKX% = TRUCKX% - RDRATE%
560 POTHLX% = POTHLX% - RDRATE%
570 PIZZAX% = PIZZAX% - RDRATE%
580 MTRBKX% = MTRBKX% - RDRATE%
590 TAXIX% = TAXIX% - RDRATE%
600 A% = INKEY(2)
610 IF FERJMP%=0 THEN PROC_MVPLAYA
620 VDU 23,27,4,3,23,27,13,60;PLAYAY%-FERJMP%;
630 IF FERJMP%>0 THEN PROC_JMPJMP
640 IF A%=32 AND FERJMP%=0 THEN FERJMP%=FERJMP%+1
650 VDU 23,27,15
660 ROADCOUNT%=ROADCOUNT%+1
670 IF ROADCOUNT%=RDBLOCK% THEN PROC_EXHIGHWAY
680 PROC_DETECTPTHL
690 PROC_DETECTTRK
700 PROC_DETECTCAR
710 PROC_DETECTPIZZA
720 PROC_DETECTMTRBK
730 PROC_DETECTTAXI
740 UNTIL A%=81
744 LRESTER%=0
750 PROC_STARTSCREEN
760 END
770 :
780 REM ***********CRASH******************
790 DEF PROC_CRASH
800 SOUND 0,-12,45,2
810 SOUND 0,-12,41,2
820 SOUND 0,-12,33,4
830 VDU 23,27,4,7,23,27,13,80;PLAYAY%-8;
840 FOR I%=0 TO 4
850 VDU 23,27,10,I%,23,27,11,23,27,15
860 Z%=INKEY(20)
870 NEXT
880 VDU 23,27,12
890 LSCREE%=LSCREE%-5 : CARPSD%=0
900 PROC_POPHIGHWAY
910 PROC_POPCARX
920 VDU 31,1,22 : PRINT"SCORE "
930 ENDPROC
940 :
950 REM ***********DETECTPTHL*************
960 DEF PROC_DETECTPTHL
970 IF FERJMP%=0 THEN CRSH%=CRSH%+1
980 IF POTHLX%-84<1 AND POTHLX%-84>-30 THEN CRSH%=CRSH%+1
990 IF PLAYAY%-POTY%=1 THEN CRSH% = CRSH%+1
1000 IF CRSH% = 3 THEN PROC_CRASH
1010 CRSH%=0
1020 ENDPROC
1030 :
1040 REM ***********DETECTTRK*************
1050 DEF PROC_DETECTTRK
1060 IF TRUCKX%-84<1 AND TRUCKX%-84>-30 THEN CRSH%=CRSH%+1
1070 IF PLAYAY%-TRKY%=10 THEN CRSH% = CRSH%+1
1080 IF CRSH% = 2 THEN PROC_CRASH
1090 CRSH%=0
1100 ENDPROC
1110 :
1120 REM ***********DETECTPIZZA***********
1130 DEF PROC_DETECTPIZZA
1140 IF PIZY%-PLAYAY% = 0 THEN CRSH%=CRSH%+1
1150 IF PIZZAX%-84<1 AND PIZZAX%-84>-15 THEN CRSH%=CRSH%+1
1160 IF CRSH%=2 THEN VDU 23,27,4,6,23,27,12
1170 IF CRSH%=2 CARPSD% = CARPSD% + 5
1180 IF CRSH%=2 THEN SOUND 0,-12,60,2
1190 CRSH%=0
1200 ENDPROC
1210 :
1220 REM ***********DECTECTMTRBK**********
1230 DEF PROC_DETECTMTRBK
1240 IF PLAYAY%-MBKY%=4 THEN CRSH%=CRSH%+1
1250 IF MTRBKX%-84<1 AND MTRBKX%-84>-15 THEN CRSH%=CRSH%+1
1260 IF CRSH%=2 THEN PROC_CRASH
1270 CRSH%=0
1280 ENDPROC
1290 :
1300 REM ***********DETECTTAXI************
1310 DEF PROC_DETECTTAXI
1320 IF PLAYAY%-TAXY%=5 THEN CRSH%=CRSH%+1
1330 IF TAXIX%-84<1 AND TAXIX%-84>-15 THEN CRSH%=CRSH%+1
1340 IF CRSH%=2 THEN PROC_CRASH
1350 CRSH%=0
1360 :
1370 REM ***********DETECTCAR*************
1380 DEF PROC_DETECTCAR
1390 FOR I% = 0 TO 2
1400 IF CARX%(I%)-84<1 AND CARX%(I%)-84>-30 THEN CRSH%=CRSH%+1
1410 IF PLAYAY%-CARY%(I%) = 15 THEN CRSH%=CRSH%+2
1420 IF CRSH%=1 THEN CARPSD%=CARPSD%+1
1430 VDU 31,1,22 : PRINT"SCORE ";CARPSD%
1440 IF CRSH%=3 THEN PROC_CRASH
1450 CRSH%=0
1460 NEXT
1470 ENDPROC
1480 :
1490 REM ************MVPLAYA****************
1500 DEF PROC_MVPLAYA
1510 IF A%=10 AND PLAYAY% = 125 THEN PLAYAY% = 140
1520 IF A%=11 AND PLAYAY% = 125 THEN PLAYAY% = 105
1530 IF A%=10 AND PLAYAY% = 105 THEN PLAYAY% = 125
1540 IF A%=11 AND PLAYAY% = 140 THEN PLAYAY% = 125
1550 WHEELSPIN%=WHEELSPIN%+1
1560 IF WHEELSPIN%=1 THEN VDU 23,27,4,3,23,27,10,1
1570 IF WHEELSPIN%=2 THEN VDU 23,27,4,3,23,27,10,0
1580 IF WHEELSPIN%=2 THEN WHEELSPIN%=0
1590 ENDPROC
1600 :
1610 REM ************STARTSCREEN************
1620 DEF PROC_STARTSCREEN
1625 PROC_INITVARS
1630 REPEAT
1640 MODE 1
1650 MODE 2
1670 FOR I%=0 TO 10
1680 FOR J%=0 TO 8
1690 X%=I%*128
1700 G%=J%*128
1710 GCOL 0,56
1720 MOVE X%,G% : MOVE X%+128,G%
1730 PLOT 80,X%+128,G%+128
1740 NEXT
1750 NEXT
1760 VDU 23,27,0,15,23,27,1,10;10;
1770 FOR I%=1 TO 100
1780 VDU 155+I%,255-I%,0+I%,255
1790 NEXT
1800 FOR I%=0TO31
1810 VDU 23,27,3,I%*10;0;
1820 VDU 23,27,3,I%*10;190;
1830 NEXT
1840 PROC_DRWTTBL
1850 PROC_DRWTITCAR
1860 PRINT TAB(8,19)"SELECT LEVEL (1-3)":
1870 PRINT TAB(8,21)"(C)ONTROLS"
1880 Z%=GET
1890 IF Z%=49 THEN LRESTER%=1
1900 IF Z%=50 THEN LRESTER%=2
1910 IF Z%=51 THEN LRESTER%=3
1920 IF Z%=67 THEN PROC_CONTROLS
1930 UNTIL LRESTER%<>0
1940 ENDPROC
1950 :
1960 REM ************CONTROLS***************
1970 DEF PROC_CONTROLS
1980 COLOUR 128 : CLS
1981 PRINT TAB(4,4) "Coded 100% on hardware and paper."
1982 PRINT TAB(4,5) " NicK Pratt June 2023."
1983 PRINT TAB(4,6) "A game described as 'meh' by a"
1984 PRINT TAB(4,7) "14 year boy, and frankly I "
1985 PRINT TAB(4,8) "couldn't agree more. "
1986 PRINT TAB(4,9) ""
1987 PRINT TAB(4,10) ""
1990 PRINT TAB(8,12) "UP ARROW : MOVE UP"
2000 PRINT TAB(8,13) "DOWN ARROW : MOVE DOWN"
2010 PRINT TAB(8,14) "SPACE : JUMP "
2020 PRINT TAB(8,15) "Q : QUIT TO TITLE SCREEN"
2021 PRINT TAB(0,18) "ps. you can only jump the weird block"
2030 Z%=GET
2040 ENDPROC
2050 REM ************DRWFEARJMP*************
2060 DEF PROC_DRWFEARJMP
2070 RESTORE 6980
2080 VDU 23,27,0,4
2090 VDU 23,27,1,30;15;
2100 FOR I% = 1 TO 450
2110 READ B%
2120 IF B% = 0 THEN VDU B%,B%,B%,B%
2130 IF B% = 1 THEN VDU 255,0,0,255
2140 IF B% = 2 THEN VDU 0,0,0,255
2150 IF B% = 3 THEN VDU 255,255,255,255
2160 IF B% = 4 THEN VDU 255,128,0,255
2170 NEXT
2180 VDU 23,27,4,3,23,27,6,4
2190 ENDPROC
2200 :
2210 REM ************DRWFEARARI*************
2220 DEF PROC_DRWFEARARI
2230 RESTORE 6560
2240 FOR D%=2 TO 3
2250 VDU 23,27,0,D%
2260 VDU 23,27,1,28;12;
2270 FOR I% = 1 TO 336
2280 READ B%
2290 IF B% = 0 THEN VDU B%,B%,B%,B%
2300 IF B% = 1 THEN VDU 255,0,0,255
2310 IF B% = 2 THEN VDU 0,0,0,255
2320 IF B% = 3 THEN VDU 255,255,255,255
2330 IF B% = 4 THEN VDU 255,128,0,255
2340 NEXT
2350 VDU 23,27,4,3,23,27,6,D%,23,27,11
2360 NEXT
2370 ENDPROC
2380 :
2390 REM ************DRWCAR*****************
2400 DEF PROC_DRWCAR
2410 RESTORE 6290
2420 VDU 23,27,0,1
2430 VDU 23,27,1,31;27;
2440 FOR I%=1 TO 837
2450 READ B%
2460 IF B% = 0 THEN VDU B%,B%,B%,B%
2470 IF B% = 1 THEN VDU 102,0,102,255
2480 IF B% = 3 THEN VDU 0,0,0,255
2490 IF B% = 2 THEN VDU 255,153,204,255
2500 IF B% = 4 THEN VDU 51,204,204,255
2510 NEXT
2520 FOR I% = 0 TO 2
2530 VDU 23,27,4,I%,23,27,5,23,27,6,1,23,27,11
2540 NEXT
2550 ENDPROC
2560 :
2570 REM ***********DRWTAXI*****************
2580 DEF PROC_DRWTAXI
2590 RESTORE 8950
2600 VDU 23,27,0,17,23,27,1,28;18;
2610 FOR I%=1 TO 504
2620 READ B%
2630 IF B%=0 THEN VDU 0,0,0,0
2640 IF B%=1 THEN VDU 255,255,0,255
2650 IF B%=2 THEN VDU 0,0,0,255
2660 IF B%=3 THEN VDU 55,55,255,255
2670 IF B%=4 THEN VDU 255,128,55,255
2680 NEXT
2690 VDU 23,27,4,9,23,27,5,23,27,6,17
2700 ENDPROC
2710 :
2720 REM **********INITVARS****************
2730 DEF PROC_INITVARS
2740 NUMOFSPRITE% = 10
2750 WHEELSPIN%=0
2760 PLAYAY% = 105
2770 LSCREE%=0 :
2780 TRUCKX% =0 : TRKY%=0
2790 POTHLX% =0 : POTY%=0
2800 PIZZAX%=0 : PIZY%=0
2810 MTRBKX%=0 : MBKY%=0
2820 TAXIX%=0 : TAXY%=0
2830 FERJMP%=0 : BOOST% =0
2840 CRSH% = 0
2850 RDRATE%=5 : RDBLOCK%=5
2860 ROADCOUNT% =0
2870 CARPSD%=0:
2880 LRESTER%=0
2890 ENDPROC
2900 REM ***********DRWTTBL*****************
2910 DEF PROC_DRWTTBL
2920 RESTORE 9150
2930 VDU 23,27,0,15,23,27,1,7;7;
2940 FOR I%=1 TO 49
2950 READ B%
2960 IF B%=0 THEN VDU 0,0,0,0
2970 IF B%=1 THEN VDU 255,255,0,255
2980 IF B%=2 THEN VDU 255,0,255,255
2990 NEXT
3000 RESTORE 9230
3010 FOR I%=1 TO 3
3020 Q%=27
3030 IF I%=1 THEN X%=15
3040 IF I%=2 THEN X%=100
3050 IF I%=3 THEN X%=205
3060 IF I%=3 THEN Q%=Q%+5
3070 IF I%=2 THEN Q%=Q%-5
3080 FOR J%=0 TO 6
3090 FOR K%=0 TO 17
3100 READ B%
3110 IF B% = 1 THEN VDU 23,27,0,15,23,27,3,X%+(K%*5);Q%+(J%*5);
3120 NEXT
3130 NEXT
3140 NEXT
3150 ENDPROC
3160 :
3170 REM *********DRWTITCAR*****************
3180 DEF PROC_DRWTITCAR
3190 RESTORE 10100
3200 LF%=15
3210 GCOL 0,0
3220 MOVE 90,600 : MOVE 600,620 : PLOT 80,1200,390
3230 MOVE 90,600 : MOVE 260,260 : PLOT 80,1200,390
3240 TCX%=180 : TCY%=300
3250 FOR I%=1 TO 80
3260 READ B% : READ C% : READ D%
3270 READ E% : READ F% : READ G%
3280 B%=B%*LF% : C%=C%*LF% : D%=D%*LF%
3290 E%=E%*LF% : F%=F%*LF% : G%=G%*LF%
3300 IF I%=< 21 THEN GL%=8 :*FX19
3310 IF I%=< 42 AND I%>21 THEN GL%=1
3320 IF I%=< 56 AND I%>42 THEN GL%=9
3330 IF I%=< 68 AND I%>56 THEN GL%=7 :*FX19
3340 IF I%=< 70 AND I%>68 THEN GL%=15 :*FX19
3350 IF I%=< 76 AND I%>70 THEN GL%=54
3360 IF I%=> 77 THEN GL%=22
3370 GCOL 0,GL%
3380 MOVE B%+TCX%,C%+TCY% : MOVE D%+TCX%,E%+TCY%
3390 PLOT 80,F%+TCX%,G%+TCY%
3400 NEXT
3410 ENDPROC
3420 :
3430 REM ***********DRWYELLRD***************
3440 DEF PROC_DRWYELLRD
3450 RESTORE 6080
3460 VDU 23,27,0,0
3470 VDU 23,27,1,4;20;
3480 FOR I% = 1 TO 80
3490 READ B%
3500 IF B%=1 THEN VDU 255,128,0,255
3510 IF B%=0 THEN VDU 0,0,0,0
3520 IF B%=2 THEN VDU 255,255,255,255
3530 NEXT
3540 FOR I% = 0 TO 80
3550 VDU 23,27,3,I%*4;140;
3560 NEXT
3570 ENDPROC
3580 REM ***********DRWREDRD***************
3590 DEF PROC_DRWREDRD
3600 RESTORE 6080
3610 VDU 23,27,0,5
3620 VDU 23,27,1,4;20;
3630 FOR I% = 1 TO 80
3640 READ B%
3650 IF B%=1 THEN VDU 55,128,255,255
3660 IF B%=0 THEN VDU 0,0,0,0
3670 IF B%=2 THEN VDU 255,255,255,255
3680 NEXT
3690 FOR I% = 0 TO 80
3700 VDU 23,27,3,I%*4;120;
3710 NEXT
3720 ENDPROC
3730 REM ***********DRWGRNRD***************
3740 DEF PROC_DRWGRNRD
3750 RESTORE 6080
3760 VDU 23,27,0,6
3770 VDU 23,27,1,4;20;
3780 FOR I% = 1 TO 80
3790 READ B%
3800 IF B%=1 THEN VDU 55,128,128,255
3810 IF B%=0 THEN VDU 0,0,0,0
3820 IF B%=2 THEN VDU 255,255,255,255
3830 NEXT
3840 FOR I% = 0 TO 80
3850 VDU 23,27,3,I%*4;100;
3860 NEXT
3870 ENDPROC
3880 :
3890 REM ************DRWPOTHOLE*************
3900 DEF PROC_DRWPOTHOLE
3910 RESTORE 7570
3920 VDU 23,27,0,8,23,27,1,23;16;
3930 FOR I% = 1 TO 368
3940 READ B%
3950 IF B%=0 THEN VDU 0,0,0,0
3960 IF B%=1 THEN VDU 0,0,0,255
3970 IF B%=2 THEN VDU 128,128,128,255
3980 NEXT
3990 VDU 23,27,4,5,23,27,5,23,27,6,8
4000 ENDPROC
4010 :
4020 REM ************DRWSKY1*****************
4030 DEF PROC_DRWSKY1
4040 COLOUR 131
4050 CLS
4060 MOVE 0,1024 : MOVE 1280,1024
4070 GCOL 0,6 : PLOT 80,0,600
4080 MOVE 0,600 : MOVE 1280,600
4090 PLOT 80,1280,1024
4100 GCOL 0,4 : MOVE 450,600 : MOVE 300,900
4110 PLOT 80,225,600 : MOVE 900,600
4120 MOVE 700,600 : PLOT 80,650,1000
4130 GCOL 0,7 : MOVE 100,600 : MOVE 225,600
4140 PLOT 80,300,900 : MOVE 400,600
4150 MOVE 650,1000 : PLOT 80,800,600
4160 GCOL 0,4 : MOVE 0,0 : MOVE 1280,0
4170 PLOT 80,0,70 : MOVE 0,70 : MOVE 1280,70
4180 PLOT 80,1280,0 : MOVE 0,80 : DRAW 1280,80
4190 ENDPROC
4200 :
4210 REM ************DRWSKY2****************
4220 DEF PROC_DRWSKY2
4230 COLOUR 160
4240 CLS
4250 GCOL 0,58 : MOVE 0,600 : MOVE 1280,600
4260 PLOT 80,0,1024 : MOVE 0,1024 : MOVE 1280,1024
4270 PLOT 80,1280,600 : GCOL 0,26 : MOVE 100,600
4280 MOVE 100,740 : PLOT 80,200,600 : MOVE 200,600
4290 MOVE 240,800 : PLOT 80,400,600 : MOVE 660,600
4300 MOVE 1100,600 : PLOT 80,1100,860 : MOVE 1100,860
4310 MOVE 660,860 : PLOT 80,660,600 : MOVE 660,600
4320 MOVE 660,800 : PLOT 80,600,800 : MOVE 600,600
4330 MOVE 600,800 : PLOT 80,660,600 : GCOL 0,30
4340 MOVE 0,600 : MOVE 100,740 : PLOT 80,100,600
4350 MOVE 100,600 : MOVE 240,800 : PLOT 80,200,600
4360 GCOL 0,43 : MOVE 660,800 : MOVE 660,860
4370 PLOT 80,620,840 : MOVE 660,800 : MOVE 620,800
4380 PLOT 80,620,840 : MOVE 660,800 : MOVE 560,780
4390 PLOT 80,600,600 : MOVE 600,600 : MOVE 560,600
4400 PLOT 80,560,780 : GCOL 0,26 : MOVE 0,0 : MOVE 1280,0
4410 PLOT 80,0,70 : MOVE 0,70 : MOVE 1280,70
4420 PLOT 80,1280,0 : MOVE 0,80 : DRAW 1280,80 :G%=20 :
4430 FOR J%=600 TO 800 STEP 30
4440 FOR I%=700 TO 1000 STEP 30
4450 C%=RND(2)
4460 IF C%=1 THEN GCOL 0,16
4470 IF C%=2 THEN GCOL 0,36
4480 MOVE I%,J% : MOVE I%,J%+G% PLOT 80,I%+G%,J%
4490 MOVE I%+G%,J% : MOVE I%+G%,J%+G% : PLOT 80,I%,J%+G%
4500 NEXT
4510 NEXT
4520 FOR I%=600 TO 760 STEP 40
4530 GCOL 0,16 : MOVE 580,I% : MOVE 640,I%
4540 PLOT 80,580,I%+20 : MOVE 580,I%+20
4550 MOVE 640,I%+20 : PLOT 80,640,I%
4560 NEXT
4570 ENDPROC
4580 :
4590 REM ************DRWSKY3****************
4600 DEF PROC_DRWSKY3
4610 COLOUR 146
4620 CLS
4630 GCOL 0,52 : MOVE 0,600 : MOVE 1280,600
4640 PLOT 80,0,1024 : MOVE 0,1024 : MOVE 1280,1024
4650 PLOT 80,1280,600
4660 GCOL 0,11 : MOVE 0,600 : MOVE 100,600 : PLOT 80,40,680
4670 MOVE 40,600 : MOVE 140,600 : PLOT 80,100,700
4680 GCOL 0,27 : MOVE 120,600 : MOVE 180,600 : PLOT 80,100,700
4690 GCOL 0,7 : MOVE 780,600 : MOVE 860,600 : PLOT 80,780,860
4700 MOVE 860,600 : MOVE 860,960 : PLOT 80,780,860
4710 MOVE 900,600 : MOVE 900,920 : PLOT 80,1000,600
4720 MOVE 1000,600 : MOVE 1000,920 : PLOT 80,900,920
4730 MOVE 900,920 : MOVE 1000,920 : PLOT 80,950,980
4740 MOVE 1040,600 : MOVE 1040,840 : PLOT 80,1060,600
4750 MOVE 1040,840 : MOVE 1060,840 : PLOT 80,1060,600
4760 MOVE 1020,840 : MOVE 1080,840 : PLOT 80,1080,870
4770 MOVE 1020,840 : MOVE 1020,870 : PLOT 80,1080,870
4780 MOVE 1040,870 : MOVE 1060,870 : PLOT 80,1050,940
4790 FOR I%=300 TO 1200 STEP 30+RND(15)
4800 A%=RND(20)+40 : B% = RND(100)+700 : GCOL 0,40+RND(3)
4810 MOVE I%,600 : MOVE I%+A%,600 : PLOT 80,I%,B%
4820 MOVE I%+A%,600 : MOVE I%+A%,B% : PLOT 80,I%,B%
4830 NEXT
4840 ENDPROC
4850 :
4860 REM ************DRWTTRUCK**************
4870 DEF PROC_DRWTTRUCK
4880 RESTORE 7140
4890 VDU 23,27,0,7
4900 VDU 23,27,1,58;21;
4910 FOR I% = 1 TO 1218
4920 READ B%
4930 IF B% = 0 THEN VDU 0,0,0,0
4940 IF B% = 1 THEN VDU 0,255,128,255
4950 IF B% = 2 THEN VDU 0,102,0,255
4960 IF B% = 3 THEN VDU 255,128,0,255
4970 IF B% = 4 THEN VDU 0,0,0,255
4980 NEXT
4990 VDU 23,27,4,4,23,27,5,23,27,6,7
5000 ENDPROC
5010 :
5020 REM ***********POPHIGHWAY**************
5030 :
5040 DEF PROC_POPHIGHWAY
5050 IF LRESTER%=1 THEN RESTORE 9470
5060 IF LRESTER%=2 THEN RESTORE 9890
5070 IF LRESTER%=3 THEN RESTORE 9680
5080 FOR I%=0 TO 2
5090 FOR G%=0 TO 119
5100 READ B%
5110 HIGHWAY%(I%,G%) = B%
5120 NEXT
5130 NEXT
5140 ENDPROC
5150 :
5160 REM ***********POPCARX*****************
5170 :
5180 DEF PROC_POPCARX
5190 IF LSCREE% >= 105 THEN LSCREE% = 0
5200 FOR I% = 0 TO 2
5210 FOR G% = LSCREE% TO LSCREE%+15
5220 IF HIGHWAY%(I%,G%)=1 THEN CARX%(I%)=(G%-LSCREE%)*20
5230 IF HIGHWAY%(I%,G%)=2 THEN VDU 23,27,4,4,23,27,11
5240 IF HIGHWAY%(I%,G%)=2 THEN TRUCKX%=(G%-LSCREE%)*20
5250 IF HIGHWAY%(I%,G%)=2 THEN TRKY%=TRUCKY%(I%)
5260 IF HIGHWAY%(I%,G%)=3 THEN VDU 23,27,4,5,23,27,11
5270 IF HIGHWAY%(I%,G%)=3 THEN POTHLX%=(G%-LSCREE%)*20
5280 IF HIGHWAY%(I%,G%)=3 THEN POTY%=POTHLY%(I%)
5290 IF HIGHWAY%(I%,G%)=4 THEN VDU 23,27,4,6,23,27,11
5300 IF HIGHWAY%(I%,G%)=4 THEN PIZZAX%=(G%-LSCREE%)*20
5310 IF HIGHWAY%(I%,G%)=4 THEN PIZY%=PIZZAY%(I%)
5320 IF HIGHWAY%(I%,G%)=5 THEN VDU 23,27,4,8,23,27,11
5330 IF HIGHWAY%(I%,G%)=5 THEN MBKY%=MTRBKY%(I%)
5340 IF HIGHWAY%(I%,G%)=5 THEN MTRBKX%=(G%-LSCREE%)*20
5350 IF HIGHWAY%(I%,G%)=6 THEN VDU 23,27,4,9,23,27,11
5360 IF HIGHWAY%(I%,G%)=6 THEN TAXY%=TAXIY%(I%)
5370 IF HIGHWAY%(I%,G%)=6 THEN TAXIX%=(G%-LSCREE%)*20
5380 NEXT
5390 NEXT
5400 ENDPROC
5410 :
5420 REM **********EXHIGHWAY****************
5430 :
5440 DEF PROC_EXHIGHWAY
5450 LSCREE% = LSCREE%+1
5460 PROC_POPCARX
5470 ROADCOUNT%=0
5480 ENDPROC
5490 :
5500 REM **********JMPJMP*******************
5510 DEF PROC_JMPJMP
5520 VDU 23,0,&85,0,3,-5,55;3;
5530 FERJMP%=FERJMP%+1
5540 VDU 23,27,0,3,23,27,10,2
5550 IF FERJMP%>=18 THEN FERJMP%=0
5560 ENDPROC
5570 :
5580 REM **********DRWPIZZA*****************
5590 DEF PROC_DRWPIZZA
5600 RESTORE 7730
5610 VDU 23,27,0,9,23,27,1,7;12;
5620 FOR I% = 1 TO 84
5630 READ B%
5640 IF B% = 0 THEN VDU 0,0,0,0
5650 IF B% = 1 THEN VDU 255,170,0,255
5660 IF B% = 2 THEN VDU 255,55,0,255
5670 IF B% = 3 THEN VDU 170,170,0,255
5680 IF B% = 4 THEN VDU 0,0,0,255
5690 NEXT
5700 VDU 23,27,4,6,23,27,5,23,27,6,9
5710 ENDPROC
5720 :
5730 REM **********DRWMOTORBIKE*************
5740 DEF PROC_DRWMOTORBIKE
5750 RESTORE 6830
5760 VDU 23,27,0,16,23,27,1,18;14;
5770 FOR I%= 1 TO 252
5780 READ B%
5790 IF B%=0 THEN VDU 0,0,0,0
5800 IF B%=1 THEN VDU 0,0,0,255
5810 IF B%=2 THEN VDU 120,255,55,255
5820 IF B%=3 THEN VDU 255,255,0,255
5830 IF B%=4 THEN VDU 255,55,0,255
5840 NEXT
5850 VDU 23,27,4,8,23,27,5,23,27,6,16
5860 ENDPROC
5870 :
5880 REM *********DRWSPLSION****************
5890 DEF PROC_DRWSPLSION
5900 RESTORE 7870
5910 FOR I% = 10 TO 14
5920 VDU 23,27,0,I%,23,27,1,16;21;
5930 FOR J% = 1 TO 336
5940 READ B%
5950 IF B%=0 THEN VDU 0,0,0,0
5960 IF B%=1 THEN VDU 255,0,0,255
5970 IF B%=2 THEN VDU 255,170,55,255
5980 IF B%=3 THEN VDU 255,255,255,255
5990 IF B%=4 THEN VDU 0,0,0,255
6000 NEXT
6010 VDU 23,27,4,7,23,27,6,I%
6020 NEXT
6030 VDU 23,27,12
6040 ENDPROC
6050 :
6060 REM *****************DATABLOCK*********
6070 : REM GROUND
6080 DATA 2,2,2,2
6090 DATA 1,1,1,1
6100 DATA 1,1,1,1
6110 DATA 1,1,0,0
6120 DATA 0,0,1,1
6130 DATA 0,0,1,0
6140 DATA 1,1,0,0
6150 DATA 1,1,0,0
6160 DATA 1,1,0,0
6170 DATA 1,1,1,1
6180 DATA 0,0,1,1
6190 DATA 0,1,0,0
6200 DATA 1,1,0,0
6210 DATA 1,1,0,0
6220 DATA 0,0,1,1
6230 DATA 0,0,1,1
6240 DATA 1,1,0,0
6250 DATA 1,1,1,1
6260 DATA 1,1,1,1
6270 DATA 2,2,2,2
6280 : REM CAR
6290 DATA 0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
6300 DATA 0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
6310 DATA 0,0,0,0,1,1,1,1,1,0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0
6320 DATA 0,0,0,0,1,2,2,2,2,1,0,1,1,1,1,4,4,4,4,4,4,1,1,0,0,0,0,0,0,0,0
6330 DATA 0,0,0,0,1,1,2,2,1,1,1,4,4,4,4,4,4,1,1,4,4,4,1,1,0,0,0,0,0,0,0
6340 DATA 0,0,0,0,0,1,1,1,4,1,2,1,2,1,4,4,1,1,1,1,4,4,4,1,1,0,0,0,0,0,0
6350 DATA 0,0,0,0,1,1,1,4,1,2,1,2,1,1,4,4,1,1,1,1,1,4,4,4,1,1,0,0,0,0,0
6360 DATA 0,0,0,1,1,4,4,1,2,1,2,1,1,1,4,4,1,1,1,1,1,1,4,4,4,1,1,0,0,0,0
6370 DATA 0,0,1,1,4,4,1,2,1,2,1,1,1,1,4,4,1,1,1,1,1,1,1,4,4,4,1,0,0,0,0
6380 DATA 0,0,1,4,4,1,2,1,2,1,1,1,1,1,4,4,4,1,1,1,1,1,1,4,4,4,1,1,0,0,0
6390 DATA 0,1,4,4,4,1,1,2,2,4,4,4,4,4,4,4,4,4,1,1,1,1,1,4,4,4,4,1,1,0,0
6400 DATA 0,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1,1,0
6410 DATA 0,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1,1,4,4,4,4,4,1,1
6420 DATA 0,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1,1,4,4,4,4,4,1,1
6430 DATA 0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1,1
6440 DATA 1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
6450 DATA 1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,4,4,1,1
6460 DATA 1,2,2,2,2,2,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,1,1,1,1,2,2,4,4,1,1
6470 DATA 1,2,2,2,2,1,3,3,3,3,1,2,2,2,2,2,2,2,2,2,1,3,3,3,3,1,2,2,2,1,1
6480 DATA 1,1,2,2,1,3,3,3,3,3,3,1,2,2,2,2,2,2,2,1,3,3,3,3,3,3,1,2,2,1,1
6490 DATA 1,1,2,1,3,3,3,4,3,3,3,3,1,2,2,2,2,2,1,3,3,3,4,3,3,3,3,1,2,1,1
6500 DATA 1,1,2,1,3,3,4,3,4,3,3,3,1,2,2,2,2,2,1,3,3,4,3,4,3,3,3,1,2,1,1
6510 DATA 0,1,1,1,3,3,3,4,3,3,3,3,1,1,1,1,1,1,1,3,3,3,4,3,3,3,3,1,1,1,1
6520 DATA 0,0,0,1,3,3,3,3,3,3,3,3,1,0,0,0,0,0,1,3,3,3,3,3,3,3,3,1,0,0,0
6530 DATA 0,0,0,0,1,3,3,3,3,3,3,1,0,0,0,0,0,0,0,1,3,3,3,3,3,3,1,0,0,0,0
6540 DATA 0,0,0,0,0,1,3,3,3,3,1,0,0,0,0,0,0,0,0,0,1,3,3,3,3,1,0,0,0,0,0
6550 DATA 0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0
6560 REM FEARARI RED BLACK WHITR ORGANE 28X12
6570 DATA 0,0,0,0,0,0,0,0,0,0,1,1,2,2,2,0,1,3,0,0,0,0,0,0,0,0,0,0
6580 DATA 1,0,0,0,0,0,0,0,1,1,1,1,4,4,4,0,0,1,3,0,0,0,0,0,0,0,0,0
6590 DATA 1,1,0,0,0,0,1,1,1,2,2,1,4,4,4,0,0,2,1,3,0,0,0,0,0,0,0,0
6600 DATA 1,1,1,1,1,1,1,1,2,2,2,1,1,4,0,0,4,2,3,1,3,3,0,0,0,0,0,0
6610 DATA 1,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,3,1,2,1,1,0,0,0,0,0
6620 DATA 1,4,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0
6630 DATA 2,2,2,2,2,2,2,2,2,2,2,2,1,1,1,1,1,1,1,1,2,2,1,4,4,1,1,1
6640 DATA 1,1,1,1,1,2,2,2,2,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
6650 DATA 2,1,1,1,2,2,3,2,2,2,1,1,1,1,1,1,1,1,2,2,2,3,2,2,1,1,1,0
6660 DATA 0,2,2,2,2,2,2,3,2,2,2,2,2,2,2,2,2,2,2,2,3,2,2,2,2,2,2,2
6670 DATA 0,0,0,0,0,2,2,2,2,0,0,0,0,0,0,0,0,0,0,2,2,2,2,0,0,0,0,0
6680 DATA 0,0,0,0,0,0,2,2,0,0,0,0,0,0,0,0,0,0,0,0,2,2,0,0,0,0,0,0
6690 REM
6700 DATA 0,0,0,0,0,0,0,0,0,0,1,1,2,2,2,0,1,3,0,0,0,0,0,0,0,0,0,0
6710 DATA 1,0,0,0,0,0,0,0,1,1,1,1,4,4,4,0,0,1,3,0,0,0,0,0,0,0,0,0
6720 DATA 1,1,0,0,0,0,1,1,1,2,2,1,4,4,4,0,0,2,1,3,0,0,0,0,0,0,0,0
6730 DATA 1,1,1,1,1,1,1,1,2,2,2,1,1,4,0,0,4,2,3,1,3,3,0,0,0,0,0,0
6740 DATA 1,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,2,3,1,2,1,1,0,0,0,0,0
6750 DATA 1,4,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0
6760 DATA 2,2,2,2,2,2,2,2,2,2,2,2,1,1,1,1,1,1,1,1,2,2,1,4,4,1,1,1
6770 DATA 1,1,1,1,1,2,2,2,2,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
6780 DATA 2,1,1,1,2,2,2,3,2,2,1,1,1,1,1,1,1,1,2,2,3,2,2,2,1,1,1,0
6790 DATA 0,2,2,2,2,2,3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3,2,2,2,2,2,2
6800 DATA 0,0,0,0,0,2,2,2,2,0,0,0,0,0,0,0,0,0,0,2,2,2,2,0,0,0,0,0
6810 DATA 0,0,0,0,0,0,2,2,0,0,0,0,0,0,0,0,0,0,0,0,2,2,0,0,0,0,0,0
6820 REM MOTORBIKE 1 BLACK 2LTBL 3 DKBL 4 ORANG
6830 DATA 0,0,0,0,0,0,0,0,0,0,4,4,4,0,0,0,0,0
6840 DATA 0,0,0,0,0,0,0,0,0,4,4,2,2,0,0,0,0,0
6850 DATA 0,0,0,0,0,0,0,1,1,4,4,2,2,0,2,0,0,0
6860 DATA 0,0,0,0,0,0,1,1,3,1,4,4,2,0,2,2,0,0
6870 DATA 0,0,0,0,0,0,1,1,3,1,1,0,0,0,2,2,2,0
6880 DATA 2,2,2,2,0,1,1,1,3,3,3,3,1,2,2,2,4,0
6890 DATA 0,2,2,2,1,1,1,1,1,1,1,1,1,1,2,2,2,0
6900 DATA 0,0,2,2,3,3,3,3,3,1,1,2,2,2,2,2,0,0
6910 DATA 0,0,1,1,3,1,1,1,1,2,2,2,2,2,1,1,0,0
6920 DATA 0,1,0,2,1,3,1,0,0,0,2,2,2,1,1,2,1,0
6930 DATA 1,2,1,1,1,3,1,0,0,0,2,2,1,2,1,0,0,1
6940 DATA 1,0,1,1,2,1,1,1,0,0,0,0,1,0,1,1,2,1
6950 DATA 0,1,2,0,1,0,0,0,0,0,0,0,0,1,2,0,1,0
6960 DATA 0,0,1,1,0,0,0,0,0,0,0,0,0,0,1,1,0,0
6970 REM FEARARIUP 30X15
6980 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3,3,0,0,0,0,0,0,0,0,0,0,0,0
6990 DATA 0,0,0,0,0,0,0,0,0,0,1,1,2,2,2,0,1,3,3,3,0,0,0,0,0,0,0,0,0,0
7000 DATA 0,0,0,0,0,0,0,0,0,1,1,1,1,4,4,0,2,3,1,3,3,3,1,1,1,1,1,1,1,0
7010 DATA 0,0,0,0,0,0,0,0,1,1,2,1,1,4,4,0,4,2,3,1,1,1,1,1,1,1,4,4,1,1
7020 DATA 0,0,0,0,0,0,0,1,1,2,2,2,1,4,0,0,1,1,1,1,1,1,1,1,2,2,2,2,2,2
7030 DATA 0,0,0,0,0,0,0,1,1,2,2,2,1,1,1,1,1,1,1,1,1,2,2,2,1,2,2,2,1,1
7040 DATA 0,0,0,0,0,0,1,1,2,2,2,1,1,1,1,1,1,2,2,2,2,1,1,2,2,2,2,2,2,2
7050 DATA 1,1,0,0,1,1,1,1,1,1,1,1,1,1,2,2,2,1,1,1,1,1,1,2,2,3,2,2,2,0
7060 DATA 1,1,1,1,1,1,1,1,1,1,1,2,2,2,1,1,1,1,1,1,1,1,1,2,2,2,3,2,2,0
7070 DATA 1,1,1,1,1,1,1,1,2,2,2,1,1,1,1,1,1,1,1,2,2,2,0,0,2,2,2,2,0,0
7080 DATA 0,1,1,4,4,2,2,2,2,2,2,2,2,1,1,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0
7090 DATA 0,1,1,2,2,1,1,1,2,3,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
7100 DATA 0,0,2,1,1,1,1,1,2,2,3,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
7110 DATA 0,0,2,1,1,1,1,1,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
7120 DATA 0,0,0,2,2,2,0,0,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
7130 REM TOWTRUCK 58X21 LBLUE DBLUE ORANGE BLACK
7140 DATA 1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
7150 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
7160 DATA 1,2,2,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0
7170 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
7180 DATA 0,0,2,2,2,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0
7190 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
7200 DATA 0,0,0,0,2,2,2,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,4,0,0,0,0,1
7210 DATA 1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
7220 DATA 0,0,0,0,0,0,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,2,2,1,4,0,0,0,0,1
7230 DATA 1,2,2,2,2,2,2,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
7240 DATA 0,0,0,0,0,4,0,0,0,2,1,1,0,0,0,0,0,0,0,0,1,2,2,1,4,0,0,0,0,1
7250 DATA 1,3,3,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
7260 DATA 0,0,0,0,1,4,0,0,0,0,2,2,1,1,1,0,0,0,0,1,2,2,1,1,4,0,0,0,0,1
7270 DATA 1,3,3,0,0,0,0,4,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
7280 DATA 0,0,0,0,1,4,0,0,0,0,0,0,2,1,1,1,0,0,1,2,0,0,2,2,4,0,0,0,0,1
7290 DATA 1,2,2,2,2,2,2,4,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
7300 DATA 0,0,0,0,1,4,0,0,0,0,0,0,0,2,2,1,1,1,1,2,0,2,1,1,4,0,0,0,0,1
7310 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0
7320 DATA 0,0,0,0,1,4,0,0,0,0,0,0,0,0,0,2,2,2,2,0,2,2,1,1,4,0,0,0,0,1
7330 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0
7340 DATA 0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,1,1,4,0,0,0,4,1
7350 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3,3,1,1,1,2
7360 DATA 0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,4,0,0,0,4,1
7370 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2
7380 DATA 0,0,0,1,1,1,1,1,4,4,4,4,4,4,4,1,1,1,1,2,2,2,2,2,2,2,2,2,4,2
7390 DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,4,2
7400 DATA 0,0,0,1,3,3,1,4,4,4,4,4,4,4,4,4,2,2,2,1,1,1,1,1,1,2,2,2,4,2
7410 DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,4,4,4,4,4,2,2,2,2,2,4,2
7420 DATA 0,0,0,2,2,2,2,4,4,4,4,4,4,4,4,4,2,2,2,1,1,1,1,1,1,2,2,2,4,2
7430 DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,4,4,4,4,4,4,4,4,4,2,2,2,4,2
7440 DATA 0,0,0,2,2,2,2,4,4,4,2,2,2,4,4,4,2,2,2,3,3,3,3,3,3,2,2,2,4,2
7450 DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,4,4,4,2,2,2,4,4,4,2,2,2,4,2
7460 DATA 0,0,0,2,2,2,2,4,4,2,2,2,2,2,4,4,2,2,2,2,2,2,2,2,2,2,2,2,4,2
7470 DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,4,4,2,2,2,2,2,4,4,4,2,2,4,2
7480 DATA 0,0,0,0,0,0,0,4,4,4,2,2,2,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,2
7490 DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,4,4,4,2,2,2,4,4,4,4,4,4,4,3
7500 DATA 0,0,0,0,0,0,0,4,4,4,4,4,4,4,4,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0
7510 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,4,4,4,4,4,4,4,4,0,0,0,0,0
7520 DATA 0,0,0,0,0,0,0,4,4,4,4,4,4,4,4,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0
7530 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,4,4,4,4,4,4,4,4,0,0,0,0,0
7540 DATA 0,0,0,0,0,0,0,0,4,4,4,4,4,4,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
7550 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,4,4,4,4,4,4,0,0,0,0,0,0
7560 REM POTHOLE 23X16
7570 DATA 1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0
7580 DATA 1,2,2,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0
7590 DATA 1,1,2,2,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0,0
7600 DATA 1,1,2,2,2,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0,0
7610 DATA 0,1,1,2,2,2,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0,0
7620 DATA 0,1,1,2,2,2,2,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0,0
7630 DATA 0,1,2,1,2,2,2,2,2,2,2,2,2,2,2,2,1,0,0,0,0,0,0
7640 DATA 0,1,2,1,2,2,2,2,2,2,2,2,2,2,2,2,2,1,0,0,0,0,0
7650 DATA 0,0,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,0,0,0,0
7660 DATA 0,0,1,2,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,0,0,0
7670 DATA 0,0,1,2,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,0,0
7680 DATA 0,0,1,2,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,0
7690 DATA 0,0,0,1,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
7700 DATA 0,0,0,1,2,2,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1
7710 DATA 0,0,0,1,2,2,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1
7720 DATA 0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
7730 REM PIZZA
7740 DATA 0,4,4,4,0,0,0
7750 DATA 4,1,1,1,4,4,0
7760 DATA 4,1,1,1,1,1,4
7770 DATA 4,3,2,3,1,1,4
7780 DATA 4,2,2,3,2,2,4
7790 DATA 4,2,2,2,2,4,0
7800 DATA 4,2,3,2,2,4,0
7810 DATA 0,4,2,2,4,0,0
7820 DATA 0,4,2,3,4,0,0
7830 DATA 0,4,2,2,4,0,0
7840 DATA 0,4,2,4,0,0,0
7850 DATA 0,0,4,0,0,0,0
7860 REM EXPLOSION 1 1=RED 2=ORANGE, 3 WHITE 4 BLACK
7870 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
7880 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
7890 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
7900 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
7910 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
7920 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
7930 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
7940 DATA 0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0
7950 DATA 0,0,0,0,0,1,0,0,0,1,1,0,0,0,0,0
7960 DATA 0,0,0,0,0,1,0,0,0,1,1,1,0,0,0,0
7970 DATA 0,0,0,0,1,1,1,1,1,1,3,1,0,0,0,0
7980 DATA 0,0,0,0,1,1,1,2,2,3,3,1,0,0,0,0
7990 DATA 0,0,0,0,1,2,2,2,3,3,3,1,1,0,0,0
8000 DATA 0,0,0,1,1,2,2,2,3,3,3,3,1,0,0,0
8010 DATA 0,0,0,1,1,2,2,2,3,3,3,3,1,0,0,0
8020 DATA 0,0,0,1,1,2,2,3,3,3,3,3,1,0,0,0
8030 DATA 0,0,0,0,1,2,2,3,3,3,3,3,1,1,0,0
8040 DATA 0,0,0,0,1,2,2,3,3,3,3,3,1,1,0,0
8050 DATA 0,0,0,0,1,2,3,3,3,3,3,3,1,0,0,0
8060 DATA 0,0,0,0,1,1,3,3,3,3,3,1,1,0,0,0
8070 DATA 0,0,0,0,0,1,3,3,3,3,3,1,0,0,0,0
8080 REM EXPLOSION 2 1=RED 2=ORANGE, 3 WHITE 4 BLACK
8090 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
8100 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
8110 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
8120 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
8130 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
8140 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
8150 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
8160 DATA 0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0
8170 DATA 0,0,2,2,0,0,2,2,2,2,0,0,0,2,0,0
8180 DATA 0,0,1,1,1,2,2,2,0,2,0,0,2,2,0,0
8190 DATA 0,0,0,1,1,1,1,4,0,0,0,2,2,0,0,0
8200 DATA 0,0,0,1,1,1,1,1,1,2,0,2,2,0,0,0
8210 DATA 0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,0
8220 DATA 0,0,0,1,1,2,2,1,1,1,2,1,2,0,0,0
8230 DATA 0,0,0,1,2,2,1,1,1,1,3,1,1,0,0,0
8240 DATA 0,0,0,1,1,2,1,1,1,1,3,2,1,1,0,0
8250 DATA 0,0,0,1,1,2,2,1,1,1,3,1,1,1,0,0
8260 DATA 0,0,0,0,1,2,2,3,1,3,3,1,1,0,0,0
8270 DATA 0,0,0,0,0,1,2,3,1,3,3,1,1,0,0,0
8280 DATA 0,0,0,0,0,4,3,3,1,1,3,1,1,0,0,0
8290 DATA 0,0,0,0,4,1,3,3,1,1,3,2,1,4,0,0
8300 REM EXPLOSION 3 1=RED 2=ORANGE, 3 WHITE 4 BLACK
8310 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
8320 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
8330 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
8340 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
8350 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
8360 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1
8370 DATA 1,1,1,1,0,0,0,1,0,0,2,0,1,1,1,0
8380 DATA 0,0,1,0,1,0,0,2,0,1,2,0,1,0,0,0
8390 DATA 0,0,1,4,1,1,2,2,0,0,4,1,1,0,0,0
8400 DATA 0,0,4,1,3,2,2,1,4,1,2,3,4,1,0,0
8410 DATA 0,0,2,2,2,2,2,1,1,2,2,1,4,0,0,0
8420 DATA 0,0,2,2,1,2,1,1,2,2,2,2,0,0,0,0
8430 DATA 0,0,2,2,2,2,1,2,2,2,2,2,0,0,0,0
8440 DATA 0,0,0,0,2,2,2,1,1,2,2,2,0,0,0,0
8450 DATA 0,0,0,0,0,1,2,2,2,2,1,2,0,0,0,0
8460 DATA 0,0,0,4,0,4,1,2,2,1,1,2,0,0,0,0
8470 DATA 0,0,0,0,0,4,4,2,2,2,2,2,4,0,4,0
8480 DATA 0,0,0,0,4,4,1,3,2,2,1,1,4,0,0,0
8490 DATA 0,0,0,0,4,4,1,3,2,2,4,4,4,4,0,0
8500 DATA 0,0,4,4,4,4,1,2,2,2,4,3,4,4,0,0
8510 DATA 0,0,0,4,4,4,1,2,2,1,4,4,4,4,4,0
8520 REM EXPLOSION 4 1=RED 2=ORANGE, 3 WHITE 4 BLACK
8530 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
8540 DATA 0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0
8550 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
8560 DATA 1,0,0,0,2,0,0,0,0,0,2,0,1,0,0,0
8570 DATA 1,0,2,0,0,0,2,0,0,2,0,1,1,0,0,1
8580 DATA 0,4,1,0,0,0,0,1,0,1,1,1,0,0,1,1
8590 DATA 0,2,1,4,1,1,1,1,0,1,1,0,4,1,0,0
8600 DATA 0,0,0,2,4,1,1,4,0,1,4,1,4,2,0,0
8610 DATA 0,0,2,4,1,1,1,2,2,1,1,1,0,0,0,0
8620 DATA 0,0,0,1,2,1,1,1,4,2,2,2,2,0,0,0
8630 DATA 0,0,4,2,2,4,1,1,1,1,2,2,4,0,0,0
8640 DATA 0,0,0,2,1,1,2,1,2,1,1,4,4,0,0,0
8650 DATA 0,0,0,0,4,4,2,2,1,1,1,4,4,0,0,0
8660 DATA 0,0,0,0,0,4,4,4,4,4,4,2,0,0,0,0
8670 DATA 0,0,0,0,0,0,2,2,4,4,4,2,0,0,0,0
8680 DATA 0,0,0,0,0,0,2,2,2,2,2,2,0,0,0,0
8690 DATA 0,0,0,0,0,2,2,2,2,4,2,0,0,0,0,0
8700 DATA 0,0,0,0,0,2,2,4,4,4,2,0,0,0,0,0
8710 DATA 0,0,0,0,0,2,2,4,4,4,2,1,0,0,0,0
8720 DATA 0,0,0,0,0,0,2,4,4,4,4,4,4,4,0,0
8730 DATA 0,0,0,0,0,4,4,4,4,4,4,4,4,4,0,0
8740 REM EXPLOSION 5 1=RED 2=ORANGE, 3 WHITE 4 BLACK
8750 DATA 0,0,1,0,0,0,0,0,0,1,0,0,0,0,0,0
8760 DATA 0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0
8770 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
8780 DATA 0,0,0,0,0,0,0,1,2,0,0,0,2,0,0,0
8790 DATA 0,0,4,4,4,0,0,1,0,0,0,0,2,4,0,0
8800 DATA 2,0,4,4,0,0,4,4,4,4,0,1,0,4,0,0
8810 DATA 0,1,4,4,4,4,4,4,4,1,0,4,4,4,0,0
8820 DATA 0,2,4,0,4,4,0,0,4,4,4,4,4,4,4,0
8830 DATA 4,0,4,1,4,2,2,2,4,4,1,4,0,0,0,1
8840 DATA 4,1,4,4,2,2,2,2,0,2,4,4,0,0,0,0
8850 DATA 0,4,4,2,2,2,3,2,2,2,4,0,2,0,0,0
8860 DATA 0,0,4,4,2,2,2,3,3,2,2,2,2,0,0,0
8870 DATA 0,0,0,4,2,2,3,3,3,2,2,0,0,0,0,0
8880 DATA 0,0,0,0,2,2,2,2,3,2,2,0,0,0,0,0
8890 DATA 0,0,0,0,0,4,2,2,2,2,2,0,0,0,0,0
8900 DATA 0,0,0,0,0,4,2,2,2,2,0,0,0,0,0,0
8910 DATA 0,0,0,0,0,4,4,2,0,4,4,0,0,0,0,0
8920 DATA 0,0,0,0,0,4,4,4,4,4,4,0,0,0,0,0
8930 DATA 0,0,0,0,0,0,4,4,4,4,4,0,0,0,0,0
8940 DATA 0,0,0,0,0,4,4,4,4,4,4,4,4,4,0,0
8950 REM TAXI 28X18 1YL 2BL 3LB 4OR
8960 DATA 0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
8970 DATA 0,0,0,0,0,0,0,0,0,2,1,2,1,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0
8980 DATA 0,0,0,0,0,0,0,0,0,1,2,1,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0
8990 DATA 0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0
9000 DATA 0,0,0,0,0,0,1,1,3,3,3,3,1,1,3,3,3,1,0,0,0,0,0,0,0,0,0,0
9010 DATA 0,0,0,0,0,1,1,3,3,3,3,3,1,1,3,3,3,3,1,0,0,0,0,0,0,0,0,0
9020 DATA 0,0,0,0,1,1,3,3,3,3,3,3,1,1,3,3,3,3,1,0,0,0,0,0,0,0,0,0
9030 DATA 0,0,0,0,1,1,3,3,3,3,3,3,1,1,3,3,3,3,3,1,0,0,0,0,0,0,0,0
9040 DATA 0,1,1,1,1,1,3,3,3,3,3,3,1,1,3,3,3,3,3,1,1,1,1,1,1,1,0,0
9050 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,0
9060 DATA 4,1,1,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,1,1,1,1,4,4
9070 DATA 4,1,1,1,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,1,1,1,1,1,1,1
9080 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
9090 DATA 1,1,1,1,2,3,3,2,1,1,1,1,1,1,1,1,1,1,1,2,3,3,2,1,1,1,1,1
9100 DATA 1,1,1,2,3,2,3,3,2,1,1,1,1,1,1,1,1,1,2,3,3,2,3,2,1,1,1,1
9110 DATA 0,1,1,2,3,3,2,3,2,1,1,1,1,1,1,1,1,1,2,3,2,3,3,2,1,1,1,0
9120 DATA 0,0,0,0,2,3,3,2,0,0,0,0,0,0,0,0,0,0,0,2,3,3,2,0,0,0,0,0
9130 DATA 0,0,0,0,0,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,0,0,0,0,0,0
9140 REM TITBLOCK 7X7
9150 DATA 0,1,1,1,1,1,1
9160 DATA 2,1,1,1,1,1,1
9170 DATA 2,1,1,1,1,1,1
9180 DATA 2,1,1,1,1,1,1
9190 DATA 2,1,1,1,1,1,1
9200 DATA 2,1,1,1,1,1,1
9210 DATA 2,2,2,2,2,2,0
9220 REM PIXEL 18X7
9230 DATA 1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
9240 DATA 1,0,1,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0
9250 DATA 1,0,1,0,1,0,1,0,1,0,1,0,0,0,0,0,0,0
9260 DATA 1,1,1,0,0,0,0,1,0,0,1,1,0,1,0,0,0,0
9270 DATA 1,0,0,0,1,0,1,0,1,0,1,0,0,1,0,0,0,0
9280 DATA 1,0,0,0,1,0,0,0,0,0,1,1,0,1,1,0,0,0
9290 DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
9300 REM PIZZA 18X7
9310 DATA 1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
9320 DATA 1,0,1,0,0,0,0,0,0,0,1,1,1,1,0,1,1,1
9330 DATA 1,1,1,0,1,0,1,1,1,0,0,0,1,1,0,1,0,1
9340 DATA 1,0,0,0,0,0,0,1,1,0,0,1,0,0,0,1,1,1
9350 DATA 1,0,0,0,1,0,1,1,0,0,1,0,0,0,0,1,0,1
9360 DATA 0,0,0,0,1,0,1,0,0,0,1,1,1,1,0,0,0,0
9370 DATA 0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0
9380 REM DASH 18X7
9390 DATA 1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
9400 DATA 1,0,0,1,0,0,0,0,0,1,1,1,0,1,0,1,0,0
9410 DATA 1,0,0,1,0,1,1,1,0,1,0,0,0,1,0,1,0,0
9420 DATA 1,0,0,1,0,1,0,1,0,1,1,1,0,1,1,1,0,0
9430 DATA 1,0,0,1,0,1,1,1,0,0,0,1,0,1,1,1,0,0
9440 DATA 1,0,0,1,0,1,0,1,0,1,1,1,0,1,0,1,0,0
9450 DATA 1,1,1,0,0,0,0,0,0,0,0,0,0,1,0,1,0,0
9460 REM HIGHWAY 1
9470 DATA 0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,4
9480 DATA 0,0,0,0,0,0,0,0,0,0,0,0,3,0,0,0,0,0,0,0
9490 DATA 0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,3,0,0,0,0
9500 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,3,0,0,0,0,0,0
9510 DATA 0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0
9520 DATA 0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0
9530 :
9540 DATA 0,0,0,0,0,0,0,0,0,0,0,0,6,0,0,0,0,0,0,0
9550 DATA 0,0,0,0,0,0,0,0,5,0,0,0,4,0,0,0,0,0,0,1
9560 DATA 0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,2,0,0,0
9570 DATA 0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
9580 DATA 0,0,0,0,0,0,0,0,0,0,3,4,0,0,1,0,0,0,0,0
9590 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
9600 :
9610 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3
9620 DATA 0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0
9630 DATA 0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0
9640 DATA 0,0,1,0,0,0,0,4,0,0,0,0,0,0,0,0,0,0,0,1
9650 DATA 0,0,0,5,0,0,0,0,0,0,4,0,0,0,0,0,0,1,0,0
9660 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,5,0,0,0,0,0,0
9670 REM HIGHWAY 8
9680 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,3,0,0,0,0,0,2
9690 DATA 0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0
9700 DATA 0,0,6,0,0,0,0,1,0,0,0,0,0,4,0,0,0,0,0,0
9710 DATA 0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0
9720 DATA 0,0,0,0,0,0,0,1,0,0,0,0,3,0,0,0,6,0,0,0
9730 DATA 0,0,0,0,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
9740 :
9750 DATA 0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0
9760 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0
9770 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,5,0,0,0,0,0
9780 DATA 0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,6,0
9790 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
9800 DATA 0,0,0,0,0,0,0,0,5,0,0,0,0,0,0,0,0,0,0,0
9810 :
9820 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,5,0,4,0,0,0
9830 DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0
9840 DATA 0,0,0,0,0,0,3,0,0,0,0,0,0,0,0,0,0,0,1,0
9850 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0
9860 DATA 0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0
9870 DATA 0,0,0,0,0,0,0,0,0,0,3,0,0,0,0,0,0,0,0,0
9880 REM HIGHWAY 2
9890 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0
9900 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0
9910 DATA 0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0
9920 DATA 0,0,0,0,0,1,0,0,0,0,0,0,0,4,0,0,0,0,0,0
9930 DATA 0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0