TITLE.BAS
FILE INFORMATION
FILENAME(S): TITLE.BAS
FILE TYPE(S): PRG
FILE SIZE: 4.6K
FIRST SEEN: 2025-11-30 16:59:36
APPEARS ON: 1 disk(s)
FILE HASH
5a1e90a971b1b568d6292dc6e323fbdfd7212ef90bbd863366cbed3bdd0298f3
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UTILITIES | TITLE.BAS | PRG | High Voltage Complete C64 Collection | 27 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 20 13 20 00 00 41 B2 41 AA 31 3A 8B 41 B2 32 |. . ..A.A.1:.A.2|
00000010: A7 31 33 00 44 20 01 00 99 22 93 9A 57 45 4C 43 |.13.D ..."..WELC|
00000020: 4F 4D 45 20 54 4F 20 54 48 45 20 50 55 4C 53 41 |OME TO THE PULSA|
00000030: 54 49 4E 47 20 47 52 41 50 48 49 43 53 20 44 52 |TING GRAPHICS DR|
00000040: 41 57 45 52 00 5A 20 02 00 97 35 33 32 38 30 2C |AWER.Z ...53280,|
00000050: 2E 3A 97 35 33 32 38 31 2C 2E 00 85 20 03 00 99 |.:.53281,... ...|
00000060: 22 11 54 48 49 53 20 50 52 4F 47 52 41 4D 20 49 |".THIS PROGRAM I|
00000070: 53 20 44 45 53 49 47 4E 45 44 20 54 4F 20 50 52 |S DESIGNED TO PR|
00000080: 4F 44 55 43 45 00 A6 20 04 00 99 22 53 43 52 45 |ODUCE.. ..."SCRE|
00000090: 45 4E 53 20 4F 46 20 57 45 49 52 44 20 47 52 41 |ENS OF WEIRD GRA|
000000A0: 50 48 49 43 53 2E 00 F3 20 05 00 99 22 49 54 20 |PHICS... ..."IT |
000000B0: 49 4E 43 4C 55 44 45 53 20 41 20 53 43 52 45 45 |INCLUDES A SCREE|
000000C0: 4E 20 44 45 53 49 47 4E 45 52 2C 43 4F 4C 4F 55 |N DESIGNER,COLOU|
000000D0: 52 20 20 20 20 44 45 46 49 4E 45 52 20 41 4E 44 |R DEFINER AND|
000000E0: 20 53 41 56 45 2F 4C 4F 41 44 20 52 4F 55 54 49 | SAVE/LOAD ROUTI|
000000F0: 4E 45 53 00 3E 21 06 00 99 22 11 57 48 45 4E 20 |NES.>!...".WHEN |
00000100: 59 4F 55 52 20 57 45 49 52 44 20 47 52 41 50 48 |YOUR WEIRD GRAPH|
00000110: 49 43 53 20 53 43 52 45 45 4E 20 48 41 53 20 42 |ICS SCREEN HAS B|
00000120: 45 45 4E 44 45 53 49 47 4E 45 44 2C 20 59 4F 55 |EENDESIGNED, YOU|
00000130: 20 57 49 4C 4C 20 50 52 4F 42 41 42 4C 59 00 89 | WILL PROBABLY..|
00000140: 21 07 00 99 22 57 41 4E 54 20 54 4F 20 4D 41 4B |!..."WANT TO MAK|
00000150: 45 20 55 53 45 20 4F 46 20 54 48 45 20 43 4F 4D |E USE OF THE COM|
00000160: 50 49 4C 45 20 4F 50 54 49 4F 4E 20 20 41 54 20 |PILE OPTION AT |
00000170: 54 48 45 20 45 4E 44 2D 54 48 49 53 20 4A 55 53 |THE END-THIS JUS|
00000180: 54 20 53 41 56 45 53 22 3B 00 B2 21 08 00 99 22 |T SAVES";..!..."|
00000190: 20 4F 46 46 20 41 20 57 4F 52 4B 49 4E 47 43 4F | OFF A WORKINGCO|
000001A0: 50 59 20 4F 46 20 54 48 45 20 50 52 4F 47 52 41 |PY OF THE PROGRA|
000001B0: 4D 2E 00 DA 21 09 00 99 22 11 11 20 20 20 20 20 |M...!...".. |
000001C0: C1 C2 C3 C4 C5 C6 C7 C8 C9 CA CB CC CD CE CF D0 |................|
000001D0: D1 D2 D3 D4 D5 D6 D7 D8 D9 DA 00 00 22 0A 00 99 |............"...|
000001E0: 22 20 20 20 20 20 C1 20 50 52 45 53 53 20 41 4E |" . PRESS AN|
000001F0: 59 20 4B 45 59 20 54 4F 20 47 4F 20 4F 4E 20 DA |Y KEY TO GO ON .|
00000200: 00 26 22 0B 00 99 22 20 20 20 20 20 C1 C2 C3 C4 |.&"..." ....|
00000210: C5 C6 C7 C8 C9 CA CB CC CD CE CF D0 D1 D2 D3 D4 |................|
00000220: D5 D6 D7 D8 D9 DA 00 3B 22 0C 00 93 22 54 49 54 |.......;"..."TIT|
00000230: 4C 45 2E 44 41 54 22 2C 38 2C 31 00 46 22 0D 00 |LE.DAT",8,1.F"..|
00000240: 9E 34 39 31 35 32 00 5C 22 0E 00 97 35 33 32 38 |.49152.\"...5328|
00000250: 31 2C 31 3A 97 35 33 32 38 30 2C 31 00 72 22 0F |1,1:.53280,1.r".|
00000260: 00 97 31 39 38 2C 2E 3A 92 31 39 38 2C 31 3A 99 |..198,.:.198,1:.|
00000270: 22 93 00 88 22 10 00 97 35 33 32 38 30 2C 2E 3A |"..."...53280,.:|
00000280: 97 35 33 32 38 31 2C 2E 00 A1 22 11 00 81 49 B2 |.53281,..."...I.|
00000290: 34 39 33 39 30 AA 36 35 A4 34 39 33 39 30 AA 39 |49390.65.49390.9|
000002A0: 36 00 B1 22 12 00 87 43 4F 3A 97 49 2C 43 4F 3A |6.."...CO:.I,CO:|
000002B0: 82 00 C8 22 13 00 9E 34 39 33 32 32 3A 81 44 B2 |..."...49322:.D.|
000002C0: 31 A4 31 30 30 30 3A 82 00 E1 22 14 00 83 35 2C |1.1000:..."...5,|
000002D0: 35 2C 35 2C 35 2C 35 2C 35 2C 35 2C 35 2C 35 2C |5,5,5,5,5,5,5,5,|
000002E0: 35 00 02 23 15 00 83 31 33 2C 31 33 2C 31 33 2C |5..#...13,13,13,|
000002F0: 31 33 2C 31 33 2C 31 33 2C 31 33 2C 31 33 2C 33 |13,13,13,13,13,3|
00000300: 2C 33 00 23 23 16 00 83 33 2C 33 2C 33 2C 33 2C |,3.##...3,3,3,3,|
00000310: 31 33 2C 31 33 2C 31 33 2C 31 33 2C 35 2C 35 2C |13,13,13,13,5,5,|
00000320: 35 2C 35 00 33 23 17 00 99 22 93 22 3A 9E 34 39 |5,5.3#...".":.49|
00000330: 31 35 32 00 56 23 18 00 81 49 B2 31 A4 34 30 3A |152.V#...I.1.40:|
00000340: 97 31 30 32 34 AA 28 BB 28 31 29 AC 31 30 30 30 |.1024.(.(1).1000|
00000350: 29 2C 36 35 3A 82 00 73 23 19 00 99 22 13 05 1D |),65:..s#..."...|
00000360: 1D 1D 1D 1D 1D 1D 1D 1D 1D 4D 41 49 4E 20 4D 45 |.........MAIN ME|
00000370: 4E 55 2E 00 8E 23 1A 00 99 22 1D 1D 1D 1D 1D 1D |NU...#..."......|
00000380: 1D 1D 1D 1D A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 00 A7 |................|
00000390: 23 1B 00 99 22 11 11 1D 9F 31 29 20 45 44 49 54 |#..."....1) EDIT|
000003A0: 20 53 43 52 45 45 4E 00 BE 23 1C 00 99 22 1D 99 | SCREEN..#..."..|
000003B0: 32 29 20 53 41 56 45 20 53 43 52 45 45 4E 00 D5 |2) SAVE SCREEN..|
000003C0: 23 1D 00 99 22 1D 1E 33 29 20 4C 4F 41 44 20 53 |#..."..3) LOAD S|
000003D0: 43 52 45 45 4E 00 EC 23 1E 00 99 22 1D 99 34 29 |CREEN..#..."..4)|
000003E0: 20 53 48 4F 57 20 53 43 52 45 45 4E 00 06 24 1F | SHOW SCREEN..$.|
000003F0: 00 99 22 1D 9F 35 29 20 43 4F 4D 50 49 4C 45 20 |.."..5) COMPILE |
00000400: 53 43 52 45 45 4E 00 1D 24 20 00 99 22 1D 9A 36 |SCREEN..$ .."..6|
00000410: 29 20 53 45 54 20 43 4F 4C 4F 55 52 53 00 39 24 |) SET COLOURS.9$|
00000420: 21 00 99 22 1D 1F 11 11 59 4F 55 52 20 43 48 4F |!.."....YOUR CHO|
00000430: 49 43 45 20 28 31 2D 36 29 00 4B 24 22 00 97 31 |ICE (1-6).K$"..1|
00000440: 39 38 2C 2E 3A 92 31 39 38 2C 31 00 67 24 23 00 |98,.:.198,1.g$#.|
00000450: A1 41 24 3A 8B C5 28 41 24 29 B3 31 B0 C5 28 41 |.A$:..(A$).1..(A|
00000460: 24 29 B1 36 A7 33 34 00 87 24 24 00 91 C5 28 41 |$).6.34..$$...(A|
00000470: 24 29 89 33 38 2C 38 33 2C 39 32 2C 31 30 31 2C |$).38,83,92,101,|
00000480: 31 30 35 2C 31 35 35 00 8F 24 25 00 89 33 34 00 |105,155..$%..34.|
00000490: 9F 24 26 00 99 22 93 22 3A 9E 34 39 31 35 32 00 |.$&..".":.49152.|
000004A0: C0 24 27 00 81 49 B2 31 A4 34 30 3A 97 31 30 32 |.$'..I.1.40:.102|
000004B0: 34 AA BB 28 31 29 AC 31 30 30 30 2C 36 35 3A 82 |4..(1).1000,65:.|
000004C0: 00 D5 24 28 00 99 22 11 31 29 20 4E 45 57 20 53 |..$(..".1) NEW S|
000004D0: 43 52 45 45 4E 00 EB 24 29 00 99 22 11 32 29 20 |CREEN..$)..".2) |
000004E0: 4C 41 53 54 20 53 43 52 45 45 4E 00 0A 25 2A 00 |LAST SCREEN..%*.|
000004F0: 97 31 39 38 2C 2E 3A 92 31 39 38 2C 31 3A A1 41 |.198,.:.198,1:.A|
00000500: 24 3A 8D 31 36 38 3A 99 22 93 00 1F 25 2B 00 8B |$:.168:."...%+..|
00000510: 41 24 B2 22 31 22 A7 99 22 93 22 3A 89 35 31 00 |A$."1"..".":.51.|
00000520: 2F 25 2C 00 8B 41 24 B3 B1 22 32 22 A7 33 38 00 |/%,..A$.."2".38.|
00000530: 5A 25 2D 00 81 49 B2 2E A4 39 39 39 3A 8B C2 28 |Z%-..I...999:..(|
00000540: 35 30 30 30 30 AA 49 29 B1 39 36 A7 97 31 30 32 |50000.I).96..102|
00000550: 34 AA 49 2C 33 32 3A 89 35 30 00 91 25 2E 00 8B |4.I,32:.50..%...|
00000560: C2 28 35 30 30 30 30 AA 49 29 B1 2E AF C2 28 35 |.(50000.I)....(5|
00000570: 30 30 30 30 AA 49 29 B3 36 35 A7 97 31 30 32 34 |0000.I).65..1024|
00000580: AA 49 2C C2 28 35 30 30 30 30 AA 49 29 3A 89 35 |.I,.(50000.I):.5|
00000590: 30 00 A6 25 2F 00 53 48 B2 C2 28 35 30 30 30 30 |0..%/.SH..(50000|
000005A0: AA 49 29 AB 36 35 00 BE 25 30 00 53 48 B2 53 48 |.I).65..%0.SH.SH|
000005B0: AD 33 3A 53 48 B2 B5 28 53 48 AA 34 38 29 00 CD |.3:SH..(SH.48)..|
000005C0: 25 31 00 97 31 30 32 34 AA 49 2C 53 48 00 D3 25 |%1..1024.I,SH..%|
000005D0: 32 00 82 00 E8 25 33 00 53 43 B2 31 30 32 34 3A |2....%3.SC.1024:|
000005E0: 43 43 B2 35 35 32 39 36 00 02 26 34 00 81 49 B2 |CC.55296..&4..I.|
000005F0: 35 35 32 39 36 A4 35 36 32 39 35 3A 97 49 2C 33 |55296.56295:.I,3|
00000600: 3A 82 00 18 26 35 00 50 31 B2 C2 28 53 43 29 3A |:...&5.P1..(SC):|
00000610: 50 32 B2 C2 28 43 43 29 00 24 26 36 00 97 53 43 |P2..(CC).$&6..SC|
00000620: 2C 31 36 30 00 3C 26 37 00 81 44 B2 31 A4 32 30 |,160.<&7..D.1.20|
00000630: 3A 97 43 43 2C BB 28 31 29 AC 31 36 00 4F 26 38 |:.CC,.(1).16.O&8|
00000640: 00 A1 41 24 3A 8B 41 24 B3 B1 22 22 A7 36 32 00 |..A$:.A$.."".62.|
00000650: 55 26 39 00 82 00 67 26 3A 00 97 53 43 2C 50 31 |U&9...g&:..SC,P1|
00000660: 3A 97 43 43 2C 50 32 00 73 26 3B 00 81 44 B2 31 |:.CC,P2.s&;..D.1|
00000670: A4 32 30 00 86 26 3C 00 A1 41 24 3A 8B 41 24 B3 |.20..&<..A$:.A$.|
00000680: B1 22 22 A7 36 32 00 90 26 3D 00 82 3A 89 35 34 |."".62..&=..:.54|
00000690: 00 A2 26 3E 00 97 53 43 2C 50 31 3A 97 43 43 2C |..&>..SC,P1:.CC,|
000006A0: 50 32 00 CB 26 3F 00 8B 41 24 B2 22 1D 22 A7 53 |P2..&?..A$.".".S|
000006B0: 43 B2 53 43 AA 31 3A 8B 53 43 B3 32 30 32 34 A7 |C.SC.1:.SC.2024.|
000006C0: 43 43 B2 43 43 AA 31 3A 89 35 33 00 F5 26 40 00 |CC.CC.1:.53..&@.|
000006D0: 8B 41 24 B2 22 9D 22 A7 53 43 B2 53 43 AB 31 3A |.A$.".".SC.SC.1:|
000006E0: 8B 53 43 B1 B2 31 30 32 34 A7 43 43 B2 43 43 AB |.SC..1024.CC.CC.|
000006F0: 31 3A 89 35 33 00 20 27 41 00 8B 41 24 B2 22 11 |1:.53. 'A..A$.".|
00000700: 22 A7 53 43 B2 53 43 AA 34 30 3A 8B 53 43 B3 32 |".SC.SC.40:.SC.2|
00000710: 30 32 34 A7 43 43 B2 43 43 AA 34 30 3A 89 35 33 |024.CC.CC.40:.53|
00000720: 00 4C 27 42 00 8B 41 24 B2 22 91 22 A7 53 43 B2 |.L'B..A$.".".SC.|
00000730: 53 43 AB 34 30 3A 8B 53 43 B1 B2 31 30 32 34 A7 |SC.40:.SC..1024.|
00000740: 43 43 B2 43 43 AB 34 30 3A 89 35 33 00 64 27 43 |CC.CC.40:.53.d'C|
00000750: 00 8B 41 24 B2 22 1D 22 A7 53 43 B2 53 43 AB 31 |..A$.".".SC.SC.1|
00000760: 3A 89 35 33 00 7C 27 44 00 8B 41 24 B2 22 9D 22 |:.53.|'D..A$."."|
00000770: A7 53 43 B2 53 43 AA 31 3A 89 35 33 00 95 27 45 |.SC.SC.1:.53..'E|
00000780: 00 8B 41 24 B2 22 11 22 A7 53 43 B2 53 43 AB 34 |..A$.".".SC.SC.4|
00000790: 30 3A 89 35 33 00 AE 27 46 00 8B 41 24 B2 22 91 |0:.53..'F..A$.".|
000007A0: 22 A7 53 43 B2 53 43 AA 34 30 3A 89 35 33 00 D3 |".SC.SC.40:.53..|
000007B0: 27 47 00 8B C6 28 41 24 29 B1 33 31 AF C6 28 41 |'G...(A$).31..(A|
000007C0: 24 29 B3 36 34 A7 97 53 43 2C C6 28 41 24 29 3A |$).64..SC,.(A$):|
000007D0: 89 35 33 00 FB 27 48 00 8B C6 28 41 24 29 B1 36 |.53..'H...(A$).6|
000007E0: 34 AF C6 28 41 24 29 B3 39 31 A7 97 53 43 2C C6 |4..(A$).91..SC,.|
000007F0: 28 41 24 29 AB 36 34 3A 89 35 33 00 0A 28 49 00 |(A$).64:.53..(I.|
00000800: 8B 41 24 B2 22 05 22 A7 37 35 00 12 28 4A 00 89 |.A$.".".75..(J..|
00000810: 35 33 00 1F 28 4B 00 81 49 B2 2E A4 39 39 39 00 |53..(K..I...999.|
00000820: 48 28 4C 00 8B C2 28 31 30 32 34 AA 49 29 B3 34 |H(L...(1024.I).4|
00000830: 38 A7 97 35 30 30 30 30 AA 49 2C C2 28 31 30 32 |8..50000.I,.(102|
00000840: 34 AA 49 29 3A 89 38 31 00 6A 28 4D 00 8B C2 28 |4.I):.81.j(M...(|
00000850: 31 30 32 34 AA 49 29 B1 35 37 A7 97 35 30 30 30 |1024.I).57..5000|
00000860: 30 AA 49 2C 33 32 3A 89 38 31 00 86 28 4E 00 53 |0.I,32:.81..(N.S|
00000870: 48 B2 C2 28 31 30 32 34 AA 49 29 AB 34 38 3A 53 |H..(1024.I).48:S|
00000880: 48 B2 53 48 AC 33 00 93 28 4F 00 53 48 B2 53 48 |H.SH.3..(O.SH.SH|
00000890: AA 36 35 00 AF 28 50 00 97 35 30 30 30 30 AA 49 |.65..(P..50000.I|
000008A0: 2C 53 48 3A 97 35 35 32 39 36 AA 49 2C 31 33 00 |,SH:.55296.I,13.|
000008B0: B5 28 51 00 82 00 BD 28 52 00 89 32 33 00 C6 28 |.(Q....(R..23..(|
000008C0: 53 00 8D 31 36 38 00 E2 28 54 00 85 22 93 99 53 |S..168..(T.."..S|
000008D0: 41 56 45 20 46 49 4C 45 4E 41 4D 45 20 3A 22 3B |AVE FILENAME :";|
000008E0: 46 24 00 0C 29 55 00 9E 34 39 31 35 32 3A 81 49 |F$..)U..49152:.I|
000008F0: B2 31 A4 34 30 3A 97 31 30 32 34 AA BB 28 31 29 |.1.40:.1024..(1)|
00000900: AC 31 30 30 30 AA 31 2C 36 35 3A 82 00 26 29 56 |.1000.1,65:..&)V|
00000910: 00 9F 32 2C 38 2C 32 2C 22 30 3A 22 AA 46 24 AA |..2,8,2,"0:".F$.|
00000920: 22 2C 53 2C 57 22 00 39 29 57 00 81 49 B2 34 39 |",S,W".9)W..I.49|
00000930: 33 39 30 A4 35 31 30 30 30 00 45 29 58 00 98 32 |390.51000.E)X..2|
00000940: 2C C2 28 49 29 00 4B 29 59 00 82 00 56 29 5A 00 |,.(I).K)Y...V)Z.|
00000950: A0 32 2C 38 2C 32 00 5E 29 5B 00 89 32 33 00 67 |.2,8,2.^)[..23.g|
00000960: 29 5C 00 8D 31 36 38 00 83 29 5D 00 85 22 93 99 |)\..168..)].."..|
00000970: 4C 4F 41 44 20 46 49 4C 45 4E 41 4D 45 20 3A 22 |LOAD FILENAME :"|
00000980: 3B 46 24 00 AB 29 5E 00 9E 34 39 31 35 32 3A 81 |;F$..)^..49152:.|
00000990: 49 B2 31 A4 34 30 3A 97 31 30 32 34 AA BB 28 31 |I.1.40:.1024..(1|
000009A0: 29 AC 31 30 30 30 2C 36 35 3A 82 00 C5 29 5F 00 |).1000,65:...)_.|
000009B0: 9F 32 2C 38 2C 32 2C 22 30 3A 22 AA 46 24 AA 22 |.2,8,2,"0:".F$."|
000009C0: 2C 53 2C 52 22 00 D8 29 60 00 81 49 B2 34 39 33 |,S,R"..)`..I.493|
000009D0: 39 30 A4 35 31 30 30 30 00 E1 29 61 00 84 32 2C |90.51000..)a..2,|
000009E0: 44 00 EC 29 62 00 97 49 2C 44 3A 82 00 F7 29 63 |D..)b..I,D:...)c|
000009F0: 00 A0 32 2C 38 2C 32 00 FF 29 64 00 89 32 33 00 |..2,8,2..)d..23.|
00000A00: 20 2A 65 00 99 22 93 50 52 45 53 53 20 41 4E 59 | *e..".PRESS ANY|
00000A10: 20 4B 45 59 20 54 4F 20 45 58 49 54 2E 2E 2E 2E | KEY TO EXIT....|
00000A20: 00 34 2A 66 00 8D 31 36 38 3A 81 44 B2 31 A4 35 |.4*f..168:.D.1.5|
00000A30: 30 30 3A 82 00 46 2A 67 00 9E 34 39 33 32 32 3A |00:..F*g..49322:|
00000A40: 9E 34 39 31 35 32 00 5C 2A 68 00 97 31 39 38 2C |.49152.\*h..198,|
00000A50: 2E 3A 92 31 39 38 2C 31 3A 89 32 33 00 80 2A 69 |.:.198,1:.23..*i|
00000A60: 00 8D 31 36 38 3A 99 22 93 43 4F 4D 50 49 4C 45 |..168:.".COMPILE|
00000A70: 20 46 49 4C 45 4E 41 4D 45 3A 22 3B 3A 85 46 24 | FILENAME:";:.F$|
00000A80: 00 9A 2A 6A 00 8B C3 28 46 24 29 B1 31 32 A7 46 |..*j...(F$).12.F|
00000A90: 24 B2 C8 28 46 24 2C 31 32 29 00 AA 2A 6B 00 46 |$..(F$,12)..*k.F|
00000AA0: 24 B2 46 24 AA 22 2D 50 41 43 00 C5 2A 6C 00 81 |$.F$."-PAC..*l..|
00000AB0: 49 B2 35 34 34 38 A4 35 36 36 31 3A 87 44 3A 97 |I.5448.5661:.D:.|
00000AC0: 49 2C 44 3A 82 00 DE 2A 6D 00 87 44 3A 43 54 B2 |I,D:...*m..D:CT.|
00000AD0: 43 54 AA 31 3A 8B 43 54 B2 39 A7 31 31 33 00 ED |CT.1:.CT.9.113..|
00000AE0: 2A 6E 00 8B 44 B1 32 35 35 A7 31 31 35 00 FD 2A |*n..D.255.115..*|
00000AF0: 6F 00 8B 44 B2 AB 39 39 39 A7 31 31 36 00 19 2B |o..D..999.116..+|
00000B00: 70 00 97 49 2C 44 3A 49 B2 49 AA 31 3A 43 4B B2 |p..I,D:I.I.1:CK.|
00000B10: 43 4B AA 44 3A 89 31 30 39 00 4B 2B 71 00 8B 43 |CK.D:.109.K+q..C|
00000B20: 4B B3 B1 44 A7 99 22 44 41 54 41 20 45 52 52 4F |K..D.."DATA ERRO|
00000B30: 52 20 49 4E 20 4C 49 4E 45 22 C2 28 36 34 29 AC |R IN LINE".(64).|
00000B40: 32 35 36 AA C2 28 36 33 29 3A 80 00 5E 2B 72 00 |256..(63):..^+r.|
00000B50: 43 4B B2 2E 3A 43 54 B2 2E 3A 89 31 30 39 00 8F |CK..:CT..:.109..|
00000B60: 2B 73 00 99 22 44 41 54 41 20 52 41 4E 47 45 20 |+s.."DATA RANGE |
00000B70: 45 52 52 4F 52 20 49 4E 20 4C 49 4E 45 22 C2 28 |ERROR IN LINE".(|
00000B80: 36 34 29 AC 32 35 36 AA C2 28 36 33 29 3A 80 00 |64).256..(63):..|
00000B90: A1 2B 74 00 87 44 3A 8B 44 B3 B1 43 4B A7 31 31 |.+t..D:.D..CK.11|
00000BA0: 33 00 C4 2B 75 00 83 31 36 32 2C 30 2C 31 38 39 |3..+u..162,0,189|
00000BB0: 2C 37 32 2C 31 33 2C 31 35 37 2C 30 2C 31 39 32 |,72,13,157,0,192|
00000BC0: 2C 37 38 35 00 E8 2B 76 00 83 31 38 39 2C 37 32 |,785..+v..189,72|
00000BD0: 2C 31 34 2C 31 35 37 2C 30 2C 31 39 33 2C 31 38 |,14,157,0,193,18|
00000BE0: 39 2C 37 32 2C 38 38 36 00 0C 2C 77 00 83 31 35 |9,72,886..,w..15|
00000BF0: 2C 31 35 37 2C 30 2C 31 39 34 2C 31 38 39 2C 37 |,157,0,194,189,7|
00000C00: 32 2C 31 36 2C 31 35 37 2C 38 30 30 00 2F 2C 78 |2,16,157,800./,x|
00000C10: 00 83 30 2C 31 39 35 2C 31 38 39 2C 37 32 2C 31 |..0,195,189,72,1|
00000C20: 37 2C 31 35 37 2C 30 2C 31 39 36 2C 38 32 36 00 |7,157,0,196,826.|
00000C30: 53 2C 79 00 83 31 38 39 2C 37 32 2C 31 38 2C 31 |S,y..189,72,18,1|
00000C40: 35 37 2C 30 2C 31 39 37 2C 31 38 39 2C 37 32 2C |57,0,197,189,72,|
00000C50: 38 39 34 00 77 2C 7A 00 83 31 39 2C 31 35 37 2C |894.w,z..19,157,|
00000C60: 30 2C 31 39 38 2C 31 38 39 2C 37 32 2C 32 30 2C |0,198,189,72,20,|
00000C70: 31 35 37 2C 38 31 32 00 9D 2C 7B 00 83 30 2C 31 |157,812..,{..0,1|
00000C80: 39 39 2C 32 33 32 2C 32 32 34 2C 30 2C 32 30 38 |99,232,224,0,208|
00000C90: 2C 32 30 33 2C 31 36 32 2C 31 32 32 38 00 C2 2C |,203,162,1228..,|
00000CA0: 7C 00 83 30 2C 31 38 39 2C 31 36 38 2C 32 31 2C ||..0,189,168,21,|
00000CB0: 32 30 31 2C 32 35 35 2C 32 34 30 2C 37 2C 31 30 |201,255,240,7,10|
00000CC0: 38 31 00 E9 2C 7D 00 83 33 32 2C 32 31 30 2C 32 |81..,}..32,210,2|
00000CD0: 35 35 2C 32 33 32 2C 37 36 2C 31 32 39 2C 32 31 |55,232,76,129,21|
00000CE0: 2C 31 36 32 2C 31 31 31 37 00 10 2D 7E 00 83 32 |,162,1117..-~..2|
00000CF0: 35 35 2C 31 36 30 2C 32 35 35 2C 32 30 32 2C 32 |55,160,255,202,2|
00000D00: 34 30 2C 39 2C 32 33 38 2C 33 32 2C 31 33 39 31 |40,9,238,32,1391|
00000D10: 00 37 2D 7F 00 83 32 30 38 2C 31 33 36 2C 32 30 |.7-...208,136,20|
00000D20: 38 2C 32 35 30 2C 37 36 2C 31 34 37 2C 32 31 2C |8,250,76,147,21,|
00000D30: 33 32 2C 31 30 37 38 00 5B 2D 80 00 83 31 37 30 |32,1078.[-...170|
00000D40: 2C 31 39 32 2C 33 32 2C 30 2C 31 39 32 2C 37 36 |,192,32,0,192,76|
00000D50: 2C 31 36 35 2C 32 31 2C 38 34 38 00 7D 2D 81 00 |,165,21,848.}-..|
00000D60: 83 31 34 37 2C 37 31 2C 38 32 2C 36 35 2C 38 30 |.147,71,82,65,80|
00000D70: 2C 37 32 2C 37 33 2C 36 37 2C 36 35 37 00 9E 2D |,72,73,67,657..-|
00000D80: 82 00 83 38 33 2C 33 32 2C 36 38 2C 36 39 2C 37 |...83,32,68,69,7|
00000D90: 37 2C 37 39 2C 37 38 2C 38 33 2C 35 36 39 00 BF |7,79,78,83,569..|
00000DA0: 2D 83 00 83 38 34 2C 38 32 2C 36 35 2C 38 34 2C |-...84,82,65,84,|
00000DB0: 37 33 2C 37 39 2C 37 38 2C 33 32 2C 35 37 37 00 |73,79,78,32,577.|
00000DC0: E0 2D 84 00 83 38 32 2C 37 39 2C 38 35 2C 38 34 |.-...82,79,85,84|
00000DD0: 2C 37 33 2C 37 38 2C 36 39 2C 34 36 2C 35 39 36 |,73,78,69,46,596|
00000DE0: 00 01 2E 85 00 83 31 37 2C 31 37 2C 31 33 2C 36 |......17,17,13,6|
00000DF0: 37 2C 37 39 2C 37 37 2C 38 30 2C 37 33 2C 34 32 |7,79,77,80,73,42|
00000E00: 33 00 22 2E 86 00 83 37 36 2C 36 39 2C 36 38 2C |3."....76,69,68,|
00000E10: 33 32 2C 37 30 2C 38 32 2C 37 39 2C 37 37 2C 35 |32,70,82,79,77,5|
00000E20: 35 33 00 43 2E 87 00 83 33 32 2C 36 35 2C 33 32 |53.C....32,65,32|
00000E30: 2C 38 30 2C 38 32 2C 37 39 2C 37 31 2C 38 32 2C |,80,82,79,71,82,|
00000E40: 35 32 33 00 64 2E 88 00 83 36 35 2C 37 37 2C 33 |523.d....65,77,3|
00000E50: 32 2C 38 37 2C 38 32 2C 37 33 2C 38 34 2C 38 34 |2,87,82,73,84,84|
00000E60: 2C 35 38 34 00 85 2E 89 00 83 36 39 2C 37 38 2C |,584......69,78,|
00000E70: 33 32 2C 36 36 2C 38 39 2C 31 33 2C 38 30 2C 34 |32,66,89,13,80,4|
00000E80: 36 2C 34 37 33 00 A6 2E 8A 00 83 36 35 2C 34 36 |6,473......65,46|
00000E90: 2C 36 37 2C 38 32 2C 37 39 2C 38 34 2C 37 39 2C |,67,82,79,84,79,|
00000EA0: 37 38 2C 35 38 30 00 C7 2E 8B 00 83 33 32 2C 34 |78,580......32,4|
00000EB0: 39 2C 35 37 2C 35 36 2C 35 36 2C 34 36 2C 31 33 |9,57,56,56,46,13|
00000EC0: 2C 31 33 2C 33 32 32 00 E8 2E 8C 00 83 34 30 2C |,13,322......40,|
00000ED0: 36 37 2C 34 31 2C 33 32 2C 34 39 2C 35 37 2C 35 |67,41,32,49,57,5|
00000EE0: 36 2C 35 36 2C 33 39 38 00 09 2F 8D 00 83 33 32 |6,56,398../...32|
00000EF0: 2C 37 30 2C 38 35 2C 38 34 2C 38 35 2C 38 32 2C |,70,85,84,85,82,|
00000F00: 36 39 2C 33 32 2C 35 33 39 00 2A 2F 8E 00 83 38 |69,32,539.*/...8|
00000F10: 33 2C 37 39 2C 37 30 2C 38 34 2C 38 37 2C 36 35 |3,79,70,84,87,65|
00000F20: 2C 38 32 2C 36 39 2C 36 31 39 00 4B 2F 8F 00 83 |,82,69,619.K/...|
00000F30: 33 32 2C 37 36 2C 38 34 2C 36 38 2C 34 36 2C 32 |32,76,84,68,46,2|
00000F40: 35 35 2C 2D 39 39 39 2C 35 36 31 00 5E 2F 90 00 |55,-999,561.^/..|
00000F50: 81 49 B2 34 39 31 35 32 A4 35 31 30 30 31 00 77 |.I.49152.51001.w|
00000F60: 2F 91 00 97 33 34 30 30 AA 49 AB 34 39 31 35 32 |/...3400.I.49152|
00000F70: 2C C2 28 49 29 3A 82 00 9D 2F 92 00 99 22 93 53 |,.(I):.../...".S|
00000F80: 41 56 49 4E 47 20 43 4F 4D 50 49 4C 45 44 20 43 |AVING COMPILED C|
00000F90: 4F 44 45 20 55 4E 44 45 52 20 22 46 24 00 D8 2F |ODE UNDER "F$../|
00000FA0: 93 00 99 22 11 57 48 45 4E 20 54 48 49 53 20 53 |...".WHEN THIS S|
00000FB0: 41 56 45 20 49 53 20 43 4F 4D 50 4C 45 54 45 20 |AVE IS COMPLETE |
00000FC0: 54 48 45 20 43 4F 4D 50 55 54 45 52 20 57 49 4C |THE COMPUTER WIL|
00000FD0: 4C 20 52 45 53 45 54 2E 00 08 30 94 00 99 22 11 |L RESET...0...".|
00000FE0: 11 49 4E 20 46 55 54 55 52 45 2C 20 54 4F 20 4C |.IN FUTURE, TO L|
00000FF0: 4F 41 44 20 54 48 45 20 43 4F 4D 50 49 4C 45 44 |OAD THE COMPILED|
00001000: 20 56 45 52 53 49 4F 4E 00 45 30 95 00 99 22 54 | VERSION.E0..."T|
00001010: 59 50 45 20 4C 4F 41 44 20 27 46 49 4C 45 4E 41 |YPE LOAD 'FILENA|
00001020: 4D 45 27 2C 38 2C 31 20 41 4E 44 20 54 48 45 4E |ME',8,1 AND THEN|
00001030: 22 3A 99 22 53 59 53 35 34 34 38 20 54 4F 20 53 |":."SYS5448 TO S|
00001040: 54 41 52 54 2E 00 55 30 96 00 81 44 B2 31 A4 34 |TART..U0...D.1.4|
00001050: 30 30 30 3A 82 00 91 30 97 00 99 22 93 11 11 50 |000:...0..."...P|
00001060: CF 34 34 2C 38 3A 50 CF 34 33 2C 2E 3A 50 CF 34 |.44,8:P.43,.:P.4|
00001070: 36 2C 32 32 3A 50 CF 34 35 2C 33 38 3A 53 41 56 |6,22:P.45,38:SAV|
00001080: 45 22 C7 28 33 34 29 46 24 C7 28 33 34 29 22 2C |E".(34)F$.(34)",|
00001090: 38 00 AA 30 98 00 99 22 11 11 11 11 11 11 11 53 |8..0...".......S|
000010A0: 59 53 36 34 37 33 38 13 22 3B 00 C8 30 99 00 97 |YS64738.";..0...|
000010B0: 31 39 38 2C 36 3A 81 49 B2 36 33 31 A4 36 33 38 |198,6:.I.631.638|
000010C0: 3A 97 49 2C 31 33 3A 82 00 CE 30 9A 00 80 00 D6 |:.I,13:...0.....|
000010D0: 30 9B 00 99 22 93 00 DF 30 9C 00 8D 31 36 38 00 |0..."...0...168.|
000010E0: 02 31 9D 00 85 22 13 11 11 99 53 54 41 52 54 49 |.1..."....STARTI|
000010F0: 4E 47 20 53 48 41 44 45 20 28 31 2D 33 30 29 22 |NG SHADE (1-30)"|
00001100: 3B 53 00 14 31 9E 00 8B 53 B3 31 B0 53 B1 33 30 |;S..1...S.1.S.30|
00001110: A7 31 35 37 00 37 31 9F 00 99 22 11 9F 4C 41 53 |.157.71..."..LAS|
00001120: 54 20 53 48 41 44 45 20 28 22 53 AA 31 22 2D 33 |T SHADE ("S.1"-3|
00001130: 31 29 22 3B 3A 85 45 00 4B 31 A0 00 8B 45 B3 53 |1)";:.E.K1...E.S|
00001140: AA 31 B0 45 B1 33 31 A7 31 35 39 00 64 31 A1 00 |.1.E.31.159.d1..|
00001150: 85 22 11 05 43 4F 4C 4F 55 52 20 28 30 2D 31 35 |."..COLOUR (0-15|
00001160: 29 22 3B 43 00 76 31 A2 00 8B 43 B3 2E B0 43 B1 |)";C.v1...C...C.|
00001170: 31 35 A7 31 36 31 00 93 31 A3 00 81 49 B2 34 39 |15.161..1...I.49|
00001180: 33 39 30 AA 36 34 AA 53 A4 34 39 33 39 30 AA 36 |390.64.S.49390.6|
00001190: 34 AA 45 00 9E 31 A4 00 97 49 2C 43 3A 82 00 A6 |4.E..1...I,C:...|
000011A0: 31 A5 00 89 32 33 00 B6 31 A6 00 8B 41 24 B2 22 |1...23..1...A$."|
000011B0: 41 22 A7 31 35 35 00 BE 31 A7 00 89 32 33 00 F7 |A".155..1...23..|
000011C0: 31 A8 00 97 35 32 30 30 30 2C 31 32 30 3A 97 35 |1...52000,120:.5|
000011D0: 32 30 30 31 2C 31 36 39 3A 97 35 32 30 30 32 2C |2001,169:.52002,|
000011E0: 34 39 3A 97 35 32 30 30 33 2C 31 34 31 3A 97 35 |49:.52003,141:.5|
000011F0: 32 30 30 34 2C 32 30 00 2F 32 A9 00 97 35 32 30 |2004,20./2...520|
00001200: 30 35 2C 33 3A 97 35 32 30 30 36 2C 31 36 39 3A |05,3:.52006,169:|
00001210: 97 35 32 30 30 37 2C 32 33 34 3A 97 35 32 30 30 |.52007,234:.5200|
00001220: 38 2C 31 34 31 3A 97 35 32 30 30 39 2C 32 31 00 |8,141:.52009,21.|
00001230: 59 32 AA 00 97 35 32 30 31 30 2C 33 3A 97 35 32 |Y2...52010,3:.52|
00001240: 30 31 31 2C 38 38 3A 97 35 32 30 31 32 2C 39 36 |011,88:.52012,96|
00001250: 3A 9E 35 32 30 30 30 3A 8E 00 00 00 |:.52000:.... |
. . ..A.A.1:.A.2.13.D ..."..WELCOME TO T
HE PULSATING GRAPHICS DRAWER.Z ...53280,
.:.53281,... ...".THIS PROGRAM IS DESIGN
ED TO PRODUCE.. ..."SCREENS OF WEIRD GRA
PHICS... ..."IT INCLUDES A SCREEN DESIGN
ER,COLOUR DEFINER AND SAVE/LOAD ROUTI
NES.>!...".WHEN YOUR WEIRD GRAPHICS SCRE
EN HAS BEENDESIGNED, YOU WILL PROBABLY..
!..."WANT TO MAKE USE OF THE COMPILE OPT
ION AT THE END-THIS JUST SAVES";..!..."
OFF A WORKINGCOPY OF THE PROGRAM..Z!...
".. ABCDEFGHIJKLMNOPQRSTUVWXYZ.."...
" A PRESS ANY KEY TO GO ON Z.&"..."
ABCDEFGHIJKLMNOPQRSTUVWXYZ.;"..."TIT
LE.DAT",8,1.F"...49152.\"...53281,1:.532
80,1.R"...198,.:.198,1:."..."...53280,.:
.53281,..."...I.49390.65.49390.96.."...C
O:.I,CO:..H"...49322:.D.1.1000:..."...5,
5,5,5,5,5,5,5,5,5..#...13,13,13,13,13,13
,13,13,3,3.##...3,3,3,3,13,13,13,13,5,5,
5,5.3#...".":.49152.V#...I.1.40:.1024.(.
(1).1000),65:..S#..."............MAIN ME
NU...#..."......................#..."...
.1) EDIT SCREEN..#..."..2) SAVE SCREEN.U
#..."..3) LOAD SCREEN..#..."..4) SHOW SC
REEN..$..."..5) COMPILE SCREEN..$ .."..6
) SET COLOURS.9$!.."....YOUR CHOICE (1-6
).K$"..198,.:.198,1.G$#..A$:.E(A$).1.E(A
$).6.34..$$..E(A$).38,83,92,101,105,155.
.$%..34..$&..".":.49152..$'..I.1.40:.102
4..(1).1000,65:..U$(..".1) NEW SCREEN..$
)..".2) LAST SCREEN..%*..198,.:.198,1:.A
$:.168:."...%+..A$."1"..".":.51./%,..A$.
."2".38.Z%-..I...999:.B(50000.I).96..102
4.I,32:.50..%...B(50000.I)...B(50000.I).
65..1024.I,B(50000.I):.50..%/.SH.B(50000
.I).65..%0.SH.SH.3:SH..(SH.48).M%1..1024
.I,SH.S%2....%3.SC.1024:CC.55296..&4..I.
55296.56295:.I,3:...&5.P1.B(SC):P2.B(CC)
.$&6..SC,160.<&7..D.1.20:.CC,.(1).16.O&8
..A$:.A$.."".62.U&9...G&:..SC,P1:.CC,P2.
S&;..D.1.20..&<..A$:.A$.."".62..&=..:.54
..&>..SC,P1:.CC,P2.K&?..A$.".".SC.SC.1:.
SC.2024.CC.CC.1:.53..&@..A$.".".SC.SC.1:
.SC..1024.CC.CC.1:.53. 'A..A$.".".SC.SC.
40:.SC.2024.CC.CC.40:.53.L'B..A$.".".SC.
SC.40:.SC..1024.CC.CC.40:.53.D'C..A$."."
.SC.SC.1:.53.|'D..A$.".".SC.SC.1:.53..'E
..A$.".".SC.SC.40:.53..'F..A$.".".SC.SC.
40:.53.S'G..F(A$).31.F(A$).64..SC,F(A$):
.53..'H..F(A$).64.F(A$).91..SC,F(A$).64:
.53..(I..A$.".".75..(J..53..(K..I...999.
H(L..B(1024.I).48..50000.I,B(1024.I):.81
.J(M..B(1024.I).57..50000.I,32:.81..(N.S
H.B(1024.I).48:SH.SH.3..(O.SH.SH.65..(P.
.50000.I,SH:.55296.I,13..(Q....(R..23.F(
S..168..(T.."..SAVE FILENAME :";F$..)U..
49152:.I.1.40:.1024..(1).1000.1,65:..&)V
..2,8,2,"0:".F$.",S,W".9)W..I.49390.5100
0.E)X..2,B(I).K)Y...V)Z. 2,8,2.^)[..23.G
)\..168..)].."..LOAD FILENAME :";F$..)^.
.49152:.I.1.40:.1024..(1).1000,65:..E)_.
.2,8,2,"0:".F$.",S,R".X)`..I.49390.51000
..)A..2,D..)B..I,D:...)C. 2,8,2..)D..23.
*E..".PRESS ANY KEY TO EXIT.....4*F..16
8:.D.1.500:..F*G..49322:.49152.\*H..198,
.:.198,1:.23..*I..168:.".COMPILE FILENAM
E:";:.F$..*J..C(F$).12.F$.H(F$,12)..*K.F
$.F$."-PAC.E*L..I.5448.5661:.D:.I,D:...*
M..D:CT.CT.1:.CT.9.113..*N..D.255.115..*
O..D..999.116..+P..I,D:I.I.1:CK.CK.D:.10
9.K+Q..CK..D.."DATA ERROR IN LINE"B(64).
256.B(63):..^+R.CK..:CT..:.109..+S.."DAT
A RANGE ERROR IN LINE"B(64).256.B(63):..
.+T..D:.D..CK.113.D+U..162,0,189,72,13,1
57,0,192,785..+V..189,72,14,157,0,193,18
9,72,886..,W..15,157,0,194,189,72,16,157
,800./,X..0,195,189,72,17,157,0,196,826.
S,Y..189,72,18,157,0,197,189,72,894.W,Z.
.19,157,0,198,189,72,20,157,812..,{..0,1
99,232,224,0,208,203,162,1228.B,|..0,189
,168,21,201,255,240,7,1081..,}..32,210,2
55,232,76,129,21,162,1117..-~..255,160,2
55,202,240,9,238,32,1391.7-..208,136,20
8,250,76,147,21,32,1078.[-...170,192,32,
0,192,76,165,21,848.}-...147,71,82,65,80
,72,73,67,657..-...83,32,68,69,77,79,78,
83,569..-...84,82,65,84,73,79,78,32,577.
.-...82,79,85,84,73,78,69,46,596......17
,17,13,67,79,77,80,73,423."....76,69,68,
32,70,82,79,77,553.C....32,65,32,80,82,7
9,71,82,523.D....65,77,32,87,82,73,84,84
,584......69,78,32,66,89,13,80,46,473...
...65,46,67,82,79,84,79,78,580.G....32,4
9,57,56,56,46,13,13,322......40,67,41,32
,49,57,56,56,398../...32,70,85,84,85,82,
69,32,539.*/...83,79,70,84,87,65,82,69,6
19.K/...32,76,84,68,46,255,-999,561.^/..
.I.49152.51001.W/...3400.I.49152,B(I):..
./...".SAVING COMPILED CODE UNDER "F$.X/
...".WHEN THIS SAVE IS COMPLETE THE COMP
UTER WILL RESET...0..."..IN FUTURE, TO L
OAD THE COMPILED VERSION.E0..."TYPE LOAD
'FILENAME',8,1 AND THEN":."SYS5448 TO S
TART..U0...D.1.4000:...0..."...PO44,8:PO
43,.:PO46,22:PO45,38:SAVE"G(34)F$G(34)",
8..0...".......SYS64738.";.H0...198,6:.I
.631.638:.I,13:..N0....V0..."...0...168.
.1..."....STARTING SHADE (1-30)";S..1...
S.1.S.30.157.71..."..LAST SHADE ("S.1"-3
1)";:.E.K1 ..E.S.1.E.31.159.D1..."..COLO
UR (0-15)";C.V1...C...C.15.161..1...I.49
390.64.S.49390.64.E..1...I,C:...1...23..
1...A$."A".155..1...23..1...52000,120:.5
2001,169:.52002,49:.52003,141:.52004,20.
/2...52005,3:.52006,169:.52007,234:.5200
8,141:.52009,21.Y2...52010,3:.52011,88:.
52012,96:.52000:....
> CLICK IMAGE PREVIEW FOR FULL MODAL