10 MODE 7
20 PRINTTAB(10,10);CHR$(141);CHR$(129
);"Please Wait"
30 PRINTTAB(10,11);CHR$(141);CHR$(129
);"Please Wait"
40 PRINT''''
50 PROCCLEAR
60 DEST=&5000
70 CHKSUM=0
80 RESTORE 280
90 REPEAT
100 READ A$
110 IF A$="DEST" READ A$:DEST=EVAL("&"
+A$):GOTO100
120 A=EVAL("&"+A$)
130 CHKSUM=CHKSUM+A
140 ?DEST=A
150 DEST=DEST+1
160 UNTIL A$="END"
170 IF CHKSUM<>152841 PRINT">> There a
re some mistake in DATA":PRINT'':END
180 CALL &4900
190 IF ?&70=1 PRINT">> Ctrl Break...Pl
ease";:FORM=1 TO 1000000:NEXTM
200 IF ?&70=2 PRINT">> You don't have
any sideways RAM"
210 IF ?&70=2 PRINT">> Please insert o
ne..."
220 END
230 DEFPROCCLEAR
240 FORN%=&5000 TO &7000
250 ?N%=0
260 NEXT
270 ENDPROC
280 DATA 0, 0, 0,4C,20,81,82,11
290 DATA 1,44,49,53,4B,2D,52,4F
300 DATA 4D, 0,28,43,29,20,52,75
310 DATA 69,20,50,61,75,6C,6F,20
320 DATA 47,6F,6E,63,61,6C,76,65
330 DATA 73,20,64,65,20,4F,6C,69
340 DATA 76,65,69,72,61,20,20,20
350 DATA 20,20,31,37,2F,30,31,2F
360 DATA 38,36, 0, 0, 0, 0, 0, 0
370 DATA DEST,5050
380 DATA 52,53,41,56,45,50,82,52
390 DATA 4C,4F,41,44,70,84,52,43
400 DATA 41,54, 0,85,52,44,45,4C
410 DATA 45,54,45,30,85,44,49,53
420 DATA 43,2F,52,4F,4D,20,82, 0
430 DATA D, 0, 0, 0, 0, 0, 0, 0
440 DATA DEST,5100
450 DATA 0, 0,87, 0, 0, 0, 0, D
460 DATA DEST,5120
470 DATA 48,98,48,8A,48,BA,A9, 0
480 DATA 85,8E,BD, 3, 1,C9, 4,D0
490 DATA 3,4C,85,81,C9, 2,D0, 3
500 DATA 4C,6C,81,C9, 9,D0, 3,4C
510 DATA B5,81,A5,8E,C9, A,D0, 6
520 DATA A9, 0,BA,9D, 3, 1,68,AA
530 DATA 68,A8,68,60,A9, 0,8D,C0
540 DATA FC,A0, 0,84,7C,A9,81,85
550 DATA 7D,B9,70, 0,91,7C,C8,C0
560 DATA 9,D0,F6,60,84,7A,A9, 0
570 DATA 85,7B,A9,81,85,7C,A0, 0
580 DATA B1,7B,99,70, 0,C8,C0, A
590 DATA D0,F6,4C,42,81,84,7A,A2
600 DATA 0,A4,7A,B1,F2,C9, D,F0
610 DATA 16,C9,20,F0,12,DD,50,80
620 DATA F0, 8,E8,E0,50,D0,EA,4C
630 DATA 42,81,C8,E8,4C,8B,81,BD
640 DATA 50,80,85,86,E8,BD,50,80
650 DATA 85,87,6C,86, 0,B1,F2,C9
660 DATA D,F0,26,4C,F3,81,44,49
670 DATA 53,43,2F,52,4F,4D, D, D
680 DATA 52,4C,4F,41,44, D,52,53
690 DATA 41,56,45, D,52,44,45,4C
700 DATA 45,54,45, D,52,43,41,54
710 DATA D,A2,BE,A0,81,20,E7,FF
720 DATA A9, 8,20,F6,81,20,E7,FF
730 DATA 4C,42,81,4C,85,81,86,7E
740 DATA 84,7F,A0, 0,48,B1,7E,C8
750 DATA 84,7A,C9, D,D0, 3,20,E7
760 DATA FF,20,EE,FF,68,C5,7A,D0
770 DATA EB,60, 0, 0, 0, 0, 0, 0
780 DATA DEST,5220
790 DATA 20,E7,FF,20,E7,FF,A2,BE
800 DATA A0,81,A9,22,20,F6,81,4C
810 DATA 42,81, 0, 0, 0, 0, 0, 0
820 DATA DEST,5250
830 DATA A9, A,85,8E,20,5D,82,20
840 DATA B9,82,4C,42,81,C8,A2, 0
850 DATA 86,85,84,88,B1,F2,C9, D
860 DATA F0, C,E6,85,C8,A9, 7,C5
870 DATA 85,F0,41,4C,64,82,A4,88
880 DATA B1,F2,DD, 0,86,F0,1D,A4
890 DATA 88,E8,86,89,8A,29, 7,C9
900 DATA 7,D0,ED,A5,89,29,F0,C9
910 DATA F0,F0,1C,A9, 9,18,65,89
920 DATA AA,4C,78,82,C9, D,F0, 5
930 DATA E8,C8,4C,78,82,A9,FF,85
940 DATA 8C,8A,29,F0,85,8D,60,A9
950 DATA 0,85,8C,60,A9, 5,85,8C
960 DATA 60,A9,FF,C5,8C,D0, 3,4C
970 DATA 7B,83,A9, 5,C5,8C,D0, 3
980 DATA 4C,95,83,A5,13,38,E5,18
990 DATA 85,78,A5,12,85,77,18,A9
1000 DATA 2,65,77,85,77,A9, 0,65
1010 DATA 78,85,78,18,A5,77,65,71
1020 DATA A5,72,65,78,C9,BF,B0, 3
1030 DATA 4C,F6,82,4C,88,83,4C,BC
1040 DATA 83,4E,61,6D,65,20,65,78
1050 DATA 69,73,74,20,20,20,20,20
1060 DATA 46,61,75,6C,74,20,6F,66
1070 DATA 20,6D,65,6D,6F,72,79,20
1080 DATA 20,46,61,75,6C,74,20,6F
1090 DATA 66,20,73,70,61,63,65,20
1100 DATA 69,6E,20,43,41,54,20,20
1110 DATA 4C,6F,6E,67,20,6E,61,6D
1120 DATA 65,20,20,20,20,20,20,20
1130 DATA 20,20,20,20,4E,61,6D,65
1140 DATA 20,64,6F,65,73,6E,27,74
1150 DATA 20,65,78,69,73,74,20,20
1160 DATA 20,20,20,20,20,20,20,20
1170 DATA 20,20,20,20, D, 0, 0, 0
1180 DATA DEST,5378
1190 DATA 0, 0, 0,A2,F9,A0,82,A9
1200 DATA E,20,F6,81,20,E7,FF,60
1210 DATA A2, 8,A0,83,A9,11,20,F6
1220 DATA 81,20,E7,FF,60,A2,30,A0
1230 DATA 83,A9,14,20,F6,81,20,E7
1240 DATA FF,60,A2,19,A0,83,A9,16
1250 DATA 20,F6,81,20,E7,FF,60,A2
1260 DATA 44,A0,83,A9,16,20,F6,81
1270 DATA 20,E7,FF,60,A9, 0,8D,C0
1280 DATA FC,A9,86,85,74,A5,70,85
1290 DATA 73,A2, 0,A4,88,B1,F2,E6
1300 DATA 88,48,8A,A8,68,91,73,C9
1310 DATA D,F0, 4,E8,4C,CB,83,A4
1320 DATA 70,A5,71,99, 7,86,A5,72
1330 DATA 99, 8,86,A5,77,99, 9,86
1340 DATA A5,78,99, A,86,18,A5,70
1350 DATA C9,F0,D0, 3,4C,A2,83,69
1360 DATA 10,85,70,A9, 0,85,73,85
1370 DATA 74,A5,18,85,76,A9, 0,85
1380 DATA 75,A0, 0,B1,75,91,71,18
1390 DATA A9, 1,65,73,85,73,A9, 0
1400 DATA 65,74,85,74,C5,78,D0, 6
1410 DATA A5,77,C5,73,F0,1D,18,A9
1420 DATA 1,65,71,85,71,A9, 0,65
1430 DATA 72,85,72,18,A9, 1,65,75
1440 DATA 85,75,A9, 0,65,76,85,76
1450 DATA 4C,11,84,20,54,81,A9, 1
1460 DATA 8D,C0,FC,60, 0, 0, 0, 0
1470 DATA DEST,5470
1480 DATA A9, A,85,8E,20,5D,82,20
1490 DATA 7D,84,4C,42,81,A5,8C,C9
1500 DATA 5,F0, 7,C9,FF,F0, 6,4C
1510 DATA AF,83,4C,95,83,20,91,84
1520 DATA 60,A6,8D,BD, 7,86,85,73
1530 DATA BD, 8,86,85,74,BD, 9,86
1540 DATA 85,80,BD, A,86,85,81,A9
1550 DATA 0,85,75,A5,18,85,76,A9
1560 DATA 0,85,82,85,83,A0, 0,B1
1570 DATA 73,91,75,18,A5,81,C5,83
1580 DATA D0, 7,A5,80,C5,82,D0, 1
1590 DATA 60,18,A9, 1,65,73,85,73
1600 DATA A9, 0,65,74,85,74,18,A9
1610 DATA 1,65,75,85,75,A9, 0,65
1620 DATA 76,85,76,18,A9, 1,65,82
1630 DATA 85,82,A9, 0,65,83,85,83
1640 DATA 4C,B7,84, 0, 0, 0, 0, 0
1650 DATA DEST,5500
1660 DATA A9, A,85,8E,A2, 0,20,E7
1670 DATA FF,8A,C5,70,F0,14,AA,BD
1680 DATA 0,86,E8,20,E3,FF,C9, D
1690 DATA D0,F5,8A,29,F0,69, F,4C
1700 DATA A,85,20,E7,FF,4C,42,81
1710 DATA DEST,5530
1720 DATA A9, A,85,8E,20,5D,82,A5
1730 DATA 8C,C9, 5,F0, 7,C9,FF,F0
1740 DATA 6,4C,AF,83,4C,95,83,A9
1750 DATA 0,8D,C0,FC,A5,8D,69, 6
1760 DATA AA,BD, 0,86,85,75,E8,BD
1770 DATA 0,86,85,76,E8,BD, 0,86
1780 DATA 85,8A,E8,BD, 0,86,85,8B
1790 DATA 38,A5,8A,E9, 1,85,8A,A5
1800 DATA 8B,E9, 0,85,8B,18,A5,75
1810 DATA 65,8A,85,73,A5,76,65,8B
1820 DATA 85,74,38,A9, 0,E5,73,85
1830 DATA 80,A9,C0,E5,74,85,81,A0
1840 DATA 0,84,82,84,83,20,B7,84
1850 DATA A5,8D,18,69,10,A8,A5,8D
1860 DATA C5,70,F0,2D,AA,B9, 0,86
1870 DATA 48,98,29, F,C9, 7,F0, A
1880 DATA 68,9D, 0,86,E8,C8,8A,4C
1890 DATA A0,85,38,B9, 0,86,E5,8A
1900 DATA 9D, 0,86,E8,C8,B9, 0,86
1910 DATA E5,8B,9D, 0,86,68,4C,B4
1920 DATA 85,38,A5,70,E9,10,85,70
1930 DATA 38,A5,71,E5,8A,85,71,A5
1940 DATA 72,E5,8B,85,72,20,54,81
1950 DATA A9, 1,8D,C0,FC,4C,42,81
1960 DATA DEST,4900
1970 DATA A9, 0,85,70,A5,F4,85,75
1980 DATA A2, 0,8E,30,FE,86,F4,A9
1990 DATA 0,8D, 3,80,AD, 3,80,D0
2000 DATA 3E,A9, 1,85,70,A9,50,85
2010 DATA 72,A9,80,85,74,A9, 0,85
2020 DATA 71,85,73,A0, 0,B1,71,91
2030 DATA 73,18,A9, 1,65,71,85,71
2040 DATA A9, 0,65,72,85,72,18,A9
2050 DATA 1,65,73,85,73,A9, 0,65
2060 DATA 74,85,74,C9,87,D0,DC,A5
2070 DATA 75,85,F4,8D,30,FE,60,E8
2080 DATA E0,10,F0, 3,4C, A,49,A5
2090 DATA 75,85,F4,8D,30,FE,A9, 2
2100 DATA 85,70,60, 0, 0, 0, 0, 0
2110 DATA END