BASIC 4
FILE INFORMATION
FILENAME(S): BASIC 4
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-11-30 19:47:20
APPEARS ON: 1 disk(s)
FILE HASH
d46a2bff8f8ab3ce8664a311b3fce86567117a33e0199f99b46fbabfb5c76d46
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| THE PHANTOM | BASIC 4 | PRG | Curtcool, Frank | 23 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 0A 00 8F 20 28 43 29 20 31 39 38 35 |....... (C) 1985|
00000010: 20 47 4F 4C 44 20 44 49 53 4B 20 49 4E 43 00 24 | GOLD DISK INC.$|
00000020: 08 14 00 8F 00 33 08 1E 00 8F 20 54 55 54 4F 52 |.....3.... TUTOR|
00000030: 49 41 4C 00 39 08 28 00 8F 00 56 08 32 00 8F 20 |IAL.9.(...V.2.. |
00000040: 31 32 4B 3A 20 23 30 30 20 23 34 38 20 28 24 30 |12K: #00 #48 ($0|
00000050: 30 20 24 33 30 29 00 63 08 3C 00 8B 4B B2 31 A7 |0 $30).c.<..K.1.|
00000060: 31 30 30 00 70 08 46 00 8B 4B B2 32 A7 31 31 30 |100.p.F..K.2.110|
00000070: 00 84 08 50 00 97 35 32 2C 34 38 3A 97 35 36 2C |...P..52,48:.56,|
00000080: 34 38 3A 9C 00 9A 08 5A 00 4B B2 31 3A 93 22 4D |48:....Z.K.1:."M|
00000090: 45 4E 55 2E 42 22 2C 38 2C 31 00 B1 08 64 00 4B |ENU.B",8,1...d.K|
000000A0: B2 32 3A 93 22 53 51 54 55 54 2E 42 22 2C 38 2C |.2:."SQTUT.B",8,|
000000B0: 31 00 C5 08 6E 00 97 32 35 31 2C 30 30 3A 97 32 |1...n..251,00:.2|
000000C0: 35 32 2C 34 38 00 EB 08 78 00 50 4C B2 34 38 3A |52,48...x.PL.48:|
000000D0: 86 20 56 54 25 28 32 35 35 29 2C 56 52 25 28 32 |. VT%(255),VR%(2|
000000E0: 35 35 29 2C 50 4A 25 28 35 30 29 00 0A 09 82 00 |55),PJ%(50).....|
000000F0: 81 20 49 B2 31 20 A4 20 37 3A 87 20 4A 2C 4B 3A |. I.1 . 7:. J,K:|
00000100: 56 54 25 28 4A 29 B2 4B 3A 82 00 37 09 8C 00 83 |VT%(J).K:..7....|
00000110: 20 31 33 33 2C 31 2C 31 33 34 2C 32 2C 31 33 35 | 133,1,134,2,135|
00000120: 2C 33 2C 39 35 2C 34 2C 33 32 2C 35 2C 38 30 2C |,3,95,4,32,5,80,|
00000130: 36 2C 31 31 32 2C 36 00 52 09 96 00 81 49 B2 31 |6,112,6.R....I.1|
00000140: A4 33 3A 87 4A 2C 4B 3A 56 52 25 28 4A 29 B2 4B |.3:.J,K:VR%(J).K|
00000150: 3A 82 00 67 09 A0 00 83 20 33 32 2C 31 2C 39 34 |:..g.... 32,1,94|
00000160: 2C 32 2C 39 35 2C 33 00 75 09 AA 00 50 4A 25 28 |,2,95,3.u...PJ%(|
00000170: 33 32 29 B2 31 00 92 09 B4 00 42 44 B2 35 33 32 |32).1.....BD.532|
00000180: 38 30 3A 42 4B B2 35 33 32 38 31 3A 43 48 B2 36 |80:BK.53281:CH.6|
00000190: 34 36 00 AB 09 BE 00 97 42 44 2C 31 31 3A 97 42 |46......BD,11:.B|
000001A0: 4B 2C 31 31 3A 97 43 48 2C 31 30 00 BA 09 C8 00 |K,11:.CH,10.....|
000001B0: 99 C7 28 31 34 29 C7 28 38 29 00 C3 09 D2 00 49 |..(14).(8).....I|
000001C0: 50 B2 30 00 EA 09 DC 00 99 22 93 11 11 22 A3 39 |P.0......"...".9|
000001D0: 29 22 D3 45 51 45 4E 54 49 41 4C 20 C6 49 4C 45 |)".EQENTIAL .ILE|
000001E0: 20 D4 55 54 4F 52 49 41 4C 22 00 0F 0A E6 00 99 | .UTORIAL"......|
000001F0: 22 11 22 A3 39 29 22 D5 53 45 20 54 48 45 20 46 |".".9)".SE THE F|
00000200: 4F 4C 4C 4F 57 49 4E 47 20 4B 45 59 53 3A 22 00 |OLLOWING KEYS:".|
00000210: 3C 0A F0 00 99 22 11 11 22 A3 33 29 22 C6 31 22 |<...."..".3)".1"|
00000220: A3 39 29 22 C3 48 41 4E 47 45 20 43 48 41 52 41 |.9)".HANGE CHARA|
00000230: 43 54 45 52 20 43 4F 4C 4F 55 52 22 00 62 0A FA |CTER COLOUR".b..|
00000240: 00 99 A3 33 29 22 C6 33 22 A3 39 29 22 C3 48 41 |...3)".3".9)".HA|
00000250: 4E 47 45 20 42 4F 52 44 45 52 20 43 4F 4C 4F 55 |NGE BORDER COLOU|
00000260: 52 22 00 8C 0A 04 01 99 A3 33 29 22 C6 35 22 A3 |R".......3)".5".|
00000270: 39 29 22 C3 48 41 4E 47 45 20 42 41 43 4B 47 52 |9)".HANGE BACKGR|
00000280: 4F 55 4E 44 20 43 4F 4C 4F 55 52 22 00 99 0A 0E |OUND COLOUR"....|
00000290: 01 43 54 B2 C2 28 43 48 29 00 BA 0A 18 01 99 A3 |.CT..(CH).......|
000002A0: 34 29 22 5F 22 A3 39 29 22 D2 45 54 55 52 4E 20 |4)"_".9)".ETURN |
000002B0: 54 4F 20 9E CD 41 49 4E 22 3B 00 CE 0A 22 01 97 |TO ..AIN";..."..|
000002C0: 43 48 2C 43 54 3A 99 22 20 4D 45 4E 55 22 00 F7 |CH,CT:." MENU"..|
000002D0: 0A 2C 01 99 A3 34 29 22 D0 22 A3 39 29 22 C3 48 |.,...4)".".9)".H|
000002E0: 41 4E 47 45 20 54 48 45 20 53 54 41 52 54 49 4E |ANGE THE STARTIN|
000002F0: 47 20 50 41 47 45 22 00 1E 0B 36 01 99 22 20 3C |G PAGE"...6.." <|
00000300: 53 50 41 43 45 3E 22 A3 39 29 22 D3 54 41 52 54 |SPACE>".9)".TART|
00000310: 20 54 48 45 20 54 55 54 4F 52 49 41 4C 22 00 3F | THE TUTORIAL".?|
00000320: 0B 40 01 99 22 11 11 22 A3 39 29 22 C3 55 52 52 |.@.."..".9)".URR|
00000330: 45 4E 54 20 50 41 47 45 3A 22 3B 49 50 AA 31 00 |ENT PAGE:";IP.1.|
00000340: 47 0B 4A 01 99 3A 99 00 5D 0B 54 01 A1 20 41 24 |G.J..:..].T.. A$|
00000350: 20 3A 8B 41 24 B2 22 22 89 20 33 34 30 00 88 0B | :.A$."". 340...|
00000360: 5E 01 91 20 56 54 25 28 C6 28 41 24 29 29 20 89 |^.. VT%(.(A$)) .|
00000370: 20 33 37 30 2C 34 30 30 2C 34 31 30 2C 35 39 30 | 370,400,410,590|
00000380: 2C 34 38 30 2C 34 34 30 00 91 0B 68 01 89 33 34 |,480,440...h..34|
00000390: 30 00 B2 0B 72 01 97 43 48 2C 28 28 C2 28 43 48 |0...r..CH,((.(CH|
000003A0: 29 AA 31 29 AF 20 31 35 29 3A 52 52 B2 C2 28 43 |).1). 15):RR..(C|
000003B0: 48 29 00 D1 0B 7C 01 8B 28 C2 28 43 48 29 AF 31 |H)...|..(.(CH).1|
000003C0: 35 29 B2 28 C2 28 42 4B 29 AF 31 35 29 A7 33 37 |5).(.(BK).15).37|
000003D0: 30 00 DA 0B 86 01 89 32 31 30 00 F6 0B 90 01 97 |0......210......|
000003E0: 42 44 2C 28 C2 28 42 44 29 AA 31 29 AF 20 31 35 |BD,(.(BD).1). 15|
000003F0: 3A 89 20 33 34 30 00 0D 0C 9A 01 97 42 4B 2C 28 |:. 340......BK,(|
00000400: C2 28 42 4B 29 AA 31 20 AF 20 31 35 29 00 2C 0C |.(BK).1 . 15).,.|
00000410: A4 01 8B 28 C2 28 42 4B 29 AF 31 35 29 B2 28 C2 |...(.(BK).15).(.|
00000420: 28 43 48 29 AF 31 35 29 A7 34 31 30 00 36 0C AE |(CH).15).410.6..|
00000430: 01 89 20 33 34 30 00 55 0C B8 01 99 22 20 C5 4E |.. 340.U...." .N|
00000440: 54 45 52 20 50 41 47 45 20 4E 55 4D 42 45 52 22 |TER PAGE NUMBER"|
00000450: 3B 3A 85 49 50 00 72 0C C2 01 49 50 B2 49 50 AB |;:.IP.r...IP.IP.|
00000460: 31 3A 8B 49 50 B3 30 B0 49 50 B2 B1 50 4C A7 34 |1:.IP.0.IP..PL.4|
00000470: 34 30 00 97 0C CC 01 99 22 91 20 20 20 20 20 20 |40......". |
00000480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000490: 20 20 20 20 20 91 22 00 A0 0C D6 01 89 32 32 30 | ."......220|
000004A0: 00 B5 0C E0 01 97 32 35 33 2C 49 50 3A 9E 28 34 |......253,IP:.(4|
000004B0: 30 37 30 34 29 00 EB 0C EA 01 99 22 20 12 20 53 |0704)......" . S|
000004C0: 50 41 43 45 20 92 20 4E 45 58 54 20 50 47 20 20 |PACE . NEXT PG |
000004D0: 12 20 5E 20 92 20 50 52 45 56 20 50 47 20 20 12 |. ^ . PREV PG .|
000004E0: 20 5F 20 92 20 D1 55 49 54 22 3B 00 FE 0C F4 01 | _ . .UIT";.....|
000004F0: A1 41 24 3A 8B 41 24 B2 22 22 A7 35 30 30 00 1C |.A$:.A$."".500..|
00000500: 0D FE 01 91 20 56 52 25 28 C6 28 41 24 29 29 89 |.... VR%(.(A$)).|
00000510: 20 35 33 30 2C 35 36 30 2C 35 38 30 00 25 0D 08 | 530,560,580.%..|
00000520: 02 89 35 30 30 00 39 0D 12 02 91 20 50 4A 25 28 |..500.9.... PJ%(|
00000530: 49 50 29 20 8D 20 36 33 30 00 57 0D 1C 02 49 50 |IP) . 630.W...IP|
00000540: B2 49 50 AA 31 3A 8B 49 50 B2 B1 50 4C A7 99 22 |.IP.1:.IP..PL.."|
00000550: 93 22 3A 89 35 38 30 00 60 0D 26 02 89 34 38 30 |.":.580.`.&..480|
00000560: 00 76 0D 30 02 49 50 B2 49 50 AB 31 3A 8B 49 50 |.v.0.IP.IP.1:.IP|
00000570: B3 30 A7 32 31 30 00 7F 0D 3A 02 89 34 38 30 00 |.0.210...:..480.|
00000580: A0 0D 44 02 99 22 93 11 11 11 12 20 C5 4E 44 20 |..D.."..... .ND |
00000590: 4F 46 20 D4 55 54 4F 52 49 41 4C 20 92 11 11 22 |OF .UTORIAL ..."|
000005A0: 00 C4 0D 4E 02 99 22 C4 4F 20 59 4F 55 20 52 45 |...N..".O YOU RE|
000005B0: 41 4C 4C 59 20 57 49 53 48 20 54 4F 20 51 55 49 |ALLY WISH TO QUI|
000005C0: 54 20 3F 22 00 D7 0D 58 02 A1 41 24 3A 8B 41 24 |T ?"...X..A$:.A$|
000005D0: B2 22 22 A7 36 30 30 00 E8 0D 62 02 8B 41 24 B3 |."".600...b..A$.|
000005E0: B1 22 59 22 A7 32 31 30 00 0D 0E 6C 02 97 20 35 |."Y".210...l.. 5|
000005F0: 32 2C 31 31 32 3A 97 35 36 2C 31 31 32 3A 9C 3A |2,112:.56,112:.:|
00000600: 99 22 93 22 3A 20 9E 20 34 39 31 35 32 00 3F 0E |.".": . 49152.?.|
00000610: 76 02 99 3A 99 22 93 20 20 4C 45 54 53 20 55 53 |v..:.". LETS US|
00000620: 45 20 54 48 45 20 C7 C5 D4 20 46 55 4E 43 54 49 |E THE ... FUNCTI|
00000630: 4F 4E 20 54 4F 20 54 45 53 54 20 54 48 45 22 00 |ON TO TEST THE".|
00000640: 69 0E 80 02 99 22 20 20 20 20 41 4C 50 48 41 42 |i...." ALPHAB|
00000650: 45 54 20 4B 45 59 53 20 4F 4E 20 54 48 45 20 4B |ET KEYS ON THE K|
00000660: 45 59 42 4F 41 52 44 2E 22 00 92 0E 8A 02 99 3A |EYBOARD."......:|
00000670: 99 A6 35 29 22 54 48 45 20 50 52 4F 47 52 41 4D |..5)"THE PROGRAM|
00000680: 20 4C 4F 4F 4B 53 20 4C 49 4B 45 20 54 48 49 53 | LOOKS LIKE THIS|
00000690: 3A 22 00 B7 0E 94 02 99 3A 99 22 20 31 30 30 20 |:"......:." 100 |
000006A0: 50 52 49 4E 54 20 22 C7 28 33 34 29 C7 28 31 31 |PRINT ".(34).(11|
000006B0: 35 29 C7 28 33 34 29 00 DC 0E 9E 02 99 22 20 31 |5).(34)......" 1|
000006C0: 31 30 20 50 52 49 4E 54 20 22 C7 28 33 34 29 3B |10 PRINT ".(34);|
000006D0: 22 53 22 3B C7 28 33 34 29 22 3B 22 00 03 0F A8 |"S";.(34)";"....|
000006E0: 02 99 22 20 31 32 30 20 47 45 54 20 41 24 3A 20 |.." 120 GET A$: |
000006F0: 49 46 20 41 24 20 3D 20 22 22 20 54 48 45 4E 20 |IF A$ = "" THEN |
00000700: 31 32 30 00 27 0F B2 02 99 22 20 31 32 35 20 49 |120.'...." 125 I|
00000710: 46 20 41 24 3D 43 48 52 24 28 31 33 29 20 54 48 |F A$=CHR$(13) TH|
00000720: 45 4E 20 45 4E 44 22 00 40 0F BC 02 99 22 20 31 |EN END".@...." 1|
00000730: 33 30 20 4E 20 3D 20 43 48 52 24 28 41 24 29 22 |30 N = CHR$(A$)"|
00000740: 00 64 0F C6 02 99 22 20 31 34 30 20 49 46 20 4E |.d...." 140 IF N|
00000750: 3C 30 20 4F 52 20 4E 3E 32 36 20 54 48 45 4E 20 |<0 OR N>26 THEN |
00000760: 31 32 30 22 00 83 0F D0 02 99 22 20 31 35 30 20 |120"......" 150 |
00000770: 50 52 49 4E 54 20 53 50 43 28 4E 2B 31 31 29 3B |PRINT SPC(N+11);|
00000780: 41 24 3B 00 98 0F DA 02 99 22 20 31 36 30 20 47 |A$;......" 160 G|
00000790: 4F 54 4F 20 31 31 30 22 00 B5 0F E4 02 99 3A 99 |OTO 110"......:.|
000007A0: 3A 99 A6 35 29 22 4E 4F 54 45 3A 20 53 20 3D 20 |:..5)"NOTE: S = |
000007B0: 48 4F 4D 45 22 00 D3 0F EE 02 99 A6 35 29 22 4E |HOME".......5)"N|
000007C0: 4F 54 45 3A 20 D3 20 3D 20 43 4C 45 41 52 22 3A |OTE: . = CLEAR":|
000007D0: 99 3A 99 00 F3 0F F8 02 99 22 11 11 11 11 54 59 |.:......."....TY|
000007E0: 50 45 20 41 4E 59 20 4B 45 59 20 54 4F 20 52 55 |PE ANY KEY TO RU|
000007F0: 4E 22 3B 00 08 10 02 03 A1 41 24 3A 8B 20 41 24 |N";......A$:. A$|
00000800: B2 22 22 A7 20 37 37 30 00 3B 10 0C 03 99 22 93 |."". 770.;....".|
00000810: 11 11 11 11 11 11 D4 59 50 45 20 4B 45 59 53 20 |.......YPE KEYS |
00000820: 54 4F 20 44 45 4D 4F 4E 53 54 52 41 54 45 20 55 |TO DEMONSTRATE U|
00000830: 53 45 20 4F 46 20 C7 C5 D4 53 22 00 5D 10 16 03 |SE OF ...S".]...|
00000840: 99 22 11 11 11 11 D5 53 45 20 12 20 D2 45 54 55 |.".....SE . .ETU|
00000850: 52 4E 20 92 20 54 4F 20 53 54 4F 50 22 00 70 10 |RN . TO STOP".p.|
00000860: 20 03 A1 41 24 3A 8B 41 24 B2 22 22 A7 38 30 30 | ..A$:.A$."".800|
00000870: 00 84 10 2A 03 8B 20 41 24 B2 C7 28 31 33 29 A7 |...*.. A$..(13).|
00000880: 20 38 34 30 00 A9 10 34 03 4E B2 C6 28 41 24 29 | 840...4.N..(A$)|
00000890: AB C6 28 22 41 22 29 3A 8B 4E B3 30 20 B0 20 4E |..("A"):.N.0 . N|
000008A0: B1 32 36 20 A7 20 38 30 30 00 C0 10 3E 03 99 22 |.26 . 800...>.."|
000008B0: 13 22 A6 4E AA 37 29 3B 41 24 3B 3A 89 38 30 30 |.".N.7);A$;:.800|
000008C0: 00 C6 10 48 03 8E 00 00 00 |...H..... |
....... (C) 1985 GOLD DISK INC.$.....3..
.. TUTORIAL.9.(...V.2.. 12K: #00 #48 ($0
0 $30).C.<..K.1.100.P.F..K.2.110...P..52
,48:.56,48:....Z.K.1:."MENU.B",8,1...D.K
.2:."SQTUT.B",8,1.E.N..251,00:.252,48...
X.PL.48:. VT%(255),VR%(255),PJ%(50).....
. I.1 . 7:. J,K:VT%(J).K:..7.... 133,1,1
34,2,135,3,95,4,32,5,80,6,112,6.R....I.1
.3:.J,K:VR%(J).K:..G. .. 32,1,94,2,95,3.
U...PJ%(32).1.....BD.53280:BK.53281:CH.6
46......BD,11:.BK,11:.CH,10...H..G(14)G(
8).C.R.IP.0......"...".9)"SEQENTIAL FILE
TUTORIAL"......".".9)"USE THE FOLLOWING
KEYS:".<...."..".3)"F1".9)"CHANGE CHARA
CTER COLOUR".B.....3)"F3".9)"CHANGE BORD
ER COLOUR".......3)"F5".9)"CHANGE BACKGR
OUND COLOUR".....CT.B(CH).......4)"_".9)
"RETURN TO .MAIN";.N."..CH,CT:." MENU"..
.,...4)"P".9)"CHANGE THE STARTING PAGE".
..6.." <SPACE>".9)"START THE TUTORIAL".?
.@.."..".9)"CURRENT PAGE:";IP.1.G.J..:..
].T.. A$ :.A$."". 340...^.. VT%(F(A$)) .
370,400,410,590,480,440...H..340...R..C
H,((B(CH).1). 15):RR.B(CH).Q.|..(B(CH).1
5).(B(BK).15).370.Z....210......BD,(B(BD
).1). 15:. 340......BK,(B(BK).1 . 15).,.
...(B(BK).15).(B(CH).15).410.6.... 340.U
...." ENTER PAGE NUMBER";:.IP.R.B.IP.IP.
1:.IP.0.IP..PL.440...L..".
.". .V..220......253,IP:.(4
0704)......" . SPACE . NEXT PG . ^ . PR
EV PG . _ . QUIT";......A$:.A$."".500..
.... VR%(F(A$)). 530,560,580.%....500.9.
... PJ%(IP) . 630.W...IP.IP.1:.IP..PL.."
.":.580.`.&..480.V.0.IP.IP.1:.IP.0.210.
.:..480. .D.."..... END OF TUTORIAL ..."
.D.N.."DO YOU REALLY WISH TO QUIT ?".W.X
..A$:.A$."".600...B..A$.."Y".210...L.. 5
2,112:.56,112:.:.".": . 49152.?.V..:.".
LETS USE THE GET FUNCTION TO TEST THE".
I...." ALPHABET KEYS ON THE KEYBOARD.
"......:..5)"THE PROGRAM LOOKS LIKE THIS
:"......:." 100 PRINT "G(34)G(115)G(34).
....." 110 PRINT "G(34);"S";G(34)";"....
.." 120 GET A$: IF A$ = "" THEN 120.'...
." 125 IF A$=CHR$(13) THEN END".@...." 1
30 N = CHR$(A$)".D.F.." 140 IF N<0 OR N>
26 THEN 120"...P.." 150 PRINT SPC(N+11);
A$;...Z.." 160 GOTO 110"......:.:..5)"NO
TE: S = HOME".S.....5)"NOTE: S = CLEAR":
.:......."....TYPE ANY KEY TO RUN";.....
.A$:. A$."". 770.;....".......TYPE KEYS
TO DEMONSTRATE USE OF GETS".]...."....US
E . RETURN . TO STOP".P. ..A$:.A$."".800
...*.. A$.G(13). 840...4.N.F(A$).F("A"):
.N.0 . N.26 . 800...>..".".N.7);A$;:.800
.F.H.....
> CLICK IMAGE PREVIEW FOR FULL MODAL