QUIZ MASTER
FILE INFORMATION
FILENAME(S): QUIZ MASTER
FILE TYPE(S): PRG
FILE SIZE: 5.7K
FIRST SEEN: 2025-11-30 18:12:59
APPEARS ON: 1 disk(s)
FILE HASH
896618f217e1bbe77c14308dcaeecf1df5414f57a29489a4852a7a28977a5ee0
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| OCTOBER GAZETTE | QUIZ MASTER | PRG | Sailor, Ganheden | 13 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 13 08 0A 00 8F 20 51 55 49 5A 20 4D 41 53 |....... QUIZ MAS|
00000010: 54 45 52 00 4F 08 14 00 86 51 24 28 31 30 30 29 |TER.O....Q$(100)|
00000020: 2C 41 24 28 31 30 30 29 2C 42 24 28 31 30 30 29 |,A$(100),B$(100)|
00000030: 2C 43 24 28 31 30 30 29 2C 44 24 28 31 30 30 29 |,C$(100),D$(100)|
00000040: 2C 45 24 28 31 30 30 29 2C 4D 24 28 31 35 29 00 |,E$(100),M$(15).|
00000050: 6F 08 1E 00 99 22 05 22 3A 97 35 33 32 38 30 2C |o....".":.53280,|
00000060: 31 33 3A 97 35 33 32 38 31 2C 35 3A 89 35 30 00 |13:.53281,5:.50.|
00000070: A3 08 28 00 97 31 39 38 2C 36 3A 97 36 33 31 2C |..(..198,6:.631,|
00000080: 33 30 3A 97 36 33 32 2C 33 34 3A 97 36 33 33 2C |30:.632,34:.633,|
00000090: 33 34 3A 97 36 33 34 2C 32 30 3A 97 36 33 35 2C |34:.634,20:.635,|
000000A0: 35 3A 8E 00 B6 08 32 00 97 35 33 32 37 32 2C 32 |5:....2..53272,2|
000000B0: 33 3A 89 39 37 30 00 C1 08 3C 00 99 22 93 22 3A |3:.970...<..".":|
000000C0: 9C 00 0D 09 46 00 86 51 24 28 31 30 30 29 2C 41 |....F..Q$(100),A|
000000D0: 24 28 31 30 30 29 2C 42 24 28 31 30 30 29 2C 43 |$(100),B$(100),C|
000000E0: 24 28 31 30 30 29 2C 44 24 28 31 30 30 29 2C 45 |$(100),D$(100),E|
000000F0: 24 28 31 30 30 29 2C 4D 24 28 31 35 29 2C 53 4E |$(100),M$(15),SN|
00000100: 24 28 34 30 30 29 2C 47 28 34 30 30 29 00 23 09 |$(400),G(400).#.|
00000110: 50 00 8D 31 38 33 30 3A 8D 31 33 36 30 3A 8D 32 |P..1830:.1360:.2|
00000120: 30 37 30 00 4B 09 5A 00 99 22 C5 4E 54 45 52 20 |070.K.Z..".NTER |
00000130: 4E 55 4D 42 45 52 20 4F 46 20 54 45 53 54 20 54 |NUMBER OF TEST T|
00000140: 4F 20 4C 4F 41 44 3A 22 3A 85 4E 00 6D 09 64 00 |O LOAD:":.N.m.d.|
00000150: 8B 4E B3 30 B0 4E B1 58 A7 99 22 C9 4E 56 41 4C |.N.0.N.X..".NVAL|
00000160: 49 44 20 D2 41 4E 47 45 22 3A 89 39 30 00 A5 09 |ID .ANGE":.90...|
00000170: 6E 00 4E 24 B2 4D 24 28 4E 29 3A 99 A6 31 32 29 |n.N$.M$(N):..12)|
00000180: 22 93 12 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D |"...............|
00000190: 1D 1D 20 20 20 CC CF C1 C4 C9 CE C7 A0 C4 C1 D4 |.. ...........|
000001A0: C1 A0 A0 A0 22 00 D0 09 78 00 8D 31 38 33 30 3A |...."...x..1830:|
000001B0: 8D 32 31 35 30 3A 9F 32 2C 38 2C 32 2C AA 4E 24 |.2150:.2,8,2,.N$|
000001C0: AA 22 20 46 49 4C 45 2C 53 2C 52 22 3A 58 B2 30 |." FILE,S,R":X.0|
000001D0: 00 DA 09 82 00 58 B2 58 AA 31 00 14 0A 8C 00 84 |.....X.X.1......|
000001E0: 32 2C 51 24 28 58 29 3A 84 32 2C 41 24 28 58 29 |2,Q$(X):.2,A$(X)|
000001F0: 3A 84 32 2C 42 24 28 58 29 3A 84 32 2C 43 24 28 |:.2,B$(X):.2,C$(|
00000200: 58 29 3A 84 32 2C 44 24 28 58 29 3A 84 32 2C 45 |X):.2,D$(X):.2,E|
00000210: 24 28 58 29 00 24 0A 96 00 8B 53 54 20 AF 36 34 |$(X).$....ST .64|
00000220: A7 31 37 30 00 2D 0A A0 00 89 31 33 30 00 47 0A |.170.-....130.G.|
00000230: AA 00 A0 32 3A 97 31 39 38 2C 30 3A 4C B2 58 3A |...2:.198,0:L.X:|
00000240: 4E B2 58 3A 54 B2 30 00 54 0A B4 00 8B 52 B2 31 |N.X:T.0.T....R.1|
00000250: A7 32 34 30 00 6A 0A BE 00 8D 32 31 35 30 3A 8D |.240.j....2150:.|
00000260: 32 30 37 30 3A 8D 31 36 37 30 00 77 0A C8 00 8B |2070:.1670.w....|
00000270: 48 B2 30 A7 39 37 30 00 84 0A D2 00 8B 48 B2 31 |H.0.970......H.1|
00000280: A7 32 34 30 00 9A 0A DC 00 8F 20 49 4E 50 55 54 |.240...... INPUT|
00000290: 20 51 55 45 53 54 49 4F 4E 53 00 C5 0A E6 00 99 | QUESTIONS......|
000002A0: 22 93 11 C5 4E 54 45 52 20 CE 41 4D 45 20 46 4F |"...NTER .AME FO|
000002B0: 52 20 D1 55 49 5A 22 3A 85 4E 24 3A 8D 31 34 36 |R .UIZ":.N$:.146|
000002C0: 30 3A 4E B2 30 00 EB 0A F0 00 4E B2 4E AA 31 3A |0:N.0.....N.N.1:|
000002D0: 99 22 93 22 3A 99 A6 31 33 29 22 12 20 D1 D5 C9 |.".":..13)". ...|
000002E0: DA 20 CD C1 D3 D4 C5 D2 20 92 22 00 1E 0B FA 00 |. ...... .".....|
000002F0: 99 3A 99 22 12 20 D7 C1 D2 CE C9 CE C7 21 20 20 |.:.". .......! |
00000300: C4 4F 20 4E 4F 54 20 45 58 43 45 45 44 20 38 30 |.O NOT EXCEED 80|
00000310: 20 C3 48 41 52 41 43 54 45 52 53 20 20 22 00 51 | .HARACTERS ".Q|
00000320: 0B 04 01 99 3A 99 22 12 20 20 20 20 20 20 20 C5 |....:.". .|
00000330: 4E 54 45 52 20 5C 20 54 4F 20 45 58 49 54 20 52 |NTER \ TO EXIT R|
00000340: 4F 55 54 49 4E 45 20 20 20 20 20 20 20 20 20 20 |OUTINE |
00000350: 22 00 8F 0B 0E 01 8B 4E B1 B2 31 30 30 A7 99 22 |"......N..100.."|
00000360: 93 11 11 11 11 11 20 20 20 20 20 20 20 20 20 20 |...... |
00000370: 20 20 20 20 C6 C9 CC C5 A0 C6 D5 CC CC 22 3A 81 | .........":.|
00000380: 54 B2 31 A4 32 30 30 30 3A 82 3A 89 39 38 30 00 |T.1.2000:.:.980.|
00000390: 97 0B 18 01 8D 34 30 00 9F 0B 22 01 48 B2 30 00 |.....40...".H.0.|
000003A0: BB 0B 2C 01 99 22 C5 4E 54 45 52 20 D1 55 45 53 |..,..".NTER .UES|
000003B0: 54 49 4F 4E 20 23 22 3B 4E 3A 99 00 C6 0B 36 01 |TION #";N:....6.|
000003C0: 85 51 24 28 4E 29 00 D8 0B 40 01 8B 51 24 28 4E |.Q$(N)...@..Q$(N|
000003D0: 29 B2 22 22 A7 33 31 30 00 F4 0B 4A 01 8B 51 24 |)."".310...J..Q$|
000003E0: 28 4E 29 B2 C7 28 39 32 29 A7 4E B2 4E AB 31 3A |(N)..(92).N.N.1:|
000003F0: 89 37 37 30 00 0B 0C 54 01 8B C3 28 51 24 28 4E |.770...T...(Q$(N|
00000400: 29 29 B1 38 30 A7 8D 31 32 39 30 00 18 0C 5E 01 |)).80..1290...^.|
00000410: 8B 48 B2 31 A7 32 34 30 00 3D 0C 68 01 99 22 C5 |.H.1.240.=.h..".|
00000420: 4E 54 45 52 20 46 49 52 53 54 20 41 4E 53 57 45 |NTER FIRST ANSWE|
00000430: 52 3A 22 3A 99 3A 8D 34 30 3A 48 B2 30 00 5C 0C |R:":.:.40:H.0.\.|
00000440: 72 01 85 22 41 2E 20 22 3B 41 24 28 4E 29 3A 8B |r.."A. ";A$(N):.|
00000450: 41 24 28 4E 29 B2 22 22 A7 33 37 30 00 78 0C 7C |A$(N)."".370.x.||
00000460: 01 8B C6 28 41 24 28 4E 29 29 B2 39 32 A7 4E B2 |...(A$(N)).92.N.|
00000470: 4E AB 31 3A 89 37 37 30 00 8E 0C 86 01 41 24 28 |N.1:.770.....A$(|
00000480: 4E 29 B2 22 41 2E 20 22 AA 41 24 28 4E 29 00 A5 |N)."A. ".A$(N)..|
00000490: 0C 90 01 8B C3 28 41 24 28 4E 29 29 B1 38 30 A7 |.....(A$(N)).80.|
000004A0: 8D 31 32 39 30 00 B3 0C 9A 01 8B 48 B2 31 A7 89 |.1290......H.1..|
000004B0: 33 36 30 00 D9 0C A4 01 99 22 C5 4E 54 45 52 20 |360......".NTER |
000004C0: 53 45 43 4F 4E 44 20 41 4E 53 57 45 52 3A 22 3A |SECOND ANSWER:":|
000004D0: 99 3A 8D 34 30 3A 48 B2 30 00 F8 0C AE 01 85 22 |.:.40:H.0......"|
000004E0: 42 2E 20 22 3B 42 24 28 4E 29 3A 8B 42 24 28 4E |B. ";B$(N):.B$(N|
000004F0: 29 B2 22 22 A7 34 33 30 00 14 0D B8 01 8B C6 28 |)."".430.......(|
00000500: 42 24 28 4E 29 29 B2 39 32 A7 4E B2 4E AB 31 3A |B$(N)).92.N.N.1:|
00000510: 89 37 37 30 00 2A 0D C2 01 42 24 28 4E 29 B2 22 |.770.*...B$(N)."|
00000520: 42 2E 20 22 AA 42 24 28 4E 29 00 41 0D CC 01 8B |B. ".B$(N).A....|
00000530: C3 28 42 24 28 4E 29 29 B1 38 30 A7 8D 31 32 39 |.(B$(N)).80..129|
00000540: 30 00 4F 0D D6 01 8B 48 B2 31 A7 89 34 32 30 00 |0.O....H.1..420.|
00000550: 74 0D E0 01 99 22 C5 4E 54 45 52 20 54 48 49 52 |t....".NTER THIR|
00000560: 44 20 41 4E 53 57 45 52 3A 22 3A 99 3A 8D 34 30 |D ANSWER:":.:.40|
00000570: 3A 48 B2 30 00 93 0D EA 01 85 22 43 2E 20 22 3B |:H.0......"C. ";|
00000580: 43 24 28 4E 29 3A 8B 43 24 28 4E 29 B2 22 22 A7 |C$(N):.C$(N)."".|
00000590: 34 39 30 00 AF 0D F4 01 8B C6 28 43 24 28 4E 29 |490.......(C$(N)|
000005A0: 29 B2 39 32 A7 4E B2 4E AB 31 3A 89 37 37 30 00 |).92.N.N.1:.770.|
000005B0: C5 0D FE 01 43 24 28 4E 29 B2 22 43 2E 20 22 AA |....C$(N)."C. ".|
000005C0: 43 24 28 4E 29 00 DC 0D 08 02 8B C3 28 43 24 28 |C$(N).......(C$(|
000005D0: 4E 29 29 B1 38 30 A7 8D 31 32 39 30 00 EA 0D 12 |N)).80..1290....|
000005E0: 02 8B 48 B2 31 A7 89 34 38 30 00 10 0E 1C 02 99 |..H.1..480......|
000005F0: 22 C5 4E 54 45 52 20 46 4F 55 52 54 48 20 41 4E |".NTER FOURTH AN|
00000600: 53 57 45 52 3A 22 3A 99 3A 8D 34 30 3A 48 B2 30 |SWER:":.:.40:H.0|
00000610: 00 2F 0E 26 02 85 22 44 2E 20 22 3B 44 24 28 4E |./.&.."D. ";D$(N|
00000620: 29 3A 8B 44 24 28 4E 29 B2 22 22 A7 35 35 30 00 |):.D$(N)."".550.|
00000630: 4B 0E 30 02 8B C6 28 44 24 28 4E 29 29 B2 39 32 |K.0...(D$(N)).92|
00000640: A7 4E B2 4E AB 31 3A 89 37 37 30 00 61 0E 3A 02 |.N.N.1:.770.a.:.|
00000650: 44 24 28 4E 29 B2 22 44 2E 20 22 AA 44 24 28 4E |D$(N)."D. ".D$(N|
00000660: 29 00 78 0E 44 02 8B C3 28 44 24 28 4E 29 29 B1 |).x.D...(D$(N)).|
00000670: 38 30 A7 8D 31 32 39 30 00 86 0E 4E 02 8B 48 B2 |80..1290...N..H.|
00000680: 31 A7 89 35 34 30 00 B3 0E 58 02 99 22 C5 4E 54 |1..540...X..".NT|
00000690: 45 52 20 CC 45 54 54 45 52 20 4F 46 20 C3 4F 52 |ER .ETTER OF .OR|
000006A0: 52 45 43 54 20 C1 4E 53 57 45 52 3A 22 3A 99 3A |RECT .NSWER:":.:|
000006B0: 48 B2 30 00 CC 0E 62 02 85 45 24 28 4E 29 3A 8B |H.0...b..E$(N):.|
000006C0: 45 24 28 4E 29 B2 22 22 A7 36 31 30 00 ED 0E 6C |E$(N)."".610...l|
000006D0: 02 8B C6 28 45 24 28 4E 29 29 B2 39 32 A7 4E B2 |...(E$(N)).92.N.|
000006E0: 4E AB 31 3A 8D 37 37 30 3A 89 39 39 30 00 04 0F |N.1:.770:.990...|
000006F0: 76 02 8B C3 28 45 24 28 4E 29 29 B3 B1 31 A7 8D |v...(E$(N))..1..|
00000700: 31 32 39 30 00 17 0F 80 02 8B 45 24 28 4E 29 B2 |1290......E$(N).|
00000710: 22 41 22 A7 36 39 30 00 2A 0F 8A 02 8B 45 24 28 |"A".690.*....E$(|
00000720: 4E 29 B2 22 42 22 A7 36 39 30 00 3D 0F 94 02 8B |N)."B".690.=....|
00000730: 45 24 28 4E 29 B2 22 43 22 A7 36 39 30 00 50 0F |E$(N)."C".690.P.|
00000740: 9E 02 8B 45 24 28 4E 29 B2 22 44 22 A7 36 39 30 |...E$(N)."D".690|
00000750: 00 6E 0F A8 02 99 22 12 20 C5 52 52 4F 52 3A 20 |.n....". .RROR: |
00000760: 52 45 2D 45 4E 54 45 52 22 3A 89 36 31 30 00 7B |RE-ENTER":.610.{|
00000770: 0F B2 02 8B 48 B2 31 A7 36 30 30 00 86 0F BC 02 |....H.1.600.....|
00000780: 8B 50 B2 31 A7 8E 00 9F 0F C6 02 4C B2 4E 3A 8D |.P.1.......L.N:.|
00000790: 32 30 37 30 3A 8B 4E B2 31 30 30 A7 37 33 30 00 |2070:.N.100.730.|
000007A0: A8 0F D0 02 89 32 34 30 00 CF 0F DA 02 99 3A 99 |.....240......:.|
000007B0: A6 37 29 22 C6 49 4C 45 20 43 4F 4E 54 41 49 4E |.7)".ILE CONTAIN|
000007C0: 53 20 31 30 30 20 C5 4E 54 52 49 45 53 2E 22 00 |S 100 .NTRIES.".|
000007D0: 00 10 E4 02 99 3A 99 22 C4 41 54 41 20 57 49 4C |.....:.".ATA WIL|
000007E0: 4C 20 42 45 20 53 54 4F 52 45 44 2E 20 CF 50 45 |L BE STORED. .PE|
000007F0: 4E 20 4E 45 57 20 54 45 58 54 20 46 49 4C 45 22 |N NEW TEXT FILE"|
00000800: 00 14 10 EE 02 8D 31 37 32 30 3A 8D 37 37 30 3A |......1720:.770:|
00000810: 89 39 39 30 00 25 10 F8 02 8F 20 53 54 4F 52 45 |.990.%.... STORE|
00000820: 20 44 41 54 41 00 52 10 02 03 8D 32 30 37 30 3A | DATA.R....2070:|
00000830: 99 A6 31 30 29 22 12 20 D7 41 49 54 2C 20 D3 54 |..10)". .AIT, .T|
00000840: 4F 52 49 4E 47 20 C4 41 54 41 20 22 3A 8D 32 31 |ORING .ATA ":.21|
00000850: 35 30 00 78 10 0C 03 8D 31 38 33 30 3A 9F 32 2C |50.x....1830:.2,|
00000860: 38 2C 32 2C 22 40 30 3A 22 AA 4E 24 AA 22 20 46 |8,2,"@0:".N$." F|
00000870: 49 4C 45 2C 53 2C 57 22 00 BB 10 16 03 81 58 B2 |ILE,S,W"......X.|
00000880: 31 A4 4C 3A 98 32 2C 51 24 28 58 29 3A 98 32 2C |1.L:.2,Q$(X):.2,|
00000890: 41 24 28 58 29 3A 98 32 2C 42 24 28 58 29 3A 98 |A$(X):.2,B$(X):.|
000008A0: 32 2C 43 24 28 58 29 3A 98 32 2C 44 24 28 58 29 |2,C$(X):.2,D$(X)|
000008B0: 3A 98 32 2C 45 24 28 58 29 3A 82 00 DD 10 20 03 |:.2,E$(X):.... .|
000008C0: A0 32 3A 97 31 39 38 2C 30 3A 8D 32 31 35 30 3A |.2:.198,0:.2150:|
000008D0: 8D 32 30 37 30 3A 8D 31 36 37 30 3A 8E 00 F1 10 |.2070:.1670:....|
000008E0: 2A 03 8F 20 43 48 41 4E 47 45 20 41 4E 53 57 45 |*.. CHANGE ANSWE|
000008F0: 52 00 24 11 34 03 8D 32 30 37 30 3A 50 B2 31 3A |R.$.4..2070:P.1:|
00000900: 99 22 93 11 11 11 12 20 C5 4E 54 45 52 20 CE 55 |."..... .NTER .U|
00000910: 4D 42 45 52 20 4F 46 20 D1 55 45 53 54 49 4F 4E |MBER OF .UESTION|
00000920: 22 3A 85 57 00 5C 11 3E 03 99 22 93 11 11 22 3A |":.W.\.>.."...":|
00000930: 53 24 B2 51 24 28 57 29 3A 8D 31 31 39 30 3A 53 |S$.Q$(W):.1190:S|
00000940: 24 B2 41 24 28 57 29 3A 8D 31 31 39 30 3A 53 24 |$.A$(W):.1190:S$|
00000950: B2 42 24 28 57 29 3A 8D 31 31 39 30 00 7E 11 48 |.B$(W):.1190.~.H|
00000960: 03 53 24 B2 43 24 28 57 29 3A 8D 31 31 39 30 3A |.S$.C$(W):.1190:|
00000970: 53 24 B2 44 24 28 57 29 3A 8D 31 31 39 30 00 9F |S$.D$(W):.1190..|
00000980: 11 52 03 99 22 C3 4F 52 52 45 43 54 20 41 4E 53 |.R..".ORRECT ANS|
00000990: 57 45 52 20 49 53 3A 22 3A 99 45 24 28 57 29 00 |WER IS:":.E$(W).|
000009A0: BB 11 5C 03 8D 31 36 37 30 3A 4E B2 57 AB 31 3A |..\..1670:N.W.1:|
000009B0: 8D 32 34 30 3A 8D 37 37 30 3A 8E 00 D0 11 66 03 |.240:.770:....f.|
000009C0: 8F 20 52 45 56 49 45 57 20 52 4F 55 54 49 4E 45 |. REVIEW ROUTINE|
000009D0: 00 E4 11 70 03 8D 32 30 37 30 3A 59 B2 31 3A 99 |...p..2070:Y.1:.|
000009E0: 22 93 11 22 00 07 12 7A 03 99 3A 99 A3 32 30 AB |".."...z..:..20.|
000009F0: C3 28 4E 24 29 AD 32 29 3B 4E 24 3A 8D 31 36 37 |.(N$).2);N$:.167|
00000A00: 30 3A 99 22 11 11 22 00 17 12 84 03 81 4E B2 31 |0:.".."......N.1|
00000A10: A4 4C 3A 99 22 93 22 00 2A 12 8E 03 8B 51 24 28 |.L:.".".*....Q$(|
00000A20: 4E 29 B2 22 22 A7 89 39 36 30 00 49 12 98 03 53 |N).""..960.I...S|
00000A30: 24 B2 C4 28 4E 29 AA 22 2E 20 22 AA 51 24 28 4E |$..(N).". ".Q$(N|
00000A40: 29 3A 99 3A 8D 31 31 39 30 00 5E 12 A2 03 8F 20 |):.:.1190.^.... |
00000A50: 41 4E 53 57 45 52 20 43 48 4F 49 43 45 53 00 9E |ANSWER CHOICES..|
00000A60: 12 AC 03 53 24 B2 41 24 28 4E 29 3A 8D 31 31 39 |...S$.A$(N):.119|
00000A70: 30 3A 53 24 B2 42 24 28 4E 29 3A 8D 31 31 39 30 |0:S$.B$(N):.1190|
00000A80: 3A 53 24 B2 43 24 28 4E 29 3A 8D 31 31 39 30 3A |:S$.C$(N):.1190:|
00000A90: 53 24 B2 44 24 28 4E 29 3A 8D 31 31 39 30 00 CB |S$.D$(N):.1190..|
00000AA0: 12 B6 03 99 3A 99 22 C3 4F 52 52 45 43 54 20 41 |....:.".ORRECT A|
00000AB0: 4E 53 57 45 52 20 49 53 3A 20 22 3A 99 A3 37 29 |NSWER IS: ":..7)|
00000AC0: 45 24 28 4E 29 3A 8D 32 30 37 30 00 D9 12 C0 03 |E$(N):.2070.....|
00000AD0: 8D 31 36 37 30 3A 82 3A 8E 00 EC 12 CA 03 8F 20 |.1670:.:....... |
00000AE0: 50 52 4F 47 52 41 4D 20 4D 45 4E 55 00 F4 12 D4 |PROGRAM MENU....|
00000AF0: 03 48 B2 30 00 10 13 DE 03 99 22 93 22 3A 97 35 |.H.0......".":.5|
00000B00: 33 32 38 30 2C 31 33 3A 97 35 33 32 38 31 2C 35 |3280,13:.53281,5|
00000B10: 00 1A 13 E8 03 8D 32 30 37 30 00 22 13 F2 03 50 |......2070."...P|
00000B20: B2 30 00 3D 13 FC 03 99 A6 31 33 29 22 11 12 20 |.0.=.....13)".. |
00000B30: D1 D5 C9 DA A0 CD C1 D3 D4 C5 D2 20 22 00 63 13 |........... ".c.|
00000B40: 06 04 99 3A 99 A6 35 29 22 C5 4E 54 45 52 20 4E |...:..5)".NTER N|
00000B50: 55 4D 42 45 52 20 4F 46 20 46 55 4E 43 54 49 4F |UMBER OF FUNCTIO|
00000B60: 4E 3A 22 00 86 13 10 04 99 3A 99 A6 38 29 22 31 |N:"......:..8)"1|
00000B70: 2E 20 C5 4E 54 45 52 20 CE 45 57 20 D1 55 45 53 |. .NTER .EW .UES|
00000B80: 54 49 4F 4E 53 22 00 A6 13 1A 04 99 3A 99 A6 38 |TIONS"......:..8|
00000B90: 29 22 32 2E 20 D2 45 56 49 45 57 20 D1 55 45 53 |)"2. .EVIEW .UES|
00000BA0: 54 49 4F 4E 53 22 00 C7 13 24 04 99 3A 99 A6 38 |TIONS"...$..:..8|
00000BB0: 29 22 33 2E 20 C3 48 41 4E 47 45 20 41 20 D1 55 |)"3. .HANGE A .U|
00000BC0: 45 53 54 49 4F 4E 22 00 E9 13 2E 04 99 3A 99 A6 |ESTION"......:..|
00000BD0: 38 29 22 34 2E 20 CC 4F 41 44 20 D0 52 45 56 49 |8)"4. .OAD .REVI|
00000BE0: 4F 55 53 20 C4 41 54 41 22 00 0C 14 38 04 99 3A |OUS .ATA"...8..:|
00000BF0: 99 A6 38 29 22 35 2E 20 C1 44 44 20 54 4F 20 D4 |..8)"5. .DD TO .|
00000C00: 45 53 54 20 49 4E 20 C6 49 4C 45 22 00 2B 14 42 |EST IN .ILE".+.B|
00000C10: 04 99 3A 99 A6 38 29 22 36 2E 20 C9 CE C9 D4 C9 |..:..8)"6. .....|
00000C20: C1 CC C9 DA C5 20 C4 49 53 4B 22 00 3E 14 4C 04 |..... .ISK".>.L.|
00000C30: 99 3A 99 A6 38 29 22 37 2E 20 C5 CE C4 22 00 52 |.:..8)"7. ...".R|
00000C40: 14 56 04 99 3A 99 A6 35 29 22 CE 55 4D 42 45 52 |.V..:..5)".UMBER|
00000C50: 3F 22 00 66 14 60 04 A1 47 24 3A 8B 47 24 B2 22 |?".f.`..G$:.G$."|
00000C60: 22 A7 31 31 32 30 00 83 14 6A 04 47 B2 C6 28 47 |".1120...j.G..(G|
00000C70: 24 29 AB 34 38 3A 8B 47 B3 31 B0 47 B1 38 A7 31 |$).48:.G.1.G.8.1|
00000C80: 31 32 30 00 A8 14 74 04 91 47 8D 32 33 30 2C 38 |120...t..G.230,8|
00000C90: 38 30 2C 38 32 30 2C 36 30 2C 31 36 34 30 2C 31 |80,820,60,1640,1|
00000CA0: 37 33 30 2C 31 31 37 30 00 B1 14 7E 04 89 39 39 |730,1170...~..99|
00000CB0: 30 00 BB 14 88 04 8D 32 30 37 30 00 CB 14 92 04 |0......2070.....|
00000CC0: 97 31 39 38 2C 30 3A 9E 31 39 38 00 DF 14 9C 04 |.198,0:.198.....|
00000CD0: 8F 20 50 52 49 4E 54 20 4A 55 53 54 49 46 59 00 |. PRINT JUSTIFY.|
00000CE0: E5 14 A6 04 99 00 FD 14 B0 04 8B C3 28 53 24 29 |............(S$)|
00000CF0: B3 34 30 A7 99 53 24 3A 89 31 32 38 30 00 0A 15 |.40..S$:.1280...|
00000D00: BA 04 58 B2 34 30 3A 59 B2 31 00 14 15 C4 04 58 |..X.40:Y.1.....X|
00000D10: B2 58 AB 31 00 34 15 CE 04 8B C6 28 CA 28 53 24 |.X.1.4.....(.(S$|
00000D20: 2C 58 2C 59 29 AA C7 28 30 29 29 B3 B1 33 32 A7 |,X,Y)..(0))..32.|
00000D30: 31 32 32 30 00 41 15 D8 04 99 C8 28 53 24 2C 58 |1220.A.....(S$,X|
00000D40: 29 00 4D 15 E2 04 5A B2 C3 28 53 24 29 00 57 15 |).M...Z..(S$).W.|
00000D50: EC 04 5A B2 5A AB 58 00 64 15 F6 04 99 C9 28 53 |..Z.Z.X.d.....(S|
00000D60: 24 2C 5A 29 00 6A 15 00 05 8E 00 8B 15 0A 05 99 |$,Z).j..........|
00000D70: 22 45 4E 54 52 59 20 54 4F 4F 20 4C 4F 4E 47 3A |"ENTRY TOO LONG:|
00000D80: 20 52 45 2D 50 48 52 41 53 45 22 00 A1 15 14 05 | RE-PHRASE".....|
00000D90: 48 B2 31 3A 81 54 B2 31 A4 32 30 30 30 3A 82 3A |H.1:.T.1.2000:.:|
00000DA0: 8E 00 B7 15 1E 05 8F 20 54 45 53 54 20 54 49 54 |....... TEST TIT|
00000DB0: 4C 45 20 46 49 4C 45 00 EF 15 28 05 99 3A 99 22 |LE FILE...(..:."|
00000DC0: 48 41 53 20 54 45 53 54 20 54 49 54 4C 45 20 46 |HAS TEST TITLE F|
00000DD0: 49 4C 45 20 42 45 45 4E 20 49 4E 49 54 49 41 54 |ILE BEEN INITIAT|
00000DE0: 45 44 3F 28 59 2F 4E 29 22 3A 8D 32 30 37 30 00 |ED?(Y/N)":.2070.|
00000DF0: 03 16 32 05 A1 47 24 3A 8B 47 24 B2 22 22 A7 31 |..2..G$:.G$."".1|
00000E00: 33 33 30 00 15 16 3C 05 8B 20 47 24 B2 22 4E 22 |330...<.. G$."N"|
00000E10: A7 31 34 36 30 00 27 16 46 05 8B 47 24 B3 B1 22 |.1460.'.F..G$.."|
00000E20: 59 22 A7 31 33 33 30 00 3C 16 50 05 99 3A 99 A6 |Y".1330.<.P..:..|
00000E30: 31 37 29 22 12 20 57 41 49 54 20 22 00 65 16 5A |17)". WAIT ".e.Z|
00000E40: 05 8D 32 31 35 30 3A 8D 31 38 33 30 3A 9F 33 2C |..2150:.1830:.3,|
00000E50: 38 2C 33 2C 22 54 45 53 54 20 54 49 54 4C 45 53 |8,3,"TEST TITLES|
00000E60: 2C 53 2C 52 22 00 6D 16 64 05 58 B2 30 00 80 16 |,S,R".m.d.X.0...|
00000E70: 6E 05 58 B2 58 AA 31 3A 84 33 2C 4D 24 28 58 29 |n.X.X.1:.3,M$(X)|
00000E80: 00 91 16 78 05 8B 53 54 20 AF 36 34 A7 31 34 32 |...x..ST .64.142|
00000E90: 30 00 9B 16 82 05 89 31 33 39 30 00 AF 16 8C 05 |0......1390.....|
00000EA0: A0 33 3A 97 31 39 38 2C 30 3A 8D 32 31 35 30 00 |.3:.198,0:.2150.|
00000EB0: BF 16 96 05 8B 53 31 B3 B1 30 A7 32 31 31 30 00 |.....S1..0.2110.|
00000EC0: DD 16 A0 05 99 22 93 22 3A 99 A6 31 34 29 22 54 |.....".":..14)"T|
00000ED0: 45 53 54 20 54 49 54 4C 45 53 22 3A 99 00 FA 16 |EST TITLES":....|
00000EE0: AA 05 81 41 B2 31 A4 58 3A 99 41 3B 22 2E 20 22 |...A.1.X:.A;". "|
00000EF0: 3B 4D 24 28 41 29 3A 82 3A 8E 00 13 17 B4 05 8F |;M$(A):.:.......|
00000F00: 20 49 4E 49 54 49 41 54 45 20 54 45 53 54 20 46 | INITIATE TEST F|
00000F10: 49 4C 45 00 23 17 BE 05 8B 58 B2 31 35 A7 8D 31 |ILE.#....X.15..1|
00000F20: 37 31 30 00 32 17 C8 05 8B 20 58 B2 31 35 A7 58 |710.2.... X.15.X|
00000F30: B2 31 00 40 17 D2 05 8B 58 B2 31 A7 31 36 30 30 |.1.@....X.1.1600|
00000F40: 00 6D 17 DC 05 99 22 93 C8 41 53 20 46 49 4C 45 |.m...."..AS FILE|
00000F50: 20 4F 46 20 54 45 53 54 20 4E 41 4D 45 53 20 42 | OF TEST NAMES B|
00000F60: 45 45 4E 20 53 54 41 52 54 45 44 3F 22 00 81 17 |EEN STARTED?"...|
00000F70: E6 05 A1 47 24 3A 8B 47 24 B2 22 22 A7 31 35 31 |...G$:.G$."".151|
00000F80: 30 00 93 17 F0 05 8B 20 47 24 B2 22 4E 22 A7 31 |0...... G$."N".1|
00000F90: 36 30 30 00 A5 17 FA 05 8B 47 24 B2 22 59 22 A7 |600......G$."Y".|
00000FA0: 8D 31 33 37 30 00 B5 17 04 06 99 58 AA 31 22 2E |.1370......X.1".|
00000FB0: 20 12 22 4E 24 00 D4 17 0E 06 99 22 C9 53 20 59 | ."N$......".S Y|
00000FC0: 4F 55 52 20 54 49 54 4C 45 20 4F 52 49 47 49 4E |OUR TITLE ORIGIN|
00000FD0: 41 4C 3F 22 00 E8 17 18 06 A1 47 24 3A 8B 47 24 |AL?"......G$:.G$|
00000FE0: B2 22 22 A7 31 35 36 30 00 FA 17 22 06 8B 20 47 |."".1560...".. G|
00000FF0: 24 B2 22 59 22 A7 31 36 30 30 00 1B 18 2C 06 99 |$."Y".1600...,..|
00001000: 22 C5 4E 54 45 52 20 4E 45 57 20 54 49 54 4C 45 |".NTER NEW TITLE|
00001010: 20 46 4F 52 20 54 45 53 54 3A 22 00 23 18 36 06 | FOR TEST:".#.6.|
00001020: 85 4E 24 00 38 18 40 06 4D 24 28 58 AA 31 29 B2 |.N$.8.@.M$(X.1).|
00001030: 4E 24 3A 8D 32 30 37 30 00 55 18 4A 06 99 3A 99 |N$:.2070.U.J..:.|
00001040: A6 31 33 29 22 12 20 D3 41 56 49 4E 47 20 D4 49 |.13)". .AVING .I|
00001050: 54 4C 45 20 22 00 7B 18 54 06 8D 31 38 33 30 3A |TLE ".{.T..1830:|
00001060: 9F 33 2C 38 2C 33 2C 22 40 30 3A 54 45 53 54 20 |.3,8,3,"@0:TEST |
00001070: 54 49 54 4C 45 53 2C 53 2C 57 22 00 A5 18 5E 06 |TITLES,S,W"...^.|
00001080: 81 41 B2 31 A4 58 AA 31 3A 98 33 2C 4D 24 28 41 |.A.1.X.1:.3,M$(A|
00001090: 29 3A 82 3A A0 33 3A 97 31 39 38 2C 30 3A 8D 32 |):.:.3:.198,0:.2|
000010A0: 31 35 30 3A 8E 00 C1 18 68 06 8F 20 54 45 53 54 |150:....h.. TEST|
000010B0: 20 41 44 44 49 54 49 4F 4E 20 52 4F 55 54 49 4E | ADDITION ROUTIN|
000010C0: 45 00 C7 18 72 06 9C 00 DC 18 7C 06 52 B2 31 3A |E...r.....|.R.1:|
000010D0: 8D 37 30 3A 52 B2 30 3A 89 39 39 30 00 08 19 86 |.70:R.0:.990....|
000010E0: 06 99 3A 99 A3 35 29 22 12 20 D0 D2 C5 D3 D3 A0 |..:..5)". ......|
000010F0: D3 D0 C1 C3 C5 A0 C2 C1 D2 A0 D4 CF A0 C3 CF CE |................|
00001100: D4 C9 CE D5 C5 20 92 22 00 25 19 90 06 A1 47 24 |..... .".%....G$|
00001110: 3A 8B C6 28 47 24 AA C7 28 30 29 29 B3 B1 33 32 |:..(G$..(0))..32|
00001120: A7 31 36 38 30 00 2B 19 9A 06 8E 00 34 19 A4 06 |.1680.+.....4...|
00001130: 99 22 93 22 00 54 19 AE 06 99 A6 31 30 29 22 93 |.".".T.....10)".|
00001140: 11 11 11 11 11 11 11 11 11 11 C6 C9 CC C5 20 C6 |.............. .|
00001150: D5 CC CC 22 00 66 19 B8 06 81 54 B2 31 A4 32 30 |...".f....T.1.20|
00001160: 30 30 3A 82 3A 8E 00 AA 19 C2 06 99 22 93 11 11 |00:.:......."...|
00001170: 12 20 20 C4 4F 20 59 4F 55 20 57 41 4E 54 20 54 |. .O YOU WANT T|
00001180: 4F 20 49 4E 49 54 49 41 4C 49 5A 45 20 41 20 4E |O INITIALIZE A N|
00001190: 45 57 20 44 49 53 4B 3F 20 22 3A 99 A3 31 37 29 |EW DISK? ":..17)|
000011A0: 22 12 20 28 D9 2F CE 29 20 22 00 BE 19 CC 06 A1 |". (./.) "......|
000011B0: 47 24 3A 8B 47 24 B2 22 22 A7 31 37 34 30 00 EF |G$:.G$."".1740..|
000011C0: 19 D6 06 8B 47 24 B2 22 59 22 A7 99 22 54 59 50 |....G$."Y".."TYP|
000011D0: 45 20 C7 CF D4 CF 20 31 37 39 30 20 41 4E 44 20 |E .... 1790 AND |
000011E0: 50 52 45 53 53 20 D2 C5 D4 D5 D2 CE 22 3A 80 00 |PRESS ......":..|
000011F0: 01 1A E0 06 8B 47 24 B3 B1 22 4E 22 A7 31 37 34 |.....G$.."N".174|
00001200: 30 00 0F 1A EA 06 8B 47 24 B2 22 4E 22 A7 8E 00 |0......G$."N"...|
00001210: 15 1A F4 06 80 00 42 1A FE 06 99 22 93 11 11 11 |......B...."....|
00001220: 11 11 20 20 20 20 20 20 C9 4E 53 45 52 54 20 CE |.. .NSERT .|
00001230: 45 57 20 C4 49 53 4B 20 49 4E 54 4F 20 C4 52 49 |EW .ISK INTO .RI|
00001240: 56 45 00 73 1A 08 07 99 22 11 11 11 11 20 20 D0 |VE.s....".... .|
00001250: 52 45 53 53 20 41 4E 59 20 4B 45 59 20 57 48 45 |RESS ANY KEY WHE|
00001260: 4E 20 52 45 41 44 59 20 54 4F 20 50 52 4F 43 45 |N READY TO PROCE|
00001270: 45 44 22 00 83 1A 12 07 8D 31 38 32 30 3A 89 31 |ED"......1820:.1|
00001280: 38 35 30 00 97 1A 1C 07 A1 47 24 3A 8B 47 24 B2 |850......G$:.G$.|
00001290: 22 22 A7 31 38 32 30 00 B4 1A 26 07 9F 31 35 2C |"".1820...&..15,|
000012A0: 38 2C 31 35 3A 98 31 35 2C 22 49 30 3A 22 3A A0 |8,15:.15,"I0:":.|
000012B0: 31 35 3A 8E 00 BA 1A 30 07 80 00 E9 1A 3A 07 8F |15:....0.....:..|
000012C0: 20 20 50 52 49 4E 54 22 93 11 11 11 11 11 1D 1D | PRINT"........|
000012D0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 |................|
000012E0: 20 D7 C1 C9 D4 31 37 33 30 00 0E 1B 44 07 99 22 | ....1730...D.."|
000012F0: 11 11 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
00001300: 20 12 20 D7 C1 D2 CE C9 CE C7 21 21 21 22 00 3E | . .......!!!".>|
00001310: 1B 4E 07 99 22 20 20 12 20 C4 C9 D3 CB A0 C9 CE |.N.." . .......|
00001320: A0 C4 D2 C9 D6 C5 A0 C9 D3 A0 C1 C2 CF D5 D4 A0 |................|
00001330: D4 CF A0 C2 C5 A0 C5 D2 C1 D3 C5 C4 21 22 00 6E |............!".n|
00001340: 1B 58 07 99 22 20 20 12 A0 20 20 20 20 20 20 20 |.X.." .. |
00001350: A0 C1 D2 C5 A0 D9 CF D5 A0 D3 D5 D2 C5 3F 20 28 |.............? (|
00001360: D9 2F CE 29 20 20 20 20 20 20 20 20 20 22 00 82 |./.) "..|
00001370: 1B 62 07 A1 47 24 3A 8B 47 24 B2 22 22 A7 31 38 |.b..G$:.G$."".18|
00001380: 39 30 00 93 1B 6C 07 8B 47 24 B2 22 59 22 A7 31 |90...l..G$."Y".1|
00001390: 39 33 30 00 A3 1B 76 07 8B 47 24 B2 22 4E 22 A7 |930...v..G$."N".|
000013A0: 39 39 30 00 AD 1B 80 07 89 31 38 39 30 00 CC 1B |990......1890...|
000013B0: 8A 07 99 22 93 11 11 C5 4E 54 45 52 20 C4 C9 D3 |..."....NTER ...|
000013C0: CB CE C1 CD C5 22 3B 3A 85 44 4E 24 00 0B 1C 94 |.....";:.DN$....|
000013D0: 07 8B C3 28 44 4E 24 29 B1 31 35 A7 99 22 11 11 |...(DN$).15.."..|
000013E0: CE C1 CD C5 A0 D4 CF CF A0 CC CF CE C7 2C 20 D4 |............., .|
000013F0: D2 D9 A0 C1 C7 C1 C9 CE 22 3A 81 54 B2 31 A4 31 |........":.T.1.1|
00001400: 30 30 30 3A 82 3A 89 31 39 33 30 00 35 1C 9E 07 |000:.:.1930.5...|
00001410: 99 22 11 11 C5 4E 54 45 52 20 32 20 C3 48 41 52 |."...NTER 2 .HAR|
00001420: 41 43 54 45 52 20 44 49 53 4B 20 C9 2E C4 2E 22 |ACTER DISK ...."|
00001430: 3A 85 49 44 24 00 75 1C A8 07 97 35 33 32 38 31 |:.ID$.u....53281|
00001440: 2C 32 3A 97 35 33 32 38 30 2C 32 3A 99 22 93 11 |,2:.53280,2:."..|
00001450: 11 11 11 11 20 20 20 20 20 20 20 20 20 20 CC C1 |.... ..|
00001460: D3 D4 A0 C3 C8 C1 CE C3 C5 A0 D4 CF A0 D3 D4 CF |................|
00001470: D0 21 21 21 22 00 AA 1C B2 07 99 3A 99 22 20 20 |.!!!"......:." |
00001480: 20 20 20 20 20 20 20 D0 D2 C5 D3 D3 A0 C1 CE D9 | .........|
00001490: A0 CB C5 D9 A0 D4 CF A0 D3 D4 CF D0 21 21 21 22 |............!!!"|
000014A0: 3A 81 54 B2 31 A4 31 30 30 30 00 BE 1C BC 07 A1 |:.T.1.1000......|
000014B0: 47 24 3A 8B 47 24 B3 B1 22 22 A7 39 39 30 00 C4 |G$:.G$.."".990..|
000014C0: 1C C6 07 82 00 EE 1C D0 07 99 22 93 11 11 11 11 |..........".....|
000014D0: C4 C9 D3 CB A0 C9 D3 A0 C2 C5 C9 CE C7 A0 C6 CF |................|
000014E0: D2 CD C1 D4 D4 C5 C4 2D 2D D7 C1 C9 D4 22 00 11 |.......--...."..|
000014F0: 1D DA 07 9F 31 35 2C 38 2C 31 35 3A 98 31 35 2C |....15,8,15:.15,|
00001500: 22 4E 30 3A 22 AA 44 4E 24 AA 22 2C 22 AA 49 44 |"N0:".DN$.",".ID|
00001510: 24 00 3B 1D E4 07 84 31 35 2C 53 31 2C 53 24 2C |$.;....15,S1,S$,|
00001520: 53 32 2C 53 33 3A A0 31 35 3A 8B 53 31 B3 B1 30 |S2,S3:.15:.S1..0|
00001530: A7 32 31 31 30 3A 8D 32 30 35 30 00 72 1D EE 07 |.2110:.2050.r...|
00001540: 99 22 93 11 11 11 11 11 11 11 11 11 11 20 20 20 |."........... |
00001550: 20 20 20 20 20 20 C4 C9 D3 CB A0 C6 CF D2 CD C1 | ..........|
00001560: D4 D4 C5 C4 A0 22 3A 81 54 B2 31 A4 32 30 30 30 |.....":.T.1.2000|
00001570: 3A 82 00 8E 1D F8 07 97 35 33 32 38 30 2C 31 33 |:.......53280,13|
00001580: 3A 97 35 33 32 38 31 2C 35 3A 89 39 39 30 00 B3 |:.53281,5:.990..|
00001590: 1D 02 08 81 54 B2 31 A4 31 30 30 30 3A 82 3A 97 |....T.1.1000:.:.|
000015A0: 35 33 32 38 30 2C 31 33 3A 97 35 33 32 38 31 2C |53280,13:.53281,|
000015B0: 35 3A 8E 00 C7 1D 0C 08 8F 20 53 4F 55 4E 44 20 |5:....... SOUND |
000015C0: 52 4F 55 54 49 4E 45 00 D3 1D 16 08 53 B2 35 34 |ROUTINE.....S.54|
000015D0: 32 37 32 00 08 1E 20 08 97 53 2C 31 30 30 3A 97 |272... ..S,100:.|
000015E0: 53 AA 31 2C 31 32 35 3A 97 53 AA 35 2C 30 3A 97 |S.1,125:.S.5,0:.|
000015F0: 53 AA 36 2C 32 34 30 3A 97 53 AA 32 34 2C 31 35 |S.6,240:.S.24,15|
00001600: 3A 97 53 AA 34 2C 31 37 00 17 1E 2A 08 81 54 B2 |:.S.4,17...*..T.|
00001610: 30 A4 31 30 30 3A 82 00 24 1E 34 08 97 53 AA 34 |0.100:..$.4..S.4|
00001620: 2C 30 3A 8E 00 43 1E 3E 08 99 22 C4 C9 D3 CB A0 |,0:..C.>..".....|
00001630: C5 D2 D2 CF D2 20 22 3B 53 31 2C 53 24 2C 53 32 |..... ";S1,S$,S2|
00001640: 2C 53 33 00 72 1E 48 08 99 3A 99 22 C3 4F 52 52 |,S3.r.H..:.".ORR|
00001650: 45 43 54 20 C5 52 52 4F 52 20 43 4F 4E 44 49 54 |ECT .RROR CONDIT|
00001660: 49 4F 4E 20 41 4E 44 20 54 52 59 20 41 47 41 49 |ION AND TRY AGAI|
00001670: 4E 22 00 7C 1E 52 08 8D 31 36 37 30 00 85 1E 5C |N".|.R..1670...\|
00001680: 08 89 39 38 30 00 B2 1E 66 08 9F 31 35 2C 38 2C |..980...f..15,8,|
00001690: 31 35 3A 84 31 35 2C 53 31 2C 53 24 2C 53 32 2C |15:.15,S1,S$,S2,|
000016A0: 53 33 3A A0 31 35 3A 8B 53 31 B3 B1 30 A7 32 31 |S3:.15:.S1..0.21|
000016B0: 31 30 00 C9 1E 70 08 99 22 C4 49 53 4B 20 D3 54 |10...p..".ISK .T|
000016C0: 41 54 55 53 3A 20 22 53 24 00 CF 1E 7A 08 8E 00 |ATUS: "S$...z...|
000016D0: 00 00 |.. |
....... QUIZ MASTER.O....Q$(100),A$(100)
,B$(100),C$(100),D$(100),E$(100),M$(15).
O....".":.53280,13:.53281,5:.50...(..198
,6:.631,30:.632,34:.633,34:.634,20:.635,
5:....2..53272,23:.970.A.<..".":....F..Q
$(100),A$(100),B$(100),C$(100),D$(100),E
$(100),M$(15),SN$(400),G(400).#.P..1830:
.1360:.2070.K.Z.."ENTER NUMBER OF TEST T
O LOAD:":.N.M.D..N.0.N.X.."INVALID RANGE
":.90...N.N$.M$(N):..12)"...............
.. LOADING DATA ".P.X..1830:.2150:.2
,8,2,.N$." FILE,S,R":X.0.Z...X.X.1......
2,Q$(X):.2,A$(X):.2,B$(X):.2,C$(X):.2,D$
(X):.2,E$(X).$....ST .64.170.-. ..130.G.
.. 2:.198,0:L.X:N.X:T.0.T....R.1.240.J..
..2150:.2070:.1670.W.H..H.0.970...R..H.1
.240...... INPUT QUESTIONS.E...."..ENTER
NAME FOR QUIZ":.N$:.1460:N.0.....N.N.1:
.".":..13)". QUIZ MASTER ."......:.". WA
RNING! DO NOT EXCEED 80 CHARACTERS ".Q
....:.". ENTER \ TO EXIT ROUTINE
"......N..100.."......
FILE FULL":.T.1.2000:.:.980......40.
..".H.0...,.."ENTER QUESTION #";N:..F.6.
.Q$(N).X.@..Q$(N)."".310...J..Q$(N).G(92
).N.N.1:.770...T..C(Q$(N)).80..1290...^.
.H.1.240.=.H.."ENTER FIRST ANSWER:":.:.4
0:H.0.\.R.."A. ";A$(N):.A$(N)."".370.X.|
..F(A$(N)).92.N.N.1:.770.....A$(N)."A. "
.A$(N)......C(A$(N)).80..1290......H.1..
360.Y...."ENTER SECOND ANSWER:":.:.40:H.
0......"B. ";B$(N):.B$(N)."".430......F(
B$(N)).92.N.N.1:.770.*.B.B$(N)."B. ".B$(
N).A.L..C(B$(N)).80..1290.O.V..H.1..420.
T...."ENTER THIRD ANSWER:":.:.40:H.0....
.."C. ";C$(N):.C$(N)."".490......F(C$(N)
).92.N.N.1:.770.E...C$(N)."C. ".C$(N)...
...C(C$(N)).80..1290......H.1..480......
"ENTER FOURTH ANSWER:":.:.40:H.0./.&.."D
. ";D$(N):.D$(N)."".550.K.0..F(D$(N)).92
.N.N.1:.770.A.:.D$(N)."D. ".D$(N).X.D..C
(D$(N)).80..1290...N..H.1..540...X.."ENT
ER LETTER OF CORRECT ANSWER:":.:H.0.L.B.
.E$(N):.E$(N)."".610...L..F(E$(N)).92.N.
N.1:.770:.990...V..C(E$(N))..1..1290....
..E$(N)."A".690.*....E$(N)."B".690.=....
E$(N)."C".690.P....E$(N)."D".690.N....".
ERROR: RE-ENTER":.610.{....H.1.600.....
.P.1.....F.L.N:.2070:.N.100.730...P..240
.O.Z..:..7)"FILE CONTAINS 100 ENTRIES.".
.....:."DATA WILL BE STORED. OPEN NEW TE
XT FILE"......1720:.770:.990.%.... STORE
DATA.R....2070:..10)". WAIT, STORING DA
TA ":.2150.X....1830:.2,8,2,"@0:".N$." F
ILE,S,W"......X.1.L:.2,Q$(X):.2,A$(X):.2
,B$(X):.2,C$(X):.2,D$(X):.2,E$(X):.... .
2:.198,0:.2150:.2070:.1670:....*.. CHAN
GE ANSWER.$.4..2070:P.1:."..... ENTER NU
MBER OF QUESTION":.W.\.>.."...":S$.Q$(W)
:.1190:S$.A$(W):.1190:S$.B$(W):.1190.~.H
.S$.C$(W):.1190:S$.D$(W):.1190...R.."COR
RECT ANSWER IS:":.E$(W)...\..1670:N.W.1:
.240:.770:..P.F.. REVIEW ROUTINE...P..20
70:Y.1:.".."...Z..:..20.C(N$).2);N$:.167
0:.".."......N.1.L:.".".*....Q$(N).""..9
60.I...S$.D(N).". ".Q$(N):.:.1190.^....
ANSWER CHOICES.....S$.A$(N):.1190:S$.B$(
N):.1190:S$.C$(N):.1190:S$.D$(N):.1190.K
....:."CORRECT ANSWER IS: ":..7)E$(N):.2
070.Y....1670:.:....J.. PROGRAM MENU...T
.H.0......".":.53280,13:.53281,5......20
70."...P.0.=.....13)".. QUIZ MASTER ".C.
...:..5)"ENTER NUMBER OF FUNCTION:".....
.:..8)"1. ENTER NEW QUESTIONS"......:..8
)"2. REVIEW QUESTIONS".G.$..:..8)"3. CHA
NGE A QUESTION"......:..8)"4. LOAD PREVI
OUS DATA"...8..:..8)"5. ADD TO TEST IN F
ILE".+.B..:..8)"6. INITIALIZE DISK".>.L.
.:..8)"7. END".R.V..:..5)"NUMBER?".F.`..
G$:.G$."".1120...J.G.F(G$).48:.G.1.G.8.1
120...T..G.230,880,820,60,1640,1730,1170
...~..990......2070.K....198,0:.198.....
. PRINT JUSTIFY............C(S$).40..S$:
.1280.....X.40:Y.1...D.X.X.1.4.N..F(J(S$
,X,Y).G(0))..32.1220.A.X..H(S$,X).M...Z.
C(S$).W...Z.Z.X.D....I(S$,Z).J..........
"ENTRY TOO LONG: RE-PHRASE".....H.1:.T.1
.2000:.:....... TEST TITLE FILE...(..:."
HAS TEST TITLE FILE BEEN INITIATED?(Y/N)
":.2070...2..G$:.G$."".1330...<.. G$."N"
.1460.'.F..G$.."Y".1330.<.P..:..17)". WA
IT ".E.Z..2150:.1830:.3,8,3,"TEST TITLES
,S,R".M.D.X.0...N.X.X.1:.3,M$(X)...X..ST
.64.1420......1390..... 3:.198,0:.2150.
.....S1..0.2110... ..".":..14)"TEST TITL
ES":.......A.1.X:.A;". ";M$(A):.:.......
INITIATE TEST FILE.#....X.15..1710.2.H.
. X.15.X.1.@.R..X.1.1600.M....".HAS FILE
OF TEST NAMES BEEN STARTED?"......G$:.G
$."".1510...... G$."N".1600......G$."Y".
.1370......X.1". ."N$.T...."IS YOUR TITL
E ORIGINAL?"......G$:.G$."".1560...".. G
$."Y".1600...,.."ENTER NEW TITLE FOR TES
T:".#.6..N$.8.@.M$(X.1).N$:.2070.U.J..:.
.13)". SAVING TITLE ".{.T..1830:.3,8,3,"
@0:TEST TITLES,S,W"...^..A.1.X.1:.3,M$(A
):.: 3:.198,0:.2150:..A.H.. TEST ADDITIO
N ROUTINE.G.R.....|.R.1:.70:R.0:.990....
..:..5)". PRESS SPACE BAR TO CONTINUE ."
.%....G$:.F(G$.G(0))..32.1680.+.....4...
.".".T.....10)"...........FILE FULL".F..
..T.1.2000:.:....B..".... DO YOU WANT T
O INITIALIZE A NEW DISK? ":..17)". (Y/N)
"...L..G$:.G$."".1740...V..G$."Y".."TYP
E GOTO 1790 AND PRESS RETURN":.......G$.
."N".1740......G$."N".........B...."....
.. INSERT NEW DISK INTO DRIVE.S....
".... PRESS ANY KEY WHEN READY TO PROCE
ED"......1820:.1850......G$:.G$."".1820.
..&..15,8,15:.15,"I0:": 15:....0.....:..
PRINT"........................ WAIT173
0...D..".. . WARNING!!!".>
.N.." . DISK IN DRIVE IS ABOUT TO BE ER
ASED!".N.X.." . ARE YOU SURE? (
Y/N) "...B..G$:.G$."".1890...L..
G$."Y".1930...V..G$."N".990......1890.L.
..."...ENTER DISKNAME";:.DN$......C(DN$)
.15.."..NAME TOO LONG, TRY AGAIN":.T.1.1
000:.:.1930.5...."..ENTER 2 CHARACTER DI
SK I.D.":.ID$.U....53281,2:.53280,2:."..
.... LAST CHANCE TO STOP!!!"...
...:." PRESS ANY KEY TO STOP!!!"
:.T.1.1000......G$:.G$.."".990.D.F.....P
..".....DISK IS BEING FORMATTED--WAIT"..
.Z..15,8,15:.15,"N0:".DN$.",".ID$.;....1
5,S1,S$,S2,S3: 15:.S1..0.2110:.2050.R...
."........... DISK FORMATTED ":.
T.1.2000:.......53280,13:.53281,5:.990..
....T.1.1000:.:.53280,13:.53281,5:..G...
. SOUND ROUTINE.S...S.54272... ..S,100:.
S.1,125:.S.5,0:.S.6,240:.S.24,15:.S.4,17
...*..T.0.100:..$.4..S.4,0:..C.>.."DISK
ERROR ";S1,S$,S2,S3.R.H..:."CORRECT ERRO
R CONDITION AND TRY AGAIN".|.R..1670...\
..980...F..15,8,15:.15,S1,S$,S2,S3: 15:.
S1..0.2110.I.P.."DISK STATUS: "S$.O.Z...
..
> CLICK IMAGE PREVIEW FOR FULL MODAL