100 CLEAR 32767
110 PRINT AT 5,2;"Insert Jet Set Willy master";AT 7,8;"and start tape"
120 LOAD "jsw1"CODE
130 LET x=61184
140 LET line=500
150 LET sum=0: RESTORE line
160 GO SUB 390
170 READ chksum
180 IF chksum=sum THEN GO TO 210
190 GO SUB 430
200 STOP
210 LET x=x+8
220 IF x<>61440 THEN LET line=line+10: GO TO 150
230 LET x=41856: LET line=line+10
240 LET sum=0: RESTORE line
250 GO SUB 390
260 READ chksum
270 IF chksum=sum THEN GO TO 300
280 GO SUB 430
290 STOP
300 LET x=x+8
310 IF x<>41888 THEN LET line=line+10: GO TO 240
320 POKE 42183,175
330 POKE 42439,106
340 POKE 60231,0
350 POKE 59901,82
360 POKE 56876,4
370 POKE 64235,47
380 RANDOMIZE USR 33792
390 FOR y=0 TO 7
400 READ z: POKE (x+y),z: LET sum=sum+z
410 NEXT y
420 RETURN
430 CLS: PRINT AT 5,0;"Error in line ";line;" !";AT 7,0;"Please check and rerun";AT 9,0;"Using RUN 130"
440 RETURN
|
500 DATA 170, 170, 170, 170, 170, 170, 170, 170, 1360
510 DATA 192, 0, 0, 0, 0, 0, 0, 3, 195
520 DATA 200, 8, 0, 0, 0, 0, 0, 3, 211
530 DATA 200, 8, 0, 0, 0, 0, 0, 2, 210
540 DATA 194, 32, 84, 0, 0, 0, 0, 0, 310
550 DATA 192, 65, 2, 0, 0, 1, 0, 0, 260
560 DATA 192, 65, 0, 0, 5, 0, 64, 10, 336
570 DATA 192, 64, 168, 0, 0, 0, 0, 3, 427
580 DATA 192, 128, 2, 0, 128, 0, 0, 3, 453
590 DATA 192, 2, 2, 2, 0, 144, 0, 3, 345
600 DATA 193, 0, 92, 0, 0, 20, 1, 3, 309
610 DATA 192, 0, 0, 0, 0, 0, 0, 67, 259
620 DATA 192, 0, 0, 2, 0, 0, 0, 19, 213
630 DATA 232, 0, 0, 0, 85, 64, 0, 11, 392
640 DATA 192, 128, 0, 0, 0, 0, 40, 3, 363
650 DATA 192, 42, 0, 5, 0, 0, 0, 3, 242
660 DATA 32, 32, 32, 32, 32, 32, 32, 32, 256
670 DATA 32, 32, 65, 112, 114, 105, 108, 32, 600
680 DATA 83, 104, 111, 119, 101, 114, 115, 32, 779
690 DATA 32, 32, 32, 32, 32, 32, 32, 32, 256
700 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0
710 DATA 0, 1, 24, 36, 36, 66, 141, 141, 445
720 DATA 66, 60, 4, 24, 36, 36, 66, 141, 433
730 DATA 141, 66, 60, 2, 24, 36, 36, 66, 431
740 DATA 141, 141, 66, 60, 7, 0, 0, 0, 415
750 DATA 0, 128, 64, 32, 16, 3, 240, 16, 499
760 DATA 36, 66, 141, 141, 66, 60, 0, 108, 618
770 DATA 94, 11, 0, 158, 95, 3, 0, 0, 361
780 DATA 0, 136, 86, 41, 40, 38, 33, 41, 415
790 DATA 6, 0, 41, 0, 58, 0, 0, 0, 105
800 DATA 112, 133, 113, 7, 114, 12, 115, 92, 698
810 DATA 255, 0, 0, 0, 0, 0, 0, 0, 255
820 DATA 2, 37, 133, 80, 8, 191, 80, 208, 739
830 DATA 129, 97, 7, 16, 0, 185, 7, 25, 466
840 DATA 18, 102, 12, 128, 2, 171, 64, 208, 705
850 DATA 18, 34, 92, 48, 4, 183, 48, 128, 555
|