5 DISPLAY AT(6,2)ERASE ALL:"FILPROGRAM TILL THE STONE"::"     AV FREDRIK NILSSON"::"(1) MUSIK FIL (2) GRAFIK FIL":"(3) SLUTA"
10 ACCEPT AT(12,14)SIZE(1)VALIDATE("123"):A
20 ON A GOTO 90,2900,30
30 STOP
90 OPEN#1:"CS1",SEQUENTIAL,OUTPUT,INTERNAL,FIXED 184,PERMANENT
100 CALL CLEAR :: RESTORE 710
102 FOR N=1 TO 15
105 FOR T=1 TO 14
110 READ L,F1,F2,F3,TRU
120 L$=RPT$("0",2-LEN(STR$(L)))&STR$(L) :: F1$=RPT$("0",3-LEN(STR$(F1)))&STR$(F1)
130 F2$=RPT$("0",3-LEN(STR$(F2)))&STR$(F2) :: F3$=RPT$("0",3-LEN(STR$(F3)))&STR$(F3)
140 TRU$=RPT$("0",2-LEN(STR$(TRU)))&STR$(TRU)
150 VAR$=VAR$&L$&F1$&F2$&F3$&TRU$
160 NEXT T
170 PRINT#1:VAR$ :: VAR$=""
180 PRINT "FIL BIT ";N :: NEXT N
190 VAR$="16659523440301665952339230"&RPT$("0",156)
195 PRINT#1:VAR$
196 CLOSE#1
197 GOTO 5
710 DATA 16,0,0,0,6
720 DATA 16,0,0,0,6
730 DATA 16,0,0,0,30
740 DATA 16,0,0,0,6
750 DATA 16,0,0,0,6
760 DATA 16,0,0,0,30
770 DATA 16,0,0,0,6
780 DATA 16,0,0,0,6
790 DATA 16,0,0,0,30
800 DATA 16,0,0,0,6
810 DATA 16,0,0,0,6
820 DATA 16,0,0,0,30
830 DATA 16,0,0,0,6
840 DATA 16,0,0,0,6
850 DATA 16,0,0,0,6
860 DATA 16,0,0,0,30
870 DATA 8,0,0,131,30
880 DATA 8,0,0,131,30
890 DATA 16,0,0,0,6
900 DATA 16,0,0,0,30
910 DATA 16,0,0,131,30
920 DATA 16,0,0,131,30
930 DATA 8,0,0,220,30
940 DATA 8,0,0,196,30
950 DATA 16,0,0,0,6
960 DATA 16,0,0,0,30
970 DATA 16,0,0,294,30
980 DATA 16,0,0,262,30
990 DATA 16,0,0,131,6
1000 DATA 16,0,0,131,6
1010 DATA 16,0,0,131,30
1020 DATA 16,0,0,131,6
1030 DATA 16,0,0,0,6
1040 DATA 16,0,0,0,30
1050 DATA 16,0,0,131,6
1060 DATA 16,0,0,131,6
1070 DATA 16,0,0,220,30
1080 DATA 16,0,0,220,6
1090 DATA 16,0,0,196,6
1100 DATA 16,0,0,196,30
1110 DATA 16,0,0,0,6
1120 DATA 16,0,0,0,6
1130 DATA 16,0,0,294,6
1140 DATA 16,0,0,262,30
1150 DATA 8,294,0,131,30
1160 DATA 8,294,0,131,30
1170 DATA 16,294,0,0,6
1180 DATA 16,330,0,0,30
1190 DATA 16,262,0,131,30
1200 DATA 16,262,0,131,30
1210 DATA 8,262,0,220,30
1220 DATA 8,262,0,196,30
1230 DATA 16,262,0,0,6
1240 DATA 16,262,0,0,30
1250 DATA 16,196,0,294,30
1260 DATA 16,196,0,262,30
1270 DATA 8,294,0,131,30
1280 DATA 8,294,0,131,30
1290 DATA 16,294,0,0,6
1300 DATA 16,330,0,0,30
1310 DATA 16,392,0,131,30
1320 DATA 16,392,0,131,30
1330 DATA 8,392,0,220,30
1340 DATA 8,392,0,196,30
1350 DATA 16,392,0,0,6
1360 DATA 16,392,0,0,30
1370 DATA 16,294,0,0,30
1380 DATA 16,294,0,262,30
1390 DATA 8,262,0,131,30
1400 DATA 8,262,0,131,30
1410 DATA 16,880,0,0,6
1420 DATA 16,880,0,0,30
1430 DATA 16,880,0,131,30
1440 DATA 16,880,0,131,30
1450 DATA 8,784,0,220,30
1460 DATA 8,784,0,196,30
1470 DATA 16,587,0,0,6
1480 DATA 16,587,0,0,30
1490 DATA 16,587,0,294,30
1500 DATA 16,587,0,262,30
1510 DATA 8,523,0,131,30
1520 DATA 8,523,0,131,30
1530 DATA 16,392,0,0,6
1540 DATA 16,392,0,0,30
1550 DATA 16,392,0,131,30
1560 DATA 16,392,0,131,30
1570 DATA 8,294,0,220,30
1580 DATA 8,294,0,196,30
1590 DATA 16,262,0,0,6
1600 DATA 16,262,0,0,30
1610 DATA 16,262,0,0,30
1620 DATA 16,262,0,0,30
1630 DATA 16,330,262,131,30
1640 DATA 16,349,294,131,30
1650 DATA 8,523,440,131,30
1660 DATA 16,523,440,0,6
1670 DATA 16,494,392,0,30
1680 DATA 16,494,392,131,30
1690 DATA 16,494,392,131,30
1700 DATA 8,440,349,220,30
1710 DATA 16,440,349,196,30
1720 DATA 16,392,330,196,30
1730 DATA 16,392,330,0,6
1740 DATA 16,392,330,0,30
1750 DATA 16,349,294,0,30
1760 DATA 16,349,294,262,30
1770 DATA 16,330,262,131,30
1780 DATA 16,349,294,131,30
1790 DATA 8,523,440,131,30
1800 DATA 16,523,440,0,6
1810 DATA 16,494,392,0,30
1820 DATA 16,494,392,131,30
1830 DATA 16,494,392,131,30
1840 DATA 8,659,523,220,30
1850 DATA 16,659,523,196,30
1860 DATA 16,698,587,196,30
1870 DATA 16,698,587,0,6
1880 DATA 16,698,587,0,30
1890 DATA 16,784,659,294,30
1900 DATA 16,784,659,262,30
1910 DATA 16,659,523,131,6
1920 DATA 16,659,523,131,6
1930 DATA 16,659,523,131,30
1940 DATA 16,659,523,131,6
1950 DATA 16,349,0,0,30
1960 DATA 16,349,0,311,30
1970 DATA 8,349,0,156,30
1980 DATA 8,349,0,156,30
1990 DATA 16,349,0,0,6
2000 DATA 16,392,0,0,30
2010 DATA 16,311,0,156,30
2020 DATA 16,311,0,156,30
2030 DATA 8,311,0,262,30
2040 DATA 8,311,0,233,30
2050 DATA 16,311,0,0,6
2060 DATA 16,311,0,0,30
2070 DATA 16,233,0,349,30
2080 DATA 16,233,0,311,30
2090 DATA 8,349,0,156,30
2100 DATA 8,349,0,156,30
2110 DATA 16,349,0,0,6
2120 DATA 16,392,0,0,30
2130 DATA 16,466,0,156,30
2140 DATA 16,466,0,156,30
2150 DATA 8,466,0,262,30
2160 DATA 8,466,0,233,30
2170 DATA 16,466,0,0,6
2180 DATA 16,466,0,0,30
2190 DATA 16,349,0,0,30
2200 DATA 16,349,0,311,30
2210 DATA 16,440,0,0,30
2220 DATA 16,440,0,392,30
2230 DATA 8,440,0,196,30
2240 DATA 8,440,0,196,30
2250 DATA 16,440,0,0,6
2260 DATA 16,466,0,0,30
2270 DATA 16,440,0,196,30
2280 DATA 16,440,0,196,30
2290 DATA 8,440,0,330,30
2300 DATA 8,440,0,294,30
2310 DATA 16,440,0,0,6
2320 DATA 16,440,0,0,30
2330 DATA 16,294,0,440,30
2340 DATA 16,294,0,392,30
2350 DATA 8,440,0,196,30
2360 DATA 8,440,0,196,30
2370 DATA 16,440,0,0,6
2380 DATA 16,466,0,0,30
2390 DATA 16,523,0,196,30
2400 DATA 16,523,0,196,30
2410 DATA 8,523,0,330,30
2420 DATA 8,523,0,294,30
2430 DATA 16,523,0,0,6
2440 DATA 16,523,0,0,30
2450 DATA 16,392,0,0,30
2460 DATA 16,392,0,349,30
2470 DATA 8,392,0,175,30
2480 DATA 8,392,0,175,30
2490 DATA 16,392,0,0,6
2500 DATA 16,440,0,0,30
2510 DATA 16,349,0,175,30
2520 DATA 16,349,0,175,30
2530 DATA 8,349,0,294,30
2540 DATA 8,349,0,262,30
2550 DATA 16,349,0,0,6
2560 DATA 16,349,0,0,30
2570 DATA 16,262,0,392,30
2580 DATA 16,262,0,349,30
2590 DATA 8,392,0,175,30
2600 DATA 8,392,0,175,30
2610 DATA 16,392,0,0,6
2620 DATA 16,440,0,0,30
2630 DATA 16,523,0,175,30
2640 DATA 16,523,0,175,30
2650 DATA 8,523,0,294,30
2660 DATA 8,523,0,262,30
2670 DATA 16,523,0,0,6
2680 DATA 16,523,0,0,30
2690 DATA 16,523,0,392,30
2700 DATA 16,523,0,349,30
2710 DATA 8,659,523,131,30
2720 DATA 8,659,523,131,30
2730 DATA 16,659,523,0,6
2740 DATA 16,659,523,0,30
2750 DATA 16,659,523,131,30
2760 DATA 16,659,523,131,30
2770 DATA 8,659,523,220,30
2780 DATA 8,659,523,196,30
2790 DATA 16,659,523,0,6
2800 DATA 16,659,523,0,30
2810 DATA 16,659,523,294,30
2820 DATA 16,659,523,262,30
2900 REM INSPELNING AV GRAFIKFIL
2910 OPEN#1:"CS1",SEQUENTIAL,OUTPUT,INTERNAL,FIXED 192,PERMANENT
2920 RESTORE 3100 :: FOR T=1 TO 4 :: READ A$,B$ :: PRINT#1:A$,B$ :: NEXT T
2930 RESTORE 200 :: FOR T=1 TO 19 :: READ A$,B$ :: PRINT#1:A$,B$ :: NEXT T
2940 RESTORE 4000 :: FOR T=1 TO 3 :: READ A$,B$ :: PRINT#1:A$&B$ :: NEXT T :: READ A$ :: PRINT#1:A$&RPT$("0",80)
2950 CLOSE#1
2960 GOTO 5
3100 DATA "@B@B@B@B@B@B@B@B@B@B@B@B@B@BACACACACACACACACACACACACACAC"
3110 DATA "             `b                 E        ac        E        F 8>:8<=>:;?<=9;?9 F"
3120 DATA "                                     DDD D D DDD                  D  DDD DP"
3130 DATA "  DD      D  D D DDD         DDDD                       DD  D DDDDD DDDD D  D DDDD"
3140 DATA "DD      D   DVVD DD D D      DDD    D   DVVD DDDD DDD      DD   D   DVVD D DD D"
3150 DATA "D  DD   D   DDDD D  D DDDD  DDDDD                        DDD         HK"
3160 DATA "             IL                          JM"
3170 DATA "                            @B@B@B@B@B@B@B@B@B@B@B@B@B@BACACACACACACACACACACACACACAC"
4000 DATA 25272719220701010901010901041407090109042428242728180709050704060402020803040605
4010 DATA 25212218160208110110080402061008030330222020242824231807040202020801050611052528
4020 DATA 20242226272218080310080508010425192226232025292824231802080305071201052427292122
4030 DATA 20241923252218061105071212090425212224232427191929280801010105060506052429291922
4040 DATA 25291919192308010101090909010425271922202419192719221815010905020604022629222428
4050 DATA 31222529272308090903011104060526222419282528242226220803111007091007302128251928
4060 DATA 26292224292818080903030303030426232422202419291719230605061111110506052419192923