Atari 8-bit Source code

9 DIM A$(50),​L(8),​N2$(15),​NAME$(15),​N1$(11)
10 REM ZN.SADA
20 DATA 255,​255,​24,​24,​24,​24,​24,​24
30 DATA 255,​255,​62,​127,​103,​103,​127,​62
40 DATA 255,​255,​97,​115,​115,​127,​109,​109
50 DATA 255,​255,​3,​51,​55,​48,​48,​48
60 DATA 0,​0,​16,​56,​126,​56,​16,​0
70 DATA 0,​126,​126,​96,​126,​6,​126,​126
80 DATA 0,​0,​126,​126,​102,​102,​126,​126
90 DATA 127,​127,​96,​96,​127,​127,​96,​96
100 DATA 254,​254,​12,​30,​30,​12,​108,​124
110 MOVE 57344,​34816,​1024
120 RESTORE 20:​FOR A=35328 TO 35399:​READ B:​POKE A,​B:​NEXT A
125 GOSUB 6000:​GOSUB 5000
130 GRAPHICS 8:​COLOR 3:​POKE 710,​10:​POKE 709,​0:​POKE 756,​136:​A$=" ":​SOUND 0,​200,​12,​5:​POKE 752,​1
140 FOR A=0 TO 117:​TEXT A,​0,​A$:​NEXT A:​DSOUND:​SOUND 0,​10,​0,​10
150 FOR B=0 TO 15 STEP 3:​TEXT A,​B,​A$:​A=A-1:​NEXT B:​DSOUND
160 TEXT 144,​31,​"For":​TEXT 80,​39,​"Panda SWP Corporation":​PAUSE 100
170 FOR W=0 TO 80 STEP 3:​PLOT 0,​0:​DRAWTO W,​60:​PLOT 319,​0:​DRAWTO 319-W,​60:​NEXT W
200 TEXT 128,​48,​"Present":​FOR W=1 TO 5:​FOR E=50 TO 80:​SOUND 0,​E,​10,​10:​NEXT E
205 FOR E=80 TO 50 STEP -1:​SOUND 0,​E,​10,​10:​NEXT E:​NEXT W:​DSOUND
210 FOR A=40 TO 279 STEP 6:​CIRCLE A,​84,​10:​CIRCLE A,​124,​10:​NEXT A
220 A$=""
230 FOR A=1 TO 22:​TEXT 68+A*8-8,​100,​A$(A,​A):​FOR B=0 TO 50:​SOUND 0,​B,​2,​10:​NEXT B:​DSOUND:​NEXT A
240 J=0:​FOR A=142 TO 147:​PLOT 0,​A+J:​DRAWTO 319,​A+J:​J=J+1.1500000000000001^(A-142):​NEXT A
250 PAUSE 50:​? " 1989 AK-PLZEN":​?:​? " Stiskni  pro pokracovani"
253 DATA 173,​200,​2,​105,​1,​141,​200,​2,​169,​5,​141,​26,​2,​96
255 RESTORE 253:​FOR A=1536 TO 1549:​READ B:​POKE A,​B:​NEXT A:​POKE 552,​0:​POKE 553,​6:​POKE 538,​5
260 GOSUB 32000:​DSOUND
270 POKE 538,​0
280 REM 
283 DATA 169,​30,​133,​77,​169,​1,​141,​26,​2,​96
285 RESTORE 283:​FOR I=32050 TO 32059:​READ B:​POKE I,​B:​NEXT I:​POKE 552,​50:​POKE 553,​125:​POKE 538,​1
290 GRAPHICS 0:​DL=PEEK(560)+PEEK(561)*256:​POKE 709,​10:​POKE 710,​0:​POKE 712,​10:​POKE 752,​1
292 POSITION 4,​0:​? "Atari System 800Xl - 8-bit v 1.0 "
295 FOR Q=DL+6 TO DL+27:​POKE Q,​PEEK(Q)+128:​NEXT Q
300 DATA 72,​138,​72,​174,​34,​6,​224,​15,​208,​2,​162,​0,​142,​34,​6,​238,​34,​6,​141,​10,​212,​189,​35,​6,​141,​26,​208,​104,​170,​104,​64
310 RESTORE 300:​FOR A=32000 TO 32030:​READ B:​POKE A,​B:​NEXT A
320 P=0:​FOR A=1571 TO 1597:​POKE A,​P:​P=P+2:​NEXT A:​POKE 1570,​0
330 POKE 512,​0:​POKE 513,​125:​POKE 54286,​192
340 A$="":​X=2:​Y=3:​GOSUB 20000
350 A$=" H L A V N I M E N U ":​X=2:​Y=4:​GOSUB 20000
360 A$="":​X=2:​Y=5:​GOSUB 20000
370 PAUSE 20:​A$="Pokyny pro uzivatele :​":​X=2:​Y=7:​GOSUB 20000
380 A$="______________________":​X=2:​Y=8:​GOSUB 20000
390 PAUSE 20:​A$=" ... HARDCOPY normal":​X=2:​Y=10:​GOSUB 20000
400 A$=" .... POSUNUTI PAPIRU ":​X=2:​Y=11:​GOSUB 20000
410 A$=" ..... NAVRAT DO MENU ":​X=2:​Y=12:​GOSUB 20000
420 A$=" ... INVERSE OBRAZOVKY ":​X=2:​Y=13:​GOSUB 20000
430 A$=" .... SPECIAL HARDCOPY [2 * 2]":​X=2:​Y=14:​GOSUB 20000
440 A$=" ... NAHRATI OBRAZOVKY ":​X=2:​Y=15:​GOSUB 20000
445 A$=" ...... NAHRATI NOVEHO OBRAZKU":​X=2:​Y=16:​GOSUB 20000
448 A$=" ...... ORAMOVANI OBRAZOVKY":​X=2:​Y=17:​GOSUB 20000
450 A$=" ...... SPEC. HARDCOPY [s(1)*v(2)]":​X=2:​Y=18:​GOSUB 20000
453 A$=" ...... SPEC. HARDCOPY [s(2)*v(1)]":​X=2:​Y=19:​GOSUB 20000
458 A$="************************************":​X=2:​Y=20:​GOSUB 20000
460 PAUSE 20:​A$="STISKNI KLAVESU '' PRO POKRACOVANI ":​X=2:​Y=22:​GOSUB 20000
465 POKE DL+27,​2
470 POKE 764,​255:​POKE 54286,​0
480 IF PEEK(764)=62 THEN GOTO 500
490 GOTO 480
500 REM 
510 POKE 1784,​1:​POKE 1785,​1:​POKE 764,​255:​GRAPHICS 1:​POKE 710,​0:​POKE 752,​1:​? #6:​? #6:​? #6;"POKYNY PRO UZIVATELE"
520 ? #6;"____________________":​? #6:​? #6;"":​? #6;" klavesu"
530 POKE 764,​255:​TRAP 540:​CLOSE #1:​OPEN #1,​4,​0,​"T:​":​GOTO 550
540 ? #6;"error (STOP PROGRAM)":​END
550 ? #6:​? #6;"nazev:​ ";:​NAME$="":​N1$="":​N2$=""
565 FOR W=0 TO 9:​NAME$(W+1,​W+1)=CHR$(PEEK(7*256+1+W)):​NEXT W:​? #6;NAME$
567 N2$="T:​":​N2$(3,​13)=NAME$
570 ? "NAHRAT ? (/)"
580 IF PEEK(764)=63 THEN POKE 764,​255:​GOSUB 8000:​GOTO 600
590 IF PEEK(764)=35 THEN GOTO 500
595 GOTO 580
600 GRAPHICS 8+16:​POKE 710,​10:​POKE 709,​0:​POKE 712,​4:​VR=PEEK(88)+PEEK(89)*256
610 TRAP 615:​BGET #1,​VR,​7680
615 CLOSE #1
620 FOR E=1 TO 5:​FOR A=0 TO 100:​SOUND 1,​A,​10,​5:​NEXT A:​FOR A=100 TO 0 STEP -1:​SOUND 1,​A,​10,​5:​NEXT A:​NEXT E:​DSOUND
625 POKE 732,​0:​POKE 764,​255
628 POKE 1784,​1:​POKE 1785,​1
630 IF PEEK(732)=17 THEN POKE 732,​0:​GOTO 280
640 IF PEEK(764)=12 THEN POKE 764,​255:​GOTO 710
650 IF PEEK(53279)=5 THEN GOTO 750
660 IF PEEK(764)=28 THEN 500
670 IF PEEK(764)=33 THEN SI=2:​VY=2:​GOTO 800
680 IF PEEK(764)=44 THEN 770
690 IF PEEK(764)=30 THEN SI=1:​VY=2:​GOTO 800
695 IF PEEK(764)=31 THEN SI=2:​VY=1:​GOTO 800
700 GOTO 628
710 CLOSE #1
715 OPEN #1,​8,​0,​N2$
720 BPUT #1,​VR,​7680:​CLOSE #1:​GOTO 620
750 REM 
760 FOR X=VR TO X+7680:​POKE X,​255-PEEK(X):​NEXT X:​GOTO 620
770 REM 
780 COLOR 3:​PLOT 0,​0:​DRAWTO 319,​0:​PLOT 0,​191:​DRAWTO 319,​191
790 PLOT 0,​0:​DRAWTO 0,​191:​PLOT 319,​0:​DRAWTO 319,​191:​GOTO 620
800 REM 
805 POKE 764,​0:​POKE 559,​34
810 X=0:​CLOSE #1:​OPEN #1,​8,​16*SI+VY,​"P:​":​ZS=37120+776:​POKE 1783,​0:​PZS=PEEK(756):​? #1
815 POKE 559,​0
820 FOR Q=0 TO 39
830 Y=191:​X=Q*8
840 FOR Q1=0 TO 23
850 FOR G=X TO X+7
860 FOR H=Y TO Y-7 STEP -1
865 LOCATE G,​H,​L:​L(Y-H+1)=L
868 NEXT H
870 M=L(1)*128+L(2)*64+L(3)*32+L(4)*16+L(5)*8+L(6)*4+L(7)*2+L(8)*1
973 POKE ZS,​M:​ZS=ZS+1
975 NEXT G:​Y=H
977 NEXT Q1
978 POKE 559,​34:​SOUND 0,​10,​10,​10:​FOR V=1 TO 100:​NEXT V:​DSOUND:​ZS=37120+776
979 POKE 756,​145:​? #1;"abcdefghijklmnopqrstuvwxyz"
980 POKE 559,​0
985 NEXT Q:​CLOSE #1:​POKE 756,​PZS:​POKE 1783,​1:​POKE 559,​34:​SI=1:​VY=1:​GOTO 620
1999 STOP
5000 REM 
5010 GRAPHICS 9
5020 FOR S=1 TO 12
5030 COLOR S:​TEXT 0,​S*8-8,​"PANDA-soft"
5040 NEXT S
5050 FOR S=12 TO 0 STEP -1
5060 COLOR S:​TEXT 0,​96+(12-S)*8,​"PANDA-soft"
5070 NEXT S
5080 FOR E=1 TO 200
5090 SOUND 0,​E,​8,​10:​SOUND 1,​E+1,​6,​10:​SOUND 2,​E+2,​4,​10:​SOUND 3,​E+3,​0,​10
5100 NEXT E:​DSOUND:​PAUSE 50
5110 FOR A=0 TO 87
5120 COLOR INT(A/6):​PLOT 0,​A:​DRAWTO 79,​A
5125 PLOT 0,​191-A:​DRAWTO 79,​191-A
5127 SOUND 0,​ABS(INT(200-(A*2))),​0,​10
5130 NEXT A:​DSOUND:​PAUSE 50
5140 TEXT 0,​88,​" ":​TEXT 4,​88,​"TOMI-soft ":​PAUSE 25
5150 SOUND 0,​243,​10,​10:​PAUSE 25:​SOUND 1,​121,​10,​10:​PAUSE 25:​SOUND 2,​60,​10,​10:​PAUSE 25:​SOUND 3,​29,​10,​10:​PAUSE 100
5160 DSOUND:​PAUSE 100:​RETURN
6000 GRAPHICS 0:​POKE 752,​1:​POKE 710,​0:​POKE 709,​0
6010 POSITION 3,​10:​? "Programm for Printer BT-100 ' TESLA ' Programm by Tomas Pechmann v 1.0":​PAUSE 50
6020 FOR A=0 TO 10 STEP 0.05:​POKE 709,​A:​SOUND 0,​140,​12,​INT(A):​NEXT A:​PAUSE 120
6030 FOR A=10 TO 0 STEP -0.05:​POKE 709,​A:​SOUND 0,​140,​12,​INT(A):​NEXT A:​DSOUND:​PAUSE 50:​RETURN
8000 ? "JE LIBO NOVY NAZEV ? (/)"
8010 ? #6:​? #6;"nahravaci nazev :​"
8020 FOR A=3 TO LEN(N2$)
8030 IF N2$(A,​A)=":​" THEN POP:​PAUSE 150:​GOTO 8055
8040 ? #6;N2$(A,​A);
8050 NEXT A
8055 POKE 764,​255
8060 IF PEEK(764)=63 THEN POKE 764,​255:​GOTO 8100
8070 IF PEEK(764)=35 THEN POKE 764,​255:​GOTO 8130
8080 GOTO 8060
8100 ? #6:​? #6;"novy nazev :​"
8110 INPUT "ZADEJ  NAZEV :​ ";N1$
8115 IF LEN(N1$)>10 THEN N1$="":​GOTO 8110
8120 N2$="T:​":​N2$(3,​LEN(N1$)+3)=N1$:​? #6;N2$:​PAUSE 200
8130 RETURN
19999 STOP
20000 REM 
20010 FOR A=1 TO LEN(A$):​POSITION X+A-1,​Y:​? A$(A,​A)
20015 IF A$(A,​A)=" " THEN SOUND 0,​10,​10,​3:​PAUSE 1:​DSOUND:​GOTO 20030
20020 FOR B=1 TO 15:​SOUND 0,​B,​8,​3:​NEXT B:​DSOUND
20030 NEXT A:​RETURN
31999 STOP
32000 REM 
32001 REM (c) 1985 by Kemal Ezcan
32002 RESTORE 32022:​GOSUB 32090
32003 POKE 53768,​1
32004 SOUND 0,​0,​10,​10:​SOUND 1,​0,​10,​10:​SOUND 2,​0,​10,​10:​SOUND 3,​0,​10,​10
32005 C=C+1:​IF C>8 THEN C=1:​READ BD,​RD,​SD
32006 ST=ASC(S$(C+SD,​C+SD))
32007 BT=ASC(B$(C+BD,​C+BD)):​SOUND 3,​BT,​12,​8
32008 PAUSE 3:​IF PEEK(53279)=5 THEN RETURN
32009 RDIS=1:​A=ASC(R$(C+RD,​C+RD)):​IF A<>0 THEN RT=A:​RL=12
32010 READ T,​E:​IF T=-1 THEN 32016
32011 SOUND 0,​T,​10,​12
32012 FOR I=15 TO 4 STEP -1.6:​SOUND 1,​ST,​12,​I:​SOUND 2,​RT,​8,​RL:​RL=RL-0.9*(RL>=0.6):​NEXT I
32013 SOUND 2,​0,​3,​10
32014 IF E=0 THEN SOUND 0,​0,​0,​0
32015 GOTO 32005
32016 FOR I=15 TO 4 STEP -1:​SOUND 0,​91,​10,​I:​SOUND 1,​121,​10,​I:​SOUND 2,​72,​10,​I:​SOUND 3,​0,​0,​0:​NEXT I
32017 FOR I=15 TO 4 STEP -1:​SOUND 0,​91,​10,​I:​SOUND 1,​121,​10,​I:​SOUND 2,​72,​10,​I:​SOUND 3,​0,​0,​0:​NEXT I
32018 FOR I=15 TO 4 STEP -1:​SOUND 0,​96,​10,​I:​SOUND 1,​121,​10,​I:​SOUND 2,​81,​10,​I:​SOUND 3,​0,​0,​0:​NEXT I
32019 FOR I=15 TO 0 STEP -0.8:​SOUND 0,​91,​10,​I:​SOUND 1,​121,​10,​I:​SOUND 2,​72,​10,​I:​SOUND 3,​0,​0,​0:​NEXT I
32020 RETURN
32021 STOP
32022 DATA 56,​0,​56,​0,​1,​0,​1,​0,​1,​0,​1,​0,​1,​0,​1,​0,​1,​0,​1
32023 DATA 56,​0,​56,​72,​0,​72,​0,​81,​0,​72,​0,​0,​1,​0,​1,​0,​1,​0,​1
32024 DATA 56,​0,​56,​0,​1,​0,​1,​0,​1,​0,​1,​0,​1,​0,​1,​0,​1,​0,​1
32025 DATA 0,​0,​56,​72,​0,​72,​0,​81,​0,​72,​0,​0,​1,​0,​1,​0,​1,​0,​1
32026 DATA 0,​8,​56,​0,​1,​0,​1,​0,​1,​0,​1,​0,​1,​0,​1,​0,​1,​0,​1
32027 REM 
32028 DATA 56,​0,​0,​72,​0,​72,​0,​72,​0,​81,​1,​81,​0,​72,​1,​72,​0,​60,​0
32029 DATA 56,​0,​0,​33,​0,​33,​0,​35,​0,​45,​1,​45,​0,​40,​1,​40,​0,​0,​1
32030 DATA 56,​0,​0,​60,​0,​60,​0,​60,​0,​60,​1,​60,​0,​91,​1,​91,​0,​45,​0
32031 DATA 56,​0,​8,​22,​0,​22,​0,​22,​0,​22,​0,​23,​1,​23,​0,​26,​1,​26,​0
32032 DATA 56,​0,​16,​60,​0,​60,​0,​60,​0,​72,​1,​72,​0,​81,​0,​91,​0,​81,​1
32033 DATA 56,​0,​24,​81,​1,​81,​1,​81,​1,​81,​0,​68,​1,​68,​1,​68,​1,​68,​0
32034 DATA 56,​0,​16,​60,​0,​60,​0,​60,​0,​72,​1,​72,​0,​81,​0,​91,​0,​60,​1
32035 DATA 56,​0,​32,​60,​1,​60,​1,​60,​1,​60,​1,​60,​0,​45,​0,​47,​0,​60,​1
32036 DATA 56,​8,​40,​60,​1,​60,​1,​60,​1,​60,​1,​60,​1,​60,​0,​72,​0,​68,​0
32037 REM 
32038 DATA 16,​0,​16,​60,​1,​60,​0,​60,​0,​72,​0,​53,​1,​53,​0,​53,​0,​72,​0
32039 DATA 24,​0,​24,​68,​0,​72,​0,​68,​0,​60,​1,​60,​1,​60,​0,​72,​0,​68,​0
32040 DATA 0,​0,​0,​60,​0,​60,​0,​60,​0,​60,​0,​60,​0,​91,​1,​91,​0,​53,​1
32041 DATA 32,​0,​32,​53,​1,​53,​1,​53,​1,​53,​1,​53,​1,​53,​1,​53,​1,​53,​0
32042 DATA 8,​0,​8,​53,​0,​53,​0,​53,​0,​53,​0,​47,​1,​47,​0,​47,​1,​47,​0
32043 DATA 0,​0,​0,​45,​0,​60,​1,​60,​0,​60,​1,​60,​1,​60,​1,​60,​0,​72,​0
32044 DATA 48,​0,​48,​68,​0,​72,​0,​68,​1,​68,​1,​68,​0,​53,​1,​53,​0,​53,​1
32045 REM 
32046 DATA 40,​8,​40,​53,​1,​53,​0,​60,​1,​60,​1,​60,​1,​60,​0,​72,​0,​68,​0
32047 REM 
32048 DATA 16,​0,​16,​60,​1,​60,​0,​60,​0,​72,​0,​53,​1,​53,​0,​53,​0,​72,​0
32049 DATA 24,​0,​24,​68,​0,​72,​0,​68,​0,​60,​1,​60,​1,​60,​0,​72,​0,​68,​0
32050 DATA 0,​0,​0,​60,​0,​60,​0,​60,​0,​60,​0,​60,​0,​91,​1,​91,​0,​53,​1
32051 DATA 32,​0,​32,​53,​1,​53,​1,​53,​1,​53,​1,​53,​1,​53,​1,​53,​1,​53,​0
32052 DATA 8,​0,​8,​53,​0,​53,​0,​53,​0,​53,​0,​47,​1,​47,​0,​47,​1,​47,​0
32053 DATA 0,​0,​0,​45,​0,​60,​1,​60,​0,​60,​1,​60,​1,​60,​1,​60,​0,​72,​0
32054 DATA 48,​0,​48,​68,​0,​72,​0,​68,​1,​68,​1,​68,​0,​53,​1,​53,​0,​53,​1
32055 REM 
32056 DATA 40,​0,​40,​53,​1,​53,​0,​60,​1,​60,​1,​60,​0,​45,​0,​47,​0,​60,​1
32057 DATA 40,​0,​40,​60,​1,​60,​1,​60,​1,​60,​1,​60,​1,​60,​1,​60,​1,​60,​0
32058 REM 
32059 DATA 56,​0,​0,​72,​0,​72,​0,​72,​0,​81,​1,​81,​0,​72,​1,​72,​0,​60,​0
32060 DATA 56,​0,​0,​33,​0,​33,​0,​35,​0,​45,​1,​45,​0,​40,​1,​40,​0,​0,​1
32061 DATA 56,​0,​0,​60,​0,​60,​0,​60,​0,​60,​1,​60,​0,​91,​1,​91,​0,​45,​0
32062 DATA 56,​0,​8,​22,​0,​22,​0,​22,​0,​22,​0,​23,​1,​23,​0,​26,​1,​26,​0
32063 DATA 56,​0,​16,​60,​0,​60,​0,​60,​0,​72,​1,​72,​0,​81,​0,​91,​0,​81,​1
32064 DATA 56,​0,​24,​81,​1,​81,​1,​81,​1,​81,​0,​68,​1,​68,​1,​68,​1,​68,​0
32065 DATA 56,​0,​16,​60,​0,​60,​0,​60,​0,​72,​1,​72,​0,​81,​0,​91,​0,​60,​1
32066 DATA 56,​0,​32,​60,​1,​60,​1,​60,​1,​60,​1,​60,​0,​45,​0,​47,​0,​60,​1
32067 DATA 56,​8,​40,​60,​1,​60,​1,​60,​1,​60,​1,​60,​1,​60,​0,​72,​0,​68,​0
32068 REM 
32069 DATA 16,​0,​16,​60,​1,​60,​0,​60,​0,​72,​0,​53,​1,​53,​0,​53,​0,​72,​0
32070 DATA 24,​0,​24,​68,​0,​72,​0,​68,​0,​60,​1,​60,​1,​60,​0,​72,​0,​68,​0
32071 DATA 0,​0,​0,​60,​0,​60,​0,​60,​0,​60,​0,​60,​0,​91,​1,​91,​0,​53,​1
32072 DATA 32,​0,​32,​53,​1,​53,​1,​53,​1,​53,​1,​53,​1,​53,​1,​53,​1,​53,​0
32073 DATA 8,​0,​8,​53,​0,​53,​0,​53,​0,​53,​0,​47,​1,​47,​0,​47,​1,​47,​0
32074 DATA 0,​0,​0,​45,​0,​60,​1,​60,​0,​60,​1,​60,​1,​60,​1,​60,​0,​72,​0
32075 DATA 48,​0,​48,​68,​0,​72,​0,​68,​1,​68,​1,​68,​0,​53,​1,​53,​0,​53,​1
32076 REM 
32077 DATA 40,​8,​40,​53,​1,​53,​0,​60,​1,​60,​1,​60,​1,​60,​0,​72,​0,​68,​0
32078 REM 
32079 DATA 16,​0,​16,​60,​1,​60,​0,​60,​0,​72,​0,​53,​1,​53,​0,​53,​0,​72,​0
32080 DATA 24,​0,​24,​68,​0,​72,​0,​68,​0,​60,​1,​60,​1,​60,​0,​72,​0,​68,​0
32081 DATA 0,​0,​0,​60,​0,​60,​0,​60,​0,​60,​0,​60,​0,​91,​1,​91,​0,​53,​1
32082 DATA 32,​0,​32,​53,​1,​53,​1,​53,​1,​53,​1,​53,​1,​53,​1,​53,​1,​53,​0
32083 DATA 8,​0,​8,​53,​0,​53,​0,​53,​0,​53,​0,​47,​1,​47,​0,​47,​1,​47,​0
32084 DATA 0,​0,​0,​45,​0,​60,​1,​60,​0,​60,​1,​60,​1,​60,​1,​60,​0,​72,​0
32085 DATA 48,​0,​48,​68,​0,​72,​0,​68,​1,​68,​1,​68,​0,​53,​1,​53,​0,​53,​1
32086 REM 
32087 DATA 40,​0,​40,​53,​1,​53,​0,​60,​1,​60,​1,​60,​0,​45,​0,​47,​0,​60,​1
32088 DATA 40,​0,​40,​60,​1,​60,​1,​60,​1,​60,​1,​60,​1,​60,​1,​60,​1,​60,​0
32089 DATA 0,​0,​0,​-1,​0
32090 REM 
32091 DIM S$(64),​B$(64),​R$(16)
32092 R$="((!!(("
32093 B$="nnnn????????nnnnnnnn????????"
32094 S$="a0a0a0a0H$H$??a0a0s:​s:​W+W+??H$H$H$H$????W+W+W+W+"
32095 C=8:​RETURN	

• Download link 1
• Download link 2