_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

LYSPEN VIC 20

FILE INFORMATION

FILENAME(S): LYSPEN VIC 20

FILE TYPE(S): PRG

FILE SIZE: 2.7K

FIRST SEEN: 2025-11-30 19:47:10

APPEARS ON: 1 disk(s)

FILE HASH

fcec415f62d11a6053af4e706b3bbfb2046d7be9571f4994c0d281871dfffcf4

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
HJ LPEDISK A9 2 LYSPEN VIC 20 PRG Curtcool, Frank 16 2 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 0D 08 01 00 41 B2  C2 28 35 36 29 00 2D 08  |......A..(56).-.|
00000010: 02 00 8B 41 B3 B1 33 30  AF 41 B3 B1 36 34 AF 41  |...A..30.A..64.A|
00000020: B3 B1 39 36 AF 41 B3 B1  31 32 38 A7 35 00 3D 08  |..96.A..128.5.=.|
00000030: 03 00 97 35 36 2C C2 28  35 36 29 AB 32 00 63 08  |...56,.(56).2.c.|
00000040: 04 00 97 38 30 38 2C C2  28 38 30 38 29 AA 32 3A  |...808,.(808).2:|
00000050: 97 33 37 31 35 30 2C C2  28 33 37 31 35 30 29 AF  |.37150,.(37150).|
00000060: 31 32 37 00 77 08 05 00  8F 20 2A 2A 2A 2A 2A 2A  |127.w.... ******|
00000070: 2A 2A 2A 2A 2A 2A 2A 00  8A 08 0A 00 8F 2A 2A 4C  |*******......**L|
00000080: 49 47 48 54 20 50 45 4E  2A 2A 00 9D 08 14 00 8F  |IGHT PEN**......|
00000090: 2A 2A 53 54 4F 4E 45 43  48 49 50 2A 2A 00 B0 08  |**STONECHIP**...|
000000A0: 1E 00 8F 2A 2A 43 4F 50  59 52 49 47 48 54 2A 2A  |...**COPYRIGHT**|
000000B0: 00 C3 08 28 00 8F 2A 2A  4D 41 59 20 20 31 39 38  |...(..**MAY  198|
000000C0: 33 2A 2A 00 D6 08 32 00  8F 2A 2A 2A 2A 2A 2A 2A  |3**...2..*******|
000000D0: 2A 2A 2A 2A 2A 2A 00 F4  08 64 00 99 22 93 8E 11  |******...d.."...|
000000E0: 11 11 11 12 1D 1D 1D 1D  1D 1D 53 54 4F 4E 45 43  |..........STONEC|
000000F0: 48 49 50 22 00 0F 09 69  00 99 22 11 11 1D 1D 1D  |HIP"...i..".....|
00000100: 1D 1D 12 45 4C 45 43 54  52 4F 4E 49 43 53 22 00  |...ELECTRONICS".|
00000110: 2C 09 6E 00 99 22 11 11  11 11 11 1D 1D 1D 1D 1D  |,.n.."..........|
00000120: 1D 44 4F 4F 44 4C 45 20  50 45 4E 22 00 41 09 78  |.DOODLE PEN".A.x|
00000130: 00 81 20 49 B2 31 20 A4  20 31 30 30 30 3A 82 20  |.. I.1 . 1000:. |
00000140: 49 00 49 09 82 00 43 B2  36 00 60 09 87 00 53 42  |I.I...C.6.`...SB|
00000150: B2 C2 28 36 34 38 29 3A  53 B2 53 42 AC 32 35 36  |..(648):S.SB.256|
00000160: 00 7E 09 8C 00 42 B2 33  38 34 30 30 3A 8B 53 B2  |.~...B.38400:.S.|
00000170: 34 30 39 36 20 A7 20 42  B2 33 37 38 38 38 00 8B  |4096 . B.37888..|
00000180: 09 96 00 42 42 B2 42 AD  32 35 36 00 96 09 A0 00  |...BB.B.256.....|
00000190: 45 4E B2 34 31 37 00 A7  09 AA 00 43 42 B2 C2 28  |EN.417.....CB..(|
000001A0: 35 36 29 AC 32 35 36 00  B2 09 C8 00 99 22 93 08  |56).256......"..|
000001B0: 22 3B 00 BF 09 D2 00 81  20 49 B2 30 A4 45 4E 00  |";...... I.0.EN.|
000001C0: CC 09 DC 00 99 22 20 22  3B 3A 82 49 00 D6 09 E6  |....." ";:.I....|
000001D0: 00 8D 39 31 30 30 00 FD  09 FA 00 43 B2 36 3A 4C  |..9100.....C.6:L|
000001E0: B2 53 3A 48 31 B2 30 3A  56 31 B2 30 3A 4C 31 B2  |.S:H1.0:V1.0:L1.|
000001F0: 42 3A 41 31 B2 33 32 3A  4C 32 B2 43 42 00 10 0A  |B:A1.32:L2.CB...|
00000200: 2C 01 8F 2A 50 49 43 4B  20 55 50 20 50 45 4E 2A  |,..*PICK UP PEN*|
00000210: 00 1A 0A 31 01 41 24 B2  22 22 00 33 0A 36 01 56  |...1.A$."".3.6.V|
00000220: B2 B5 28 28 C2 28 33 36  38 37 31 29 AB 33 35 29  |..((.(36871).35)|
00000230: AD 34 29 00 4C 0A 40 01  48 B2 B5 28 28 C2 28 33  |.4).L.@.H..((.(3|
00000240: 36 38 37 30 29 AB 34 34  29 AD 34 29 00 5C 0A 4A  |6870).44).4).\.J|
00000250: 01 54 B2 B6 28 56 AC 32  32 AA 48 29 00 6C 0A 4C  |.T..(V.22.H).l.L|
00000260: 01 8B 54 B1 45 4E 20 A7  54 B2 45 4E 00 76 0A 4F  |..T.EN .T.EN.v.O|
00000270: 01 50 B2 54 AA 53 00 8A  0A 54 01 58 B2 C2 28 42  |.P.T.S...T.X..(B|
00000280: AA 54 29 3A 97 42 AA 54  2C 43 00 93 0A 5E 01 8D  |.T):.B.T,C...^..|
00000290: 35 35 30 00 9E 0A 63 01  97 42 AA 54 2C 58 00 A7  |550...c..B.T,X..|
000002A0: 0A 68 01 8D 35 35 30 00  B7 0A 72 01 81 49 B2 31  |.h..550...r..I.1|
000002B0: A4 31 35 30 3A 82 49 00  CB 0A 90 01 8F 2A 47 45  |.150:.I......*GE|
000002C0: 54 20 4B 45 59 42 4F 41  52 44 2A 00 E0 0A 9A 01  |T KEYBOARD*.....|
000002D0: A1 20 41 24 3A 8B 41 24  B2 22 22 89 20 33 30 30  |. A$:.A$."". 300|
000002E0: 00 EC 0A 9F 01 41 B2 C6  28 41 24 29 00 05 0B A4  |.....A..(A$)....|
000002F0: 01 8B 20 28 41 B3 34 39  29 B0 28 41 B1 35 36 29  |.. (A.49).(A.56)|
00000300: 89 20 34 35 30 00 10 0B  AE 01 43 B2 41 AB 34 39  |. 450.....C.A.49|
00000310: 00 1A 0B B8 01 89 20 33  30 30 00 35 0B C2 01 8B  |...... 300.5....|
00000320: 20 28 41 B3 31 33 33 29  B0 28 41 B1 31 34 30 29  | (A.133).(A.140)|
00000330: 89 20 35 30 30 00 47 0B  CC 01 8F 2A 2A 46 55 4E  |. 500.G....**FUN|
00000340: 43 54 49 4F 4E 2A 2A 00  53 0B D1 01 41 B2 41 AB  |CTION**.S...A.A.|
00000350: 31 33 32 00 84 0B D6 01  91 20 41 20 89 31 30 30  |132...... A .100|
00000360: 30 2C 33 30 30 30 2C 35  30 30 30 2C 37 30 30 30  |0,3000,5000,7000|
00000370: 2C 32 30 30 30 2C 34 30  30 30 2C 36 30 30 30 2C  |,2000,4000,6000,|
00000380: 38 30 30 30 00 AF 0B F4  01 97 50 2C 41 3A 4C B2  |8000......P,A:L.|
00000390: 50 3A 41 31 B2 41 3A 48  31 B2 48 3A 56 31 B2 56  |P:A1.A:H1.H:V1.V|
000003A0: 3A 4C 31 B2 42 AA 54 3A  4C 32 B2 43 42 AA 54 00  |:L1.B.T:L2.CB.T.|
000003B0: C5 0B FE 01 97 4C 31 2C  43 3A 97 4C 32 2C 43 3A  |.....L1,C:.L2,C:|
000003C0: 89 20 33 30 30 00 E4 0B  26 02 97 50 2C 31 32 38  |. 300...&..P,128|
000003D0: AB 28 C2 28 50 29 AF 31  32 38 29 B0 C2 28 50 29  |.(.(P).128)..(P)|
000003E0: AF 31 32 37 00 F3 0B 30  02 81 49 B2 31 A4 35 30  |.127...0..I.1.50|
000003F0: 3A 82 49 00 F9 0B 3A 02  8E 00 03 0C E8 03 8F 2A  |:.I...:........*|
00000400: 46 31 2A 00 0F 0C F2 03  8F 2A 46 49 4C 4C 2A 00  |F1*......*FILL*.|
00000410: 1C 0C FC 03 44 B2 B4 28  50 AB 4C 29 00 24 0C 06  |....D..(P.L).$..|
00000420: 04 4E B2 50 00 2E 0C 10  04 8D 39 30 30 30 00 3D  |.N.P......9000.=|
00000430: 0C 1A 04 8B 4C B3 B1 4E  89 31 30 34 30 00 51 0C  |....L..N.1040.Q.|
00000440: 24 04 56 31 B2 56 3A 48  31 B2 48 3A 89 20 33 30  |$.V1.V:H1.H:. 30|
00000450: 30 00 5D 0C D0 07 8F 2A  53 41 56 45 2A 00 70 0C  |0.]....*SAVE*.p.|
00000460: D2 07 52 24 B2 22 52 45  43 4F 52 44 20 26 20 22  |..R$."RECORD & "|
00000470: 00 7A 0C D5 07 8D 39 34  30 30 00 84 0C D7 07 8D  |.z....9400......|
00000480: 39 32 30 30 00 A0 0C DA  07 81 49 B2 34 33 A4 34  |9200......I.43.4|
00000490: 36 3A 97 36 33 30 AA 49  2C C2 28 49 29 3A 82 49  |6:.630.I,.(I):.I|
000004A0: 00 B0 0C DF 07 97 34 33  2C 30 3A 97 34 35 2C 30  |......43,0:.45,0|
000004B0: 00 CA 0C E4 07 97 34 34  2C C2 28 35 36 29 3A 97  |......44,.(56):.|
000004C0: 34 36 2C C2 28 35 36 29  AA 32 00 D2 0C EE 07 94  |46,.(56).2......|
000004D0: 22 22 00 EE 0C F8 07 97  34 34 2C C2 28 36 34 38  |""......44,.(648|
000004E0: 29 3A 97 34 36 2C C2 28  36 34 38 29 AA 32 00 F6  |):.46,.(648).2..|
000004F0: 0C 02 08 94 22 22 00 26  0D 0C 08 97 34 33 2C C2  |...."".&....43,.|
00000500: 28 36 37 33 29 3A 97 34  34 2C C2 28 36 37 34 29  |(673):.44,.(674)|
00000510: 3A 97 34 35 2C C2 28 36  37 35 29 3A 97 34 36 2C  |:.45,.(675):.46,|
00000520: C2 28 36 37 36 29 00 30  0D 16 08 8D 39 31 30 30  |.(676).0....9100|
00000530: 00 39 0D 20 08 89 33 30  30 00 43 0D B8 0B 8F 2A  |.9. ..300.C....*|
00000540: 46 33 2A 00 55 0D C2 0B  8F 2A 48 4F 52 49 5A 4F  |F3*.U....*HORIZO|
00000550: 4E 54 41 4C 2A 00 63 0D  CC 0B 44 B2 B4 28 48 AB  |NTAL*.c...D..(H.|
00000560: 48 31 29 00 70 0D D6 0B  4E B2 4C AA 48 AB 48 31  |H1).p...N.L.H.H1|
00000570: 00 7A 0D E0 0B 8D 39 30  30 30 00 89 0D EA 0B 8B  |.z....9000......|
00000580: 4C B3 B1 4E 89 33 30 34  30 00 98 0D F4 0B 48 31  |L..N.3040.....H1|
00000590: B2 48 3A 89 20 33 30 30  00 A4 0D A0 0F 8F 2A 4C  |.H:. 300......*L|
000005A0: 4F 41 44 2A 00 AE 0D A2  0F 52 24 B2 22 22 00 B8  |OAD*.....R$.""..|
000005B0: 0D A5 0F 8D 39 34 30 30  00 C2 0D A7 0F 8D 39 32  |....9400......92|
000005C0: 30 30 00 CC 0D AA 0F 8D  39 36 30 30 00 E2 0D BE  |00......9600....|
000005D0: 0F 97 37 38 32 2C C2 28  35 36 29 3A 9E 36 35 34  |..782,.(56):.654|
000005E0: 39 33 00 EC 0D C3 0F 8D  39 36 30 30 00 FF 0D C8  |93......9600....|
000005F0: 0F 97 37 38 32 2C 53 42  3A 9E 36 35 34 39 33 00  |..782,SB:.65493.|
00000600: 1B 0E D2 0F 81 49 B2 30  A4 45 4E 3A 97 42 AA 49  |.....I.0.EN:.B.I|
00000610: 2C C2 28 43 42 AA 49 29  3A 82 49 00 25 0E DC 0F  |,.(CB.I):.I.%...|
00000620: 8D 39 31 30 30 00 2E 0E  E6 0F 89 33 30 30 00 38  |.9100......300.8|
00000630: 0E 88 13 8F 2A 46 35 2A  00 58 0E 92 13 58 B2 28  |....*F5*.X...X.(|
00000640: 56 AB 56 31 29 AC 32 32  3A 44 B2 B4 28 58 29 AC  |V.V1).22:D..(X).|
00000650: 32 32 3A 4E B2 4C AA 58  00 62 0E 9C 13 8D 39 30  |22:N.L.X.b....90|
00000660: 30 30 00 72 0E B0 13 8B  4E B3 B1 4C 89 20 35 30  |00.r....N..L. 50|
00000670: 32 30 00 81 0E BA 13 56  31 B2 56 3A 89 20 33 30  |20.....V1.V:. 30|
00000680: 30 00 8B 0E 70 17 8F 2A  46 36 2A 00 95 0E 7A 17  |0...p..*F6*...z.|
00000690: 89 20 33 30 30 00 9F 0E  58 1B 8F 2A 46 37 2A 00  |. 300...X..*F7*.|
000006A0: A8 0E 62 1B 89 33 30 30  00 B2 0E 40 1F 8F 2A 46  |..b..300...@..*F|
000006B0: 38 2A 00 BB 0E 4A 1F 89  32 30 30 00 D5 0E 28 23  |8*...J..200...(#|
000006C0: 4C B2 4C AA 44 3A 4C 31  B2 4C 31 AA 44 3A 4C 32  |L.L.D:L1.L1.D:L2|
000006D0: B2 4C 32 AA 44 00 E6 0E  32 23 8B 4C B3 53 A7 4C  |.L2.D...2#.L.S.L|
000006E0: B2 53 3A 4E B2 4C 00 FD  0E 3C 23 8B 4C B1 53 AA  |.S:N.L...<#.L.S.|
000006F0: 45 4E A7 4C B2 53 AA 45  4E 3A 4E B2 4C 00 0C 0F  |EN.L.S.EN:N.L...|
00000700: 46 23 8B 4C 31 B3 42 A7  4C 31 B2 42 00 21 0F 50  |F#.L1.B.L1.B.!.P|
00000710: 23 8B 4C 31 B1 42 AA 45  4E A7 4C 31 B2 42 AA 45  |#.L1.B.EN.L1.B.E|
00000720: 4E 00 32 0F 54 23 8B 4C  32 B3 43 42 A7 4C 32 B2  |N.2.T#.L2.CB.L2.|
00000730: 43 42 00 49 0F 56 23 8B  4C 32 B1 43 42 AA 45 4E  |CB.I.V#.L2.CB.EN|
00000740: A7 4C 32 B2 43 42 AA 45  4E 00 5F 0F 5A 23 97 4C  |.L2.CB.EN._.Z#.L|
00000750: 2C 41 31 3A 97 4C 31 2C  43 3A 97 4C 32 2C 43 00  |,A1:.L1,C:.L2,C.|
00000760: 65 0F 64 23 8E 00 6F 0F  8C 23 8D 39 35 30 30 00  |e.d#..o..#.9500.|
00000770: A4 0F 96 23 99 22 46 31  3D 46 49 4C 4C 20 20 20  |...#."F1=FILL   |
00000780: 20 20 46 32 3D 53 41 56  45 20 20 20 46 33 3D 48  |  F2=SAVE   F3=H|
00000790: 4F 52 49 5A 2E 20 20 20  46 34 3D 4C 4F 41 44 20  |ORIZ.   F4=LOAD |
000007A0: 20 20 22 3B 00 D8 0F A0  23 99 22 46 35 3D 56 45  |  ";....#."F5=VE|
000007B0: 52 54 2E 20 20 20 20 46  36 3D 20 20 20 20 20 20  |RT.    F6=      |
000007C0: 20 46 37 3D 20 20 20 20  20 20 20 20 20 46 38 3D  | F7=         F8=|
000007D0: 43 4C 45 41 52 20 22 3B  00 E2 0F AA 23 89 39 35  |CLEAR ";....#.95|
000007E0: 30 30 00 FA 0F F0 23 99  22 50 52 45 53 53 20 22  |00....#."PRESS "|
000007F0: 3B 52 24 3B 22 50 4C 41  59 22 00 12 10 FA 23 8B  |;R$;"PLAY"....#.|
00000800: 28 C2 28 33 37 31 33 37  29 AF 36 34 29 A7 39 32  |(.(37137).64).92|
00000810: 31 30 00 18 10 04 24 8E  00 3E 10 B8 24 81 49 B2  |10....$..>..$.I.|
00000820: 31 39 A4 32 32 3A 97 37  38 31 2C 49 3A 97 37 38  |19.22:.781,I:.78|
00000830: 32 2C 32 31 3A 9E 36 30  30 34 37 3A 82 49 00 5F  |2,21:.60047:.I._|
00000840: 10 1C 25 97 37 38 31 2C  31 39 3A 97 37 38 32 2C  |..%.781,19:.782,|
00000850: 30 3A 97 37 38 33 2C 30  3A 9E 36 35 35 32 30 00  |0:.783,0:.65520.|
00000860: 65 10 26 25 8E 00 75 10  80 25 8F 2A 4C 4F 41 44  |e.&%..u..%.*LOAD|
00000870: 20 53 55 42 2A 00 95 10  8A 25 97 37 38 30 2C 31  | SUB*....%.780,1|
00000880: 3A 97 37 38 31 2C 31 3A  97 37 38 32 2C 33 3A 9E  |:.781,1:.782,3:.|
00000890: 36 35 34 36 36 00 A7 10  94 25 97 37 38 30 2C 30  |65466....%.780,0|
000008A0: 3A 9E 36 35 34 36 39 00  B9 10 9E 25 97 37 38 30  |:.65469....%.780|
000008B0: 2C 30 3A 97 37 38 31 2C  30 00 BF 10 A8 25 8E 00  |,0:.781,0....%..|
000008C0: E0 10 10 27 99 22 93 22  4E 2C 2C 22 50 52 45 53  |...'."."N,,"PRES|
000008D0: 53 20 52 45 43 4F 52 44  20 26 20 50 4C 41 59 22  |S RECORD & PLAY"|
000008E0: 00 F7 10 1A 27 8B C2 28  33 37 31 35 31 29 AF 36  |....'..(37151).6|
000008F0: 34 A7 31 30 30 31 30 00  08 11 24 27 81 49 B2 31  |4.10010...$'.I.1|
00000900: A4 39 30 30 30 3A 82 49  00 27 11 2E 27 94 22 4C  |.9000:.I.'..'."L|
00000910: 50 22 3A 97 33 36 38 37  36 2C 32 32 30 3A 97 33  |P":.36876,220:.3|
00000920: 36 38 37 38 2C 31 35 00  3E 11 38 27 4E B2 4E AA  |6878,15.>.8'N.N.|
00000930: 31 3A 99 2C 2C 22 57 49  4E 44 20 4F 4E 22 00 56  |1:.,,"WIND ON".V|
00000940: 11 42 27 8B A8 C2 28 33  37 31 35 31 29 AF 36 34  |.B'...(37151).64|
00000950: A7 31 30 30 35 30 00 63  11 47 27 97 33 36 38 37  |.10050.c.G'.3687|
00000960: 38 2C 30 00 7A 11 4C 27  8B C2 28 33 37 31 35 31  |8,0.z.L'..(37151|
00000970: 29 AF 36 34 A7 31 30 30  36 30 00 92 11 51 27 8B  |).64.10060...Q'.|
00000980: A8 C2 28 33 37 31 35 31  29 AF 36 34 A7 31 30 30  |..(37151).64.100|
00000990: 36 35 00 9D 11 56 27 89  31 30 30 30 30 00 E1 00  |65...V'.10000...|
000009A0: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
000009B0: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 31 A4  |..............1.|
000009C0: 44 3A 8B C8 28 4E 24 28  47 29 2C 4E 29 B2 4E 24  |D:..(N$(G),N).N$|
000009D0: A7 8D 31 30 30 34 30 00  E7 11 2E 27 82 47 3A 99  |..10040....'.G:.|
000009E0: 22 93 53 4C 55 54 22 00  FC 11 33 27 A1 58 24 3A  |".SLUT"...3'.X$:|
000009F0: 8B 58 24 B2 22 22 A7 31  30 30 33 35 00 05 12 34  |.X$."".10035...4|
00000A00: 27 89 31 30 30 00 30 12  38 27 99 22 93 22 3B 4E  |'.100.0.8'.".";N|
00000A10: 24 28 47 29 3A 99 41 24  28 47 29 3A 99 50 24 28  |$(G):.A$(G):.P$(|
00000A20: 47 29 3A 99 54 24 28 47  29 3A 99 44 24 28 47 29  |G):.T$(G):.D$(G)|
00000A30: 00 56 12 3D 27 99 22 53  4B 41 4C 20 44 49 53 53  |.V.='."SKAL DISS|
00000A40: 45 20 44 41 54 41 20 52  45 54 54 45 53 20 3F 20  |E DATA RETTES ? |
00000A50: 28 4A 2F 4E 29 22 00 6C  12 3E 27 A1 58 24 3A 8B  |(J/N)".l.>'.X$:.|
00000A60: 58 24 B2 22 4E 22 A7 31  30 30 35 30 00 85 12 3F  |X$."N".10050...?|
00000A70: 27 8B 58 24 B2 22 4A 22  A7 8D 34 30 30 30 3A 89  |'.X$."J"..4000:.|
00000A80: 31 30 30 35 30 00 90 12  40 27 89 31 30 30 34 36  |10050...@'.10046|
00000A90: 00 A6 12 42 27 99 22 11  11 54 52 59 4B 20 45 4E  |...B'."..TRYK EN|
00000AA0: 20 54 41 53 54 22 00 BB  12 4C 27 A1 58 24 3A 8B  | TAST"...L'.X$:.|
00000AB0: 58 24 B2 22 22 A7 31 30  30 36 30 00 C1 12        |X$."".10060...  |
......A.B(56).-....A..30.A..64.A..96.A..
128.5.=....56,B(56).2.C....808,B(808).2:
.37150,B(37150).127.W.... *************.
.....**LIGHT PEN**......**STONECHIP**...
...**COPYRIGHT**.C.(..**MAY  1983**.V.2.
.*************...D..".............STONEC
HIP"...I.."........ELECTRONICS".,.N.."..
.........DOODLE PEN".A.X.. I.1 . 1000:. 
I.I...C.6.`...SB.B(648):S.SB.256.~...B.3
8400:.S.4096 . B.37888.....BB.B.256... .
EN.417.....CB.B(56).256...H.."..";...R..
 I.0.EN.L...." ";:.I.V....9100.....C.6:L
.S:H1.0:V1.0:L1.B:A1.32:L2.CB...,..*PICK
 UP PEN*...1.A$."".3.6.V..((B(36871).35)
.4).L.@.H..((B(36870).44).4).\.J.T..(V.2
2.H).L.L..T.EN .T.EN.V.O.P.T.S...T.X.B(B
.T):.B.T,C...^..550...C..B.T,X...H..550.
..R..I.1.150:.I.K....*GET KEYBOARD*.....
. A$:.A$."". 300.....A.F(A$)...... (A.49
).(A.56). 450.....C.A.49...... 300.5.B..
 (A.133).(A.140). 500.G.L..**FUNCTION**.
S.Q.A.A.132...V.. A .1000,3000,5000,7000
,2000,4000,6000,8000......P,A:L.P:A1.A:H
1.H:V1.V:L1.B.T:L2.CB.T.E....L1,C:.L2,C:
. 300...&..P,128.(B(P).128).B(P).127...0
..I.1.50:.I...:........*F1*......*FILL*.
....D..(P.L).$...N.P......9000.=....L..N
.1040.Q.$.V1.V:H1.H:. 300.].P..*SAVE*.P.
R.R$."RECORD & ".Z.U..9400...W..9200. .Z
..I.43.46:.630.I,B(I):.I......43,0:.45,0
.J....44,B(56):.46,B(56).2.R....""......
44,B(648):.46,B(648).2......"".&....43,B
(673):.44,B(674):.45,B(675):.46,B(676).0
....9100.9. ..300.C....*F3*.U.B..*HORIZO
NTAL*.C.L.D..(H.H1).P.V.N.L.H.H1.Z....90
00......L..N.3040.....H1.H:. 300... ..*L
OAD*.....R$.""......9400.B....9200.L....
9600......782,B(56):.65493...C..9600...H
..782,SB:.65493...R..I.0.EN:.B.I,B(CB.I)
:.I.%....9100......300.8....*F5*.X...X.(
V.V1).22:D..(X).22:N.L.X.B....9000.R....
N..L. 5020.....V1.V:. 300...P..*F6*...Z.
. 300...X..*F7*...B..300...@..*F8*...J..
200.U.(#L.L.D:L1.L1.D:L2.L2.D...2#.L.S.L
.S:N.L...<#.L.S.EN.L.S.EN:N.L...F#.L1.B.
L1.B.!.P#.L1.B.EN.L1.B.EN.2.T#.L2.CB.L2.
CB.I.V#.L2.CB.EN.L2.CB.EN._.Z#.L,A1:.L1,
C:.L2,C.E.D#..O..#.9500....#."F1=FILL   
  F2=SAVE   F3=HORIZ.   F4=LOAD   ";.X. 
#."F5=VERT.    F6=       F7=         F8=
CLEAR ";....#.9500....#."PRESS ";R$;"PLA
Y"....#.(B(37137).64).9210....$..>..$.I.
19.22:.781,I:.782,21:.60047:.I._..%.781,
19:.782,0:.783,0:.65520.E.&%..U..%.*LOAD
 SUB*....%.780,1:.781,1:.782,3:.65466...
.%.780,0:.65469....%.780,0:.781,0....%..
...'."."N,,"PRESS RECORD & PLAY"....'.B(
37151).64.10010...$'.I.1.9000:.I.'..'."L
P":.36876,220:.36878,15.>.8'N.N.1:.,,"WI
ND ON".V.B'..B(37151).64.10050.C.G'.3687
8,0.Z.L'.B(37151).64.10060...Q'..B(37151
).64.10065...V'.10000...................
..............1.D:.H(N$(G),N).N$..10040.
...'.G:.".SLUT"...3'.X$:.X$."".10035...4
'.100.0.8'.".";N$(G):.A$(G):.P$(G):.T$(G
):.D$(G).V.='."SKAL DISSE DATA RETTES ? 
(J/N)".L.>'.X$:.X$."N".10050...?'.X$."J"
..4000:.10050...@'.10046...B'."..TRYK EN
 TAST"...L'.X$:.X$."".10060.A.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL