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 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL