
100 INIT 0,0:GOSUB 5000:DISPLAY 255

1000 DATA "***** ***** ***** *****",5
1010 DATA "  *   *   * *   * *     ",1
1015 DATA "  *   *   * *   * *     ",1
1020 DATA "  *   ***** ***** ***  ",5
1030 DATA "  *   *   * *     *    ",1
1035 DATA "  *   *   * *     *    ",1
1040 DATA "  *   *   * *     *****",5
1050 rem
1060 DATA "*     ***** ***** ****  ***** ****",5
1070 DATA "*     *     *   * *   * *     *   *",1
1080 DATA "*     *     *   * *   * *     *   *",5
1090 DATA "*     ***   ***** *   * ***   ****",1
1100 DATA "*     *     *   * *   * *     * * ",5
1110 DATA "*     *     *   * *   * *     *  *",1
1120 DATA "***** ***** *   * ****  ***** *   *",5

2000 CURSORY 3:FOR i=1 TO 7:READ A$,c:EG c:CURSORX 8:PRINT A$:NEXT I
2100 CURSORY 15:FOR I=1 TO 7:READ A$,c:EG c:CURSORX 3:PRINT A$:NEXT I

2200 DISPLAY 1:FOR i=1 TO 1000:NEXT i:a$="A SOUNDTRAKKER 128 MUSIC DISK":GOSUB 3000:GOSUB 3040
2210 a$="FOR THE VY5040 / VG5210 EXTENSIONS":GOSUB 3000:GOSUB 3040
2220 a$="===== PLEASE WAIT LOADING ======":GOSUB 3000:FOR i=1 TO 1000:NEXT i
2230 FOR i=1 TO 14:READ a:CURSORX 1:CURSORY a:PRINT CHR$(4);:FOR j=1 TO 75:NEXT j:NEXT i
2250 DISPLAY 20:DISKRUN"LEADER"
2260 DATA 3,20,7,17,6,19,9,15,5,16,8,21,4,18

3000 ET 7:CURSORY 12:CURSORx 20-INT(LEN(a$)/2)
3010 FOR i=1 TO LEN(a$):PRINT MID$(a$,i,1);
3020 FOR j=1 TO 125:NEXT j:NEXT I
3030 RETURN
3040 FOR J=1 TO 2000:NEXT J:CURSORX 1:CURSORY 12:PRINT CHR$(4);:RETURN

5000 SETET 32,"00000000000000000000"
5010 SETET 33,"00181818181800180000"
5020 SETET 34,"006C6C6C000000000000"
5030 SETET 35,"006C6CFE6CFE6C6C0000"
5040 SETET 36,"00183E583C1A7C180000"
5050 SETET 37,"0000C6CC183066C60000"
5060 SETET 38,"00386C3876DCCC760000"
5070 SETET 39,"00181830000000000000"
5080 SETET 40,"000C18303030180C0000"
5090 SETET 41,"0030180C0C0C18300000"
5100 SETET 42,"0000663CFF3C66000000"
5110 SETET 43,"000018187E1818000000"
5120 SETET 44,"00000000000018183000"
5130 SETET 45,"000000007E0000000000"
5140 SETET 46,"00000000000018180000"
5150 SETET 47,"00060C183060C0800000"
5160 SETET 48,"007CC6CED6E6C67C0000"
5170 SETET 49,"001838181818187E0000"
5180 SETET 50,"003C66063C60607E0000"
5190 SETET 51,"003C66061C06663C0000"
5200 SETET 52,"001C3C6CCCFE0C0C0000"
5210 SETET 53,"007E62607C06663C0000"
5220 SETET 54,"003C66607C66663C0000"
5230 SETET 55,"007E66060C1818180000"
5240 SETET 56,"003C66663C66663C0000"
5250 SETET 57,"003C66663E06663C0000"
5260 SETET 58,"00000018180018180000"
5270 SETET 59,"00000018180018183000"
5280 SETET 60,"000C18306030180C0000"
5290 SETET 61,"0000007E00007E000000"
5300 SETET 62,"006030180C1830600000"
5310 SETET 63,"003C66660C1800180000"
5320 SETET 64,"006010780C7CCC760000"
5330 SETET 65,"003C6666667E66660000"
5340 SETET 66,"007C66667C66667C0000"
5350 SETET 67,"007CC6C0C0C0C67C0000"
5360 SETET 68,"00F8CCC6C6C6C6FC0000"
5370 SETET 69,"00FEC6C0F0C0C6FE0000"
5380 SETET 70,"00FEC2C0F0C0C0C00000"
5390 SETET 71,"007CE6C0CEC6E67C0000"
5400 SETET 72,"00C6C6C6FEC6C6C60000"
5410 SETET 73,"003C18181818183C0000"
5420 SETET 74,"0006060606C6C67C0000"
5430 SETET 75,"00C6C6CCF8CCC6C60000"
5440 SETET 76,"006060606060667E0000"
5450 SETET 77,"00C6EEFEFED6C6C60000"
5460 SETET 78,"00C6E6F6DECEC6C60000"
5470 SETET 79,"007CC6C6C6C6C67C0000"
5480 SETET 80,"007C66667C6060600000"
5490 SETET 81,"007CC6C6C6DACC760000"
5500 SETET 82,"007C66667C6C66660000"
5510 SETET 83,"003C66603C06663C0000"
5520 SETET 84,"007E1818181818180000"
5530 SETET 85,"006666666666663C0000"
5540 SETET 86,"0066666666663C180000"
5550 SETET 87,"00C6C6C6D6FEEEC60000"
5560 SETET 88,"00C66C3838386CC60000"
5570 SETET 89,"006666663C1818180000"
5580 SETET 90,"00FE060C183060FE0000"
5590 SETET 91,"003C30303030303C0000"
5600 SETET 92,"0000003C66603E081800"
5610 SETET 93,"003C0C0C0C0C0C3C0000"
5620 SETET 94,"00182400000000000000"
5630 SETET 95,"0000000000000000FF00"
5640 SETET 96,"0030180C000000000000"
5650 SETET 97,"000000780C7CCC760000"
5660 SETET 98,"0060607C6666667C0000"
5670 SETET 99,"0000003C6660663C0000"
5680 SETET 100,"000C0C7CCCCCCC7C0000"
5690 SETET 101,"0000003C667E603C0000"
5700 SETET 102,"001C3630783030300000"
5710 SETET 103,"0000003E66663E063C00"
5720 SETET 104,"0060606C766666660000"
5730 SETET 105,"00180018181818180000"
5740 SETET 106,"0006000E060666663C00"
5750 SETET 107,"006060666C786C660000"
5760 SETET 108,"00181818181818180000"
5770 SETET 109,"0000006CFED6C6C60000"
5780 SETET 110,"0000003C666666660000"
5790 SETET 111,"0000003C6666663C0000"
5800 SETET 112,"0000007C66667C606000"
5810 SETET 113,"0000007CCCCC7C0C0C00"
5820 SETET 114,"0000005C766060600000"
5830 SETET 115,"0000003C603C067C0000"
5840 SETET 116,"0030303C3030361C0000"
5850 SETET 117,"000000666666663E0000"
5860 SETET 118,"0000006666663C180000"
5870 SETET 119,"000000C6D6D6FE6C0000"
5880 SETET 120,"000000C66C386CC60000"
5890 SETET 121,"0000006666663E063C00"
5900 SETET 122,"0000007E4C18327E0000"
5910 SETET 123,"0006083C667E603C0000"
5920 SETET 124,"003008666666663E0000"
5930 SETET 125,"0060103C667E603C0000"
5940 SETET 126,"0076DC00000000000000"
5950 SETET 127,"003C6660F86066FE0000"

6000 SETEG 42,"FF55AA55AA55AA55AA00"
6010 SETEG 32,"00000000000000000000"
6020 SETEG 38,"FFD5AAD5AAD5AAD5AA00"

6030 REM

6040 SETEG 127,"00000077777700000000"
6050 SETEG 126,"000000BBBBBB00000000"
6060 SETET 126,"0404040404041C3C3C18"
6070 RETURN

