TUTORIAL
FILE INFORMATION
FILENAME(S): TUTORIAL
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-10-19 22:49:26
APPEARS ON: 1 disk(s)
FILE HASH
7a703ff699d256a406bc1acca541d2cf84039504674f6536ac99da296129c255
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GOLD DISK 4 | TUTORIAL | PRG | Radd Maxx | 8 | 2 | 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 C7 CF CC C4 22 3B 00 CE 0A 22 01 97 |TO .....";..."..|
000002C0: 43 48 2C 43 54 3A 99 22 20 44 49 53 4B 22 00 F7 |CH,CT:." DISK"..|
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 E7 0C EA 01 99 22 12 3C 53 50 |0704)......".<SP|
000004C0: 41 43 45 3E 20 4E 45 58 54 20 50 47 20 3C 5E 3E |ACE> NEXT PG <^>|
000004D0: 20 50 52 45 56 20 50 47 20 3C 5F 3E 20 C7 C4 20 | PREV PG <_> .. |
000004E0: 4D 45 4E 55 92 22 3B 00 FA 0C F4 01 A1 41 24 3A |MENU.";......A$:|
000004F0: 8B 41 24 B2 22 22 A7 35 30 30 00 18 0D FE 01 91 |.A$."".500......|
00000500: 20 56 52 25 28 C6 28 41 24 29 29 89 20 35 33 30 | VR%(.(A$)). 530|
00000510: 2C 35 36 30 2C 35 38 30 00 21 0D 08 02 89 35 30 |,560,580.!....50|
00000520: 30 00 35 0D 12 02 91 20 50 4A 25 28 49 50 29 20 |0.5.... PJ%(IP) |
00000530: 8D 20 36 33 30 00 53 0D 1C 02 49 50 B2 49 50 AA |. 630.S...IP.IP.|
00000540: 31 3A 8B 49 50 B2 B1 50 4C A7 99 22 93 22 3A 89 |1:.IP..PL..".":.|
00000550: 35 38 30 00 5C 0D 26 02 89 34 38 30 00 72 0D 30 |580.\.&..480.r.0|
00000560: 02 49 50 B2 49 50 AB 31 3A 8B 49 50 B3 30 A7 32 |.IP.IP.1:.IP.0.2|
00000570: 31 30 00 7B 0D 3A 02 89 34 38 30 00 9C 0D 44 02 |10.{.:..480...D.|
00000580: 99 22 93 11 11 11 12 20 C5 4E 44 20 4F 46 20 D4 |."..... .ND OF .|
00000590: 55 54 4F 52 49 41 4C 20 92 11 11 22 00 C0 0D 4E |UTORIAL ..."...N|
000005A0: 02 99 22 C4 4F 20 59 4F 55 20 52 45 41 4C 4C 59 |..".O YOU REALLY|
000005B0: 20 57 49 53 48 20 54 4F 20 51 55 49 54 20 3F 22 | WISH TO QUIT ?"|
000005C0: 00 D3 0D 58 02 A1 41 24 3A 8B 41 24 B2 22 22 A7 |...X..A$:.A$."".|
000005D0: 36 30 30 00 E4 0D 62 02 8B 41 24 B3 B1 22 59 22 |600...b..A$.."Y"|
000005E0: A7 32 31 30 00 09 0E 6C 02 97 20 35 32 2C 31 31 |.210...l.. 52,11|
000005F0: 32 3A 97 35 36 2C 31 31 32 3A 9C 3A 99 22 93 22 |2:.56,112:.:."."|
00000600: 3A 20 9E 20 34 39 31 35 32 00 3B 0E 76 02 99 3A |: . 49152.;.v..:|
00000610: 99 22 93 20 20 4C 45 54 53 20 55 53 45 20 54 48 |.". LETS USE TH|
00000620: 45 20 C7 C5 D4 20 46 55 4E 43 54 49 4F 4E 20 54 |E ... FUNCTION T|
00000630: 4F 20 54 45 53 54 20 54 48 45 22 00 65 0E 80 02 |O TEST THE".e...|
00000640: 99 22 20 20 20 20 41 4C 50 48 41 42 45 54 20 4B |." ALPHABET K|
00000650: 45 59 53 20 4F 4E 20 54 48 45 20 4B 45 59 42 4F |EYS ON THE KEYBO|
00000660: 41 52 44 2E 22 00 8E 0E 8A 02 99 3A 99 A6 35 29 |ARD."......:..5)|
00000670: 22 54 48 45 20 50 52 4F 47 52 41 4D 20 4C 4F 4F |"THE PROGRAM LOO|
00000680: 4B 53 20 4C 49 4B 45 20 54 48 49 53 3A 22 00 B3 |KS LIKE THIS:"..|
00000690: 0E 94 02 99 3A 99 22 20 31 30 30 20 50 52 49 4E |....:." 100 PRIN|
000006A0: 54 20 22 C7 28 33 34 29 C7 28 31 31 35 29 C7 28 |T ".(34).(115).(|
000006B0: 33 34 29 00 D8 0E 9E 02 99 22 20 31 31 30 20 50 |34)......" 110 P|
000006C0: 52 49 4E 54 20 22 C7 28 33 34 29 3B 22 53 22 3B |RINT ".(34);"S";|
000006D0: C7 28 33 34 29 22 3B 22 00 FF 0E A8 02 99 22 20 |.(34)";"......" |
000006E0: 31 32 30 20 47 45 54 20 41 24 3A 20 49 46 20 41 |120 GET A$: IF A|
000006F0: 24 20 3D 20 22 22 20 54 48 45 4E 20 31 32 30 00 |$ = "" THEN 120.|
00000700: 23 0F B2 02 99 22 20 31 32 35 20 49 46 20 41 24 |#...." 125 IF A$|
00000710: 3D 43 48 52 24 28 31 33 29 20 54 48 45 4E 20 45 |=CHR$(13) THEN E|
00000720: 4E 44 22 00 3C 0F BC 02 99 22 20 31 33 30 20 4E |ND".<...." 130 N|
00000730: 20 3D 20 43 48 52 24 28 41 24 29 22 00 60 0F C6 | = CHR$(A$)".`..|
00000740: 02 99 22 20 31 34 30 20 49 46 20 4E 3C 30 20 4F |.." 140 IF N<0 O|
00000750: 52 20 4E 3E 32 36 20 54 48 45 4E 20 31 32 30 22 |R N>26 THEN 120"|
00000760: 00 7F 0F D0 02 99 22 20 31 35 30 20 50 52 49 4E |......" 150 PRIN|
00000770: 54 20 53 50 43 28 4E 2B 31 31 29 3B 41 24 3B 00 |T SPC(N+11);A$;.|
00000780: 94 0F DA 02 99 22 20 31 36 30 20 47 4F 54 4F 20 |....." 160 GOTO |
00000790: 31 31 30 22 00 B1 0F E4 02 99 3A 99 3A 99 A6 35 |110"......:.:..5|
000007A0: 29 22 4E 4F 54 45 3A 20 53 20 3D 20 48 4F 4D 45 |)"NOTE: S = HOME|
000007B0: 22 00 CF 0F EE 02 99 A6 35 29 22 4E 4F 54 45 3A |".......5)"NOTE:|
000007C0: 20 D3 20 3D 20 43 4C 45 41 52 22 3A 99 3A 99 00 | . = CLEAR":.:..|
000007D0: EF 0F F8 02 99 22 11 11 11 11 54 59 50 45 20 41 |....."....TYPE A|
000007E0: 4E 59 20 4B 45 59 20 54 4F 20 52 55 4E 22 3B 00 |NY KEY TO RUN";.|
000007F0: 04 10 02 03 A1 41 24 3A 8B 20 41 24 B2 22 22 A7 |.....A$:. A$."".|
00000800: 20 37 37 30 00 37 10 0C 03 99 22 93 11 11 11 11 | 770.7....".....|
00000810: 11 11 D4 59 50 45 20 4B 45 59 53 20 54 4F 20 44 |...YPE KEYS TO D|
00000820: 45 4D 4F 4E 53 54 52 41 54 45 20 55 53 45 20 4F |EMONSTRATE USE O|
00000830: 46 20 C7 C5 D4 53 22 00 59 10 16 03 99 22 11 11 |F ...S".Y...."..|
00000840: 11 11 D5 53 45 20 12 20 D2 45 54 55 52 4E 20 92 |...SE . .ETURN .|
00000850: 20 54 4F 20 53 54 4F 50 22 00 6C 10 20 03 A1 41 | TO STOP".l. ..A|
00000860: 24 3A 8B 41 24 B2 22 22 A7 38 30 30 00 80 10 2A |$:.A$."".800...*|
00000870: 03 8B 20 41 24 B2 C7 28 31 33 29 A7 20 38 34 30 |.. A$..(13). 840|
00000880: 00 A5 10 34 03 4E B2 C6 28 41 24 29 AB C6 28 22 |...4.N..(A$)..("|
00000890: 41 22 29 3A 8B 4E B3 30 20 B0 20 4E B1 32 36 20 |A"):.N.0 . N.26 |
000008A0: A7 20 38 30 30 00 BC 10 3E 03 99 22 13 22 A6 4E |. 800...>..".".N|
000008B0: AA 37 29 3B 41 24 3B 3A 89 38 30 30 00 C2 10 48 |.7);A$;:.800...H|
000008C0: 03 8E 00 00 00 |..... |
....... (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 .GOLD";.N."..CH,CT:." DISK"..
.,...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 <^> PREV PG
<_> GD MENU.";......A$:.A$."".500......
VR%(F(A$)). 530,560,580.!....500.5....
PJ%(IP) . 630.S...IP.IP.1:.IP..PL..".":.
580.\.&..480.R.0.IP.IP.1:.IP.0.210.{.:..
480...D.."..... END OF TUTORIAL ..."...N
.."DO YOU REALLY WISH TO QUIT ?".S.X..A$
:.A$."".600...B..A$.."Y".210...L.. 52,11
2:.56,112:.:.".": . 49152.;.V..:.". LET
S USE THE GET FUNCTION TO TEST THE".E...
." ALPHABET KEYS ON THE KEYBOARD."...
...:..5)"THE PROGRAM LOOKS LIKE THIS:"..
....:." 100 PRINT "G(34)G(115)G(34).X...
." 110 PRINT "G(34);"S";G(34)";"......"
120 GET A$: IF A$ = "" THEN 120.#...." 1
25 IF A$=CHR$(13) THEN END".<...." 130 N
= CHR$(A$)".`.F.." 140 IF N<0 OR N>26 T
HEN 120"..P.." 150 PRINT SPC(N+11);A$;.
..Z.." 160 GOTO 110"......:.:..5)"NOTE:
S = HOME".O.....5)"NOTE: S = CLEAR":.:..
....."....TYPE ANY KEY TO RUN";......A$:
. A$."". 770.7....".......TYPE KEYS TO D
EMONSTRATE USE OF GETS".Y...."....USE .
RETURN . TO STOP".L. ..A$:.A$."".800...*
.. A$.G(13). 840...4.N.F(A$).F("A"):.N.0
. N.26 . 800...>..".".N.7);A$;:.800.B.H
.....
> CLICK IMAGE PREVIEW FOR FULL MODAL