QUESTIONAIRE
FILE INFORMATION
FILENAME(S): QUESTIONAIRE
FILE TYPE(S): PRG
FILE SIZE: 5.2K
FIRST SEEN: 2025-12-02 00:17:31
APPEARS ON: 1 disk(s)
FILE HASH
c3651ae35d9b5c6d6740b3fc060bdaccc4944b18b14c2d69abc8158b9b2bda17
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DISK020B | QUESTIONAIRE | PRG | Maestro | 16 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 24 08 F8 2A 8F 23 2A 2A 2A 2A 2A 2A 2A 2A |..$..*.#********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 00 2F 08 02 2B 8F 20 4D 45 4E 55 00 |****./..+. MENU.|
00000030: 52 08 0C 2B 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |R..+.***********|
00000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000050: 2A 2A 00 7B 08 16 2B 97 20 35 33 32 38 31 2C 31 |**.{..+. 53281,1|
00000060: 35 3A 99 20 22 93 11 1F 1D 1D 1D 1D 1D 1D 1D 1D |5:. "...........|
00000070: 1D 1D 1D 12 4D 55 4C 54 49 51 22 00 97 08 20 2B |....MULTIQ"... +|
00000080: 99 22 11 43 4F 4D 4D 41 4E 44 53 20 41 56 41 49 |.".COMMANDS AVAI|
00000090: 4C 41 42 4C 45 3A 22 00 B3 08 2A 2B 99 22 11 81 |LABLE:"...*+."..|
000000A0: 20 31 29 49 4E 50 55 54 20 4E 45 57 20 49 54 45 | 1)INPUT NEW ITE|
000000B0: 4D 53 22 00 CB 08 34 2B 99 22 20 32 29 53 45 41 |MS"...4+." 2)SEA|
000000C0: 52 43 48 2F 44 45 4C 45 54 45 22 00 E5 08 3E 2B |RCH/DELETE"...>+|
000000D0: 99 22 20 33 29 45 4E 54 45 52 20 4E 45 57 20 54 |." 3)ENTER NEW T|
000000E0: 59 50 45 53 22 00 02 09 48 2B 99 22 20 34 29 47 |YPES"...H+." 4)G|
000000F0: 45 4E 45 52 41 54 45 20 51 55 45 53 54 49 4F 4E |ENERATE QUESTION|
00000100: 53 22 00 23 09 52 2B 99 22 20 35 29 44 49 53 50 |S".#.R+." 5)DISP|
00000110: 4C 41 59 20 4F 52 20 52 45 53 45 54 20 53 43 4F |LAY OR RESET SCO|
00000120: 52 45 22 00 38 09 5C 2B 99 22 20 36 29 44 41 54 |RE".8.\+." 6)DAT|
00000130: 41 20 46 49 4C 45 53 22 00 4D 09 66 2B 99 22 20 |A FILES".M.f+." |
00000140: 37 29 49 4E 49 54 49 41 4C 49 53 45 22 00 5C 09 |7)INITIALISE".\.|
00000150: 70 2B 99 22 20 38 29 53 54 4F 50 22 00 85 09 7A |p+." 8)STOP"...z|
00000160: 2B 85 20 22 11 9A 57 48 49 43 48 20 44 4F 20 59 |+. "..WHICH DO Y|
00000170: 4F 55 20 52 45 51 55 49 52 45 3A 22 3B 5A 3A 99 |OU REQUIRE:";Z:.|
00000180: 20 22 93 22 3B 00 C7 09 84 2B 91 20 5A 20 8D 20 | ".";....+. Z . |
00000190: 31 33 30 30 30 2C 31 36 30 30 30 2C 31 32 31 30 |13000,16000,1210|
000001A0: 30 2C 31 37 30 30 30 2C 31 38 30 30 30 2C 31 39 |0,17000,18000,19|
000001B0: 30 30 30 2C 31 32 30 30 30 2C 31 31 31 35 30 3A |000,12000,11150:|
000001C0: 89 20 31 31 30 30 30 00 FD 09 8E 2B 99 20 22 93 |. 11000....+. ".|
000001D0: 1F 11 11 11 11 11 11 11 11 11 11 11 11 1D 1D 1D |................|
000001E0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 43 4C 41 53 53 52 |..........CLASSR|
000001F0: 4F 4F 4D 20 43 4C 4F 53 45 44 22 3A 80 00 21 0A |OOM CLOSED":..!.|
00000200: E0 2E 8F 23 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...#************|
00000210: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000220: 2A 00 32 0A EA 2E 8F 20 49 4E 49 54 49 41 4C 49 |*.2.... INITIALI|
00000230: 53 45 00 56 0A F4 2E 8F 2A 2A 2A 2A 2A 2A 2A 2A |SE.V....********|
00000240: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000250: 2A 2A 2A 2A 2A 2A 00 8A 0A FE 2E 9C 3A 86 20 4E |******......:. N|
00000260: 41 24 28 31 29 2C 51 28 34 29 2C 41 24 28 31 2C |A$(1),Q(4),A$(1,|
00000270: 34 39 39 29 2C 44 24 28 39 29 2C 44 28 31 2C 39 |499),D$(9),D(1,9|
00000280: 29 3A 52 24 B2 C7 28 31 33 29 00 C9 0A 08 2F 85 |):R$..(13)..../.|
00000290: 20 22 11 90 41 52 45 20 59 4F 55 20 4C 4F 41 44 | "..ARE YOU LOAD|
000002A0: 49 4E 47 20 46 52 4F 4D 20 54 41 50 45 20 28 59 |ING FROM TAPE (Y|
000002B0: 2F 4E 29 3A 22 3B 51 24 3A 8B 20 51 24 B2 22 59 |/N):";Q$:. Q$."Y|
000002C0: 22 20 A7 20 31 31 30 30 30 00 EE 0A 12 2F 99 20 |" . 11000..../. |
000002D0: 22 93 11 1F 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 54 |"..............T|
000002E0: 45 53 54 20 53 54 52 55 43 54 55 52 45 22 00 10 |EST STRUCTURE"..|
000002F0: 0B 1C 2F 85 20 22 11 1E 4E 41 4D 45 20 46 4F 52 |../. "..NAME FOR|
00000300: 20 41 4E 53 57 45 52 3A 22 3B 4E 41 24 28 30 29 | ANSWER:";NA$(0)|
00000310: 00 34 0B 26 2F 85 20 22 11 95 4E 41 4D 45 20 46 |.4.&/. "..NAME F|
00000320: 4F 52 20 51 55 45 53 54 49 4F 4E 3A 22 3B 4E 41 |OR QUESTION:";NA|
00000330: 24 28 31 29 00 6B 0B 30 2F 85 20 22 11 96 41 52 |$(1).k.0/. "..AR|
00000340: 45 20 54 48 45 53 45 20 43 4F 52 52 45 43 54 20 |E THESE CORRECT |
00000350: 28 59 2F 4E 29 3A 22 3B 51 24 3A 8B 20 51 24 B2 |(Y/N):";Q$:. Q$.|
00000360: 22 4E 22 20 A7 20 31 32 30 35 30 00 84 0B 3A 2F |"N" . 12050...:/|
00000370: 44 24 28 30 29 B2 22 55 4E 54 59 50 45 44 22 3A |D$(0)."UNTYPED":|
00000380: 54 59 B2 31 00 A4 0B 44 2F 99 20 22 93 11 1F 1D |TY.1...D/. "....|
00000390: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 54 59 |..............TY|
000003A0: 50 45 53 22 00 C3 0B 4E 2F 99 20 22 11 1C 49 4E |PES"...N/. "..IN|
000003B0: 50 55 54 20 27 5A 5A 5A 27 20 54 4F 20 51 55 49 |PUT 'ZZZ' TO QUI|
000003C0: 54 3A 22 00 F6 0B 58 2F 99 20 22 11 9C 54 59 50 |T:"...X/. "..TYP|
000003D0: 45 53 20 49 4E 50 55 54 20 53 4F 20 46 41 52 3A |ES INPUT SO FAR:|
000003E0: 2D 22 3B 3A 8B 20 54 59 B2 31 20 A7 20 99 20 22 |-";:. TY.1 . . "|
000003F0: 90 4E 4F 4E 45 22 00 2F 0C 62 2F 8B 20 54 59 B3 |.NONE"./.b/. TY.|
00000400: B1 31 20 A7 20 99 20 22 11 22 3A 81 20 49 B2 30 |.1 . . ".":. I.0|
00000410: 20 A4 20 54 59 AB 31 3A 99 20 22 81 22 3B 49 AA | . TY.1:. ".";I.|
00000420: 31 3B 22 2D 20 95 22 3B 44 24 28 49 29 3A 82 00 |1;"- .";D$(I):..|
00000430: 59 0C 6C 2F 85 20 22 11 1F 4E 45 57 20 54 59 50 |Y.l/. "..NEW TYP|
00000440: 45 3A 22 3B 51 24 3A 8B 20 51 24 B2 22 5A 5A 5A |E:";Q$:. Q$."ZZZ|
00000450: 22 20 A7 20 31 31 30 30 30 00 90 0C 76 2F 85 20 |" . 11000...v/. |
00000460: 22 11 90 49 53 20 54 48 49 53 20 43 4F 52 52 45 |"..IS THIS CORRE|
00000470: 43 54 20 28 59 2F 4E 29 3A 22 3B 51 31 24 3A 8B |CT (Y/N):";Q1$:.|
00000480: 20 51 31 24 B2 22 4E 22 20 A7 20 31 32 31 30 30 | Q1$."N" . 12100|
00000490: 00 C8 0C 80 2F 8B 20 54 59 B2 31 30 20 A7 20 99 |..../. TY.10 . .|
000004A0: 20 22 11 1C 4E 4F 20 4D 4F 52 45 20 52 4F 4F 4D | "..NO MORE ROOM|
000004B0: 22 3A 81 20 49 B2 31 20 A4 20 32 30 30 30 3A 82 |":. I.1 . 2000:.|
000004C0: 3A 89 20 31 31 30 30 30 00 E6 0C 8A 2F 44 24 28 |:. 11000..../D$(|
000004D0: 54 59 29 B2 51 24 3A 54 59 B2 54 59 AA 31 3A 89 |TY).Q$:TY.TY.1:.|
000004E0: 20 31 32 31 30 30 00 0A 0D C8 32 8F 23 2A 2A 2A | 12100....2.#***|
000004F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000500: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 23 0D D2 32 8F |**********.#..2.|
00000510: 20 49 4E 50 55 54 20 4F 46 20 4E 45 57 20 49 54 | INPUT OF NEW IT|
00000520: 45 4D 53 00 47 0D DC 32 8F 2A 2A 2A 2A 2A 2A 2A |EMS.G..2.*******|
00000530: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000540: 2A 2A 2A 2A 2A 2A 2A 00 7E 0D E6 32 99 20 22 93 |*******.~..2. ".|
00000550: 11 1F 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 |................|
00000560: 4E 45 57 20 49 54 45 4D 53 22 3A 99 20 22 11 81 |NEW ITEMS":. "..|
00000570: 27 5A 5A 5A 27 20 54 4F 20 51 55 49 54 22 00 BC |'ZZZ' TO QUIT"..|
00000580: 0D F0 32 8B 20 49 54 B1 B2 35 30 30 20 A7 20 99 |..2. IT..500 . .|
00000590: 20 22 11 1C 4E 4F 20 4D 4F 52 45 20 52 4F 4F 4D | "..NO MORE ROOM|
000005A0: 3A 46 4F 52 20 49 3D 31 20 54 4F 20 32 30 30 30 |:FOR I=1 TO 2000|
000005B0: 3A 4E 45 58 54 3A 52 45 54 55 52 4E 00 ED 0D FA |:NEXT:RETURN....|
000005C0: 32 99 20 22 11 90 22 3B 4E 41 24 28 30 29 3B 22 |2. "..";NA$(0);"|
000005D0: 3A 22 3B 3A 85 20 54 31 24 3A 8B 20 54 31 24 B2 |:";:. T1$:. T1$.|
000005E0: 22 5A 5A 5A 22 20 A7 20 31 33 31 36 30 00 1A 0E |"ZZZ" . 13160...|
000005F0: 04 33 99 20 22 11 96 22 3B 4E 41 24 28 31 29 3B |.3. "..";NA$(1);|
00000600: 22 3A 22 3B 3A 85 20 54 32 24 3A 8B 20 54 32 24 |":";:. T2$:. T2$|
00000610: B2 22 5A 5A 5A 22 20 A7 20 8E 00 33 0E 0E 33 8B |."ZZZ" . ..3..3.|
00000620: 20 54 59 B2 31 20 A7 20 54 B2 30 3A 89 20 31 33 | TY.1 . T.0:. 13|
00000630: 31 30 30 00 5D 0E 18 33 99 20 22 95 54 59 50 45 |100.]..3. ".TYPE|
00000640: 3A 22 3A 81 20 49 B2 31 20 A4 20 54 59 3A 99 20 |:":. I.1 . TY:. |
00000650: 49 3B 44 24 28 49 AB 31 29 3A 82 20 49 00 7C 0E |I;D$(I.1):. I.|.|
00000660: 22 33 85 20 22 11 1F 57 48 49 43 48 20 49 53 20 |"3. "..WHICH IS |
00000670: 49 54 3A 22 3B 54 3A 54 B2 54 AB 31 00 9E 0E 2C |IT:";T:T.T.1...,|
00000680: 33 99 20 22 11 1F 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |3. "............|
00000690: 1D 1D 1D 12 4E 45 57 20 49 54 45 4D 53 22 00 D0 |....NEW ITEMS"..|
000006A0: 0E 36 33 99 20 22 11 1C 12 22 3B 4E 41 24 28 30 |.63. "...";NA$(0|
000006B0: 29 3B 22 92 22 3B 54 31 24 3A 99 20 22 11 95 12 |);".";T1$:. "...|
000006C0: 22 3B 4E 41 24 28 31 29 3B 22 92 22 3B 54 32 24 |";NA$(1);".";T2$|
000006D0: 00 09 0F 40 33 99 20 22 11 1E 12 54 59 50 45 92 |...@3. "...TYPE.|
000006E0: 22 3B 44 24 28 54 29 3A 85 20 22 11 90 41 52 45 |";D$(T):. "..ARE|
000006F0: 20 54 48 45 53 45 20 43 4F 52 52 45 43 54 20 28 | THESE CORRECT (|
00000700: 59 2F 4E 29 3A 22 3B 51 24 00 1F 0F 4A 33 8B 20 |Y/N):";Q$...J3. |
00000710: 51 24 B3 B1 22 59 22 20 A7 20 31 33 30 30 30 00 |Q$.."Y" . 13000.|
00000720: 43 0F 54 33 44 28 30 2C 54 29 B2 44 28 30 2C 54 |C.T3D(0,T).D(0,T|
00000730: 29 AA 31 3A 54 31 24 B2 C7 28 34 38 AA 54 29 AA |).1:T1$..(48.T).|
00000740: 54 31 24 00 5E 0F 5E 33 8D 20 31 34 30 30 30 3A |T1$.^.^3. 14000:|
00000750: 8D 20 31 35 30 32 30 3A 89 31 33 30 30 30 00 8C |. 15020:.13000..|
00000760: 0F 68 33 53 55 B2 30 3A 81 20 49 B2 30 20 A4 20 |.h3SU.0:. I.0 . |
00000770: 39 3A 44 28 31 2C 49 29 B2 53 55 3A 53 55 B2 53 |9:D(1,I).SU:SU.S|
00000780: 55 AA 44 28 30 2C 49 29 3A 82 3A 8E 00 B0 0F B0 |U.D(0,I):.:.....|
00000790: 36 8F 23 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |6.#*************|
000007A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000007B0: 00 C4 0F BA 36 8F 20 42 49 4E 41 52 59 20 53 45 |....6. BINARY SE|
000007C0: 41 52 43 48 00 E8 0F C4 36 8F 2A 2A 2A 2A 2A 2A |ARCH....6.******|
000007D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000007E0: 2A 2A 2A 2A 2A 2A 2A 2A 00 FC 0F CE 36 8B 20 49 |********....6. I|
000007F0: 54 B2 30 20 A7 20 53 53 B2 30 3A 8E 00 1B 10 D8 |T.0 . SS.0:.....|
00000800: 36 50 4F B2 B5 28 BC 28 49 54 29 AD BC 28 32 29 |6PO..(.(IT)..(2)|
00000810: 29 3A 53 53 B2 32 AE 50 4F AB 31 00 2E 10 E2 36 |):SS.2.PO.1....6|
00000820: 81 20 49 B2 50 4F 20 A4 20 30 20 A9 AB 31 00 4D |. I.PO . 0 ..1.M|
00000830: 10 EC 36 8B 20 41 24 28 30 2C 53 53 29 B3 54 31 |..6. A$(0,SS).T1|
00000840: 24 20 A7 20 53 53 B2 53 53 AA 32 AE 49 00 6C 10 |$ . SS.SS.2.I.l.|
00000850: F6 36 8B 20 41 24 28 30 2C 53 53 29 B1 54 31 24 |.6. A$(0,SS).T1$|
00000860: 20 A7 20 53 53 B2 53 53 AB 32 AE 49 00 7E 10 00 | . SS.SS.2.I.~..|
00000870: 37 8B 20 53 53 B3 30 20 A7 20 53 53 B2 30 00 96 |7. SS.0 . SS.0..|
00000880: 10 0A 37 8B 20 53 53 B1 49 54 AB 31 20 A7 20 53 |..7. SS.IT.1 . S|
00000890: 53 B2 49 54 AB 31 00 B7 10 14 37 82 20 49 3A 8B |S.IT.1....7. I:.|
000008A0: 20 41 24 28 30 2C 53 53 29 B3 54 31 24 20 A7 20 | A$(0,SS).T1$ . |
000008B0: 53 53 B2 53 53 AA 31 00 BD 10 1E 37 8E 00 E1 10 |SS.SS.1....7....|
000008C0: 98 3A 8F 23 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.:.#************|
000008D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000008E0: 2A 00 EE 10 A2 3A 8F 20 49 4E 53 45 52 54 00 12 |*....:. INSERT..|
000008F0: 11 AC 3A 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..:.************|
00000900: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000910: 2A 2A 00 25 11 B6 3A 8B 20 49 54 B2 30 20 A7 20 |**.%..:. IT.0 . |
00000920: 31 35 30 36 30 00 3C 11 C0 3A 81 20 49 B2 49 54 |15060.<..:. I.IT|
00000930: 20 A4 20 53 53 AA 31 20 A9 20 AB 31 00 62 11 CA | . SS.1 . .1.b..|
00000940: 3A 81 20 4A B2 30 20 A4 20 31 3A 41 24 28 4A 2C |:. J.0 . 1:A$(J,|
00000950: 49 29 B2 41 24 28 4A 2C 49 AB 31 29 3A 82 20 4A |I).A$(J,I.1):. J|
00000960: 2C 49 00 8A 11 D4 3A 41 24 28 30 2C 53 53 29 B2 |,I....:A$(0,SS).|
00000970: 54 31 24 3A 41 24 28 31 2C 53 53 29 B2 54 32 24 |T1$:A$(1,SS).T2$|
00000980: 3A 49 54 B2 49 54 AA 31 3A 8E 00 AE 11 80 3E 8F |:IT.IT.1:.....>.|
00000990: 23 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |#***************|
000009A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C7 |**************..|
000009B0: 11 8A 3E 8F 20 55 53 45 52 20 53 45 41 52 43 48 |..>. USER SEARCH|
000009C0: 2F 44 45 4C 45 54 45 00 EB 11 94 3E 8F 2A 2A 2A |/DELETE....>.***|
000009D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000009E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F4 11 9E 3E |***********....>|
000009F0: 53 53 B2 30 00 13 12 A8 3E 99 20 22 93 11 1D 1D |SS.0....>. "....|
00000A00: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1C 12 53 45 41 52 |............SEAR|
00000A10: 43 48 22 00 2B 12 B2 3E 8B 20 53 53 B1 49 54 AB |CH".+..>. SS.IT.|
00000A20: 31 20 A7 20 53 53 B2 49 54 AB 31 00 3D 12 BC 3E |1 . SS.IT.1.=..>|
00000A30: 8B 20 53 53 B3 30 20 A7 20 53 53 B2 30 00 6C 12 |. SS.0 . SS.0.l.|
00000A40: C6 3E 99 20 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |.>. "...........|
00000A50: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1E |................|
00000A60: 49 54 45 4D 53 3D 22 3B 49 54 AB 31 00 8A 12 D0 |ITEMS=";IT.1....|
00000A70: 3E 99 20 22 11 1F 43 4F 4D 4D 41 4E 44 53 20 41 |>. "..COMMANDS A|
00000A80: 56 41 49 4C 41 42 4C 45 3A 22 00 AE 12 DA 3E 99 |VAILABLE:"....>.|
00000A90: 20 22 11 90 20 3E 9C 12 52 45 54 55 52 4E 92 20 | ".. >..RETURN. |
00000AA0: 46 4F 52 20 4E 45 58 54 20 49 54 45 4D 22 00 D9 |FOR NEXT ITEM"..|
00000AB0: 12 E4 3E 99 20 22 90 20 3E 9C 50 4F 53 2F 4E 45 |..>. ". >.POS/NE|
00000AC0: 47 20 4E 55 4D 42 45 52 20 54 4F 20 4D 4F 56 45 |G NUMBER TO MOVE|
00000AD0: 20 50 4F 49 4E 54 45 52 22 00 FA 12 EE 3E 99 20 | POINTER"....>. |
00000AE0: 22 90 20 3E 9C 27 44 44 44 27 20 54 4F 20 44 45 |". >.'DDD' TO DE|
00000AF0: 4C 45 54 45 20 49 54 45 4D 22 00 1D 13 F8 3E 99 |LETE ITEM"....>.|
00000B00: 20 22 90 20 3E 9C 27 5A 5A 5A 27 20 54 4F 20 51 | ". >.'ZZZ' TO Q|
00000B10: 55 49 54 20 46 55 4E 43 54 49 4F 4E 22 00 33 13 |UIT FUNCTION".3.|
00000B20: 02 3F 99 20 22 11 22 3B 3A 81 20 49 B2 31 20 A4 |.?. ".";:. I.1 .|
00000B30: 20 31 30 00 69 13 0C 3F 99 20 22 12 95 20 20 20 | 10.i..?. ".. |
00000B40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000B50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000B60: 20 20 20 20 20 22 3B 3A 82 00 A0 13 16 3F 99 20 | ";:.....?. |
00000B70: 22 12 91 91 91 91 91 91 91 91 91 45 4E 54 52 59 |"..........ENTRY|
00000B80: 20 4E 4F 3A 2D 22 3B 53 53 AA 31 3A 99 20 22 11 | NO:-";SS.1:. ".|
00000B90: 12 22 3B CA 28 41 24 28 30 2C 53 53 29 2C 32 29 |.";.(A$(0,SS),2)|
00000BA0: 00 D0 13 20 3F 99 20 22 11 12 22 3B 41 24 28 31 |... ?. "..";A$(1|
00000BB0: 2C 53 53 29 3A 99 20 22 11 12 22 3B 44 24 28 C5 |,SS):. "..";D$(.|
00000BC0: 28 C8 28 41 24 28 30 2C 53 53 29 2C 31 29 29 29 |(.(A$(0,SS),1)))|
00000BD0: 00 FC 13 2A 3F 51 31 24 B2 22 22 3A 85 22 11 11 |...*?Q1$."":."..|
00000BE0: 11 90 57 48 49 43 48 20 44 4F 20 59 4F 55 20 52 |..WHICH DO YOU R|
00000BF0: 45 51 55 49 52 45 3A 22 3B 51 31 24 00 15 14 34 |EQUIRE:";Q1$...4|
00000C00: 3F 8B 20 51 31 24 B3 B1 22 44 44 44 22 20 A7 20 |?. Q1$.."DDD" . |
00000C10: 31 36 32 31 30 00 4F 14 3E 3F 44 28 30 2C 54 45 |16210.O.>?D(0,TE|
00000C20: 4D 50 29 B2 44 28 30 2C 54 45 4D 50 29 AB 31 3A |MP).D(0,TEMP).1:|
00000C30: 81 20 49 B2 53 53 20 A4 20 49 54 AB 31 3A 41 24 |. I.SS . IT.1:A$|
00000C40: 28 30 2C 49 29 B2 41 24 28 30 2C 49 AA 31 29 00 |(0,I).A$(0,I.1).|
00000C50: 81 14 48 3F 41 24 28 31 2C 49 29 B2 41 24 28 31 |..H?A$(1,I).A$(1|
00000C60: 2C 49 AA 31 29 3A 82 20 49 3A 49 54 B2 49 54 AB |,I.1):. I:IT.IT.|
00000C70: 31 3A 8D 20 31 33 31 36 30 3A 89 20 31 36 30 34 |1:. 13160:. 1604|
00000C80: 30 00 95 14 52 3F 8B 20 51 31 24 B2 22 5A 5A 5A |0...R?. Q1$."ZZZ|
00000C90: 22 20 A7 20 8E 00 B4 14 5C 3F 8B 20 51 31 24 B2 |" . ....\?. Q1$.|
00000CA0: 22 22 20 A7 20 53 53 B2 53 53 AA 31 3A 89 20 31 |"" . SS.SS.1:. 1|
00000CB0: 36 30 34 30 00 CD 14 66 3F 53 53 B2 53 53 AA C5 |6040...f?SS.SS..|
00000CC0: 28 51 31 24 29 3A 89 20 31 36 30 34 30 00 D9 14 |(Q1$):. 16040...|
00000CD0: 70 3F 89 20 31 36 32 34 30 00 FD 14 68 42 8F 23 |p?. 16240...hB.#|
00000CE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000CF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 14 15 |*************...|
00000D00: 72 42 8F 20 52 41 4E 44 4F 4D 20 51 55 45 53 54 |rB. RANDOM QUEST|
00000D10: 49 4F 4E 53 00 38 15 7C 42 8F 2A 2A 2A 2A 2A 2A |IONS.8.|B.******|
00000D20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000D30: 2A 2A 2A 2A 2A 2A 2A 2A 00 41 15 86 42 51 55 B2 |********.A..BQU.|
00000D40: 30 00 64 15 90 42 99 20 22 93 11 1D 1D 1D 1D 1D |0.d..B. ".......|
00000D50: 1D 1D 1D 1D 1D 1D 1D 1D 1C 12 51 55 45 53 54 49 |..........QUESTI|
00000D60: 4F 4E 53 22 00 94 15 9A 42 99 20 22 11 11 1F 44 |ONS"....B. "...D|
00000D70: 4F 20 59 4F 55 20 57 49 53 48 20 41 4E 53 57 45 |O YOU WISH ANSWE|
00000D80: 52 53 20 54 4F 20 42 45 20 44 52 41 57 4E 20 4F |RS TO BE DRAWN O|
00000D90: 4E 4C 59 22 00 C9 15 A4 42 85 20 22 46 52 4F 4D |NLY"....B. "FROM|
00000DA0: 20 54 48 45 20 53 41 4D 45 20 51 55 45 53 54 49 | THE SAME QUESTI|
00000DB0: 4F 4E 20 54 59 50 45 20 28 59 2F 4E 29 3A 22 3B |ON TYPE (Y/N):";|
00000DC0: 51 24 3A 99 20 22 93 22 3B 00 DD 15 AE 42 8B 20 |Q$:. ".";....B. |
00000DD0: 51 24 B2 22 59 22 20 A7 20 51 55 B2 31 00 12 16 |Q$."Y" . QU.1...|
00000DE0: B8 42 50 31 B2 30 3A 50 32 B2 49 54 3A 51 31 B2 |.BP1.0:P2.IT:Q1.|
00000DF0: B5 28 BB 28 30 29 AC 49 54 AB 31 29 3A 51 32 B2 |.(.(0).IT.1):Q2.|
00000E00: B5 28 BB 28 30 29 AC 35 29 3A 51 28 51 32 29 B2 |.(.(0).5):Q(Q2).|
00000E10: 51 31 00 3F 16 C2 42 8B 20 51 55 B2 30 20 B0 20 |Q1.?..B. QU.0 . |
00000E20: 44 28 30 2C C5 28 C8 28 41 24 28 30 2C 51 31 29 |D(0,.(.(A$(0,Q1)|
00000E30: 2C 31 29 29 29 B3 35 20 A7 20 31 37 31 31 30 00 |,1))).5 . 17110.|
00000E40: 75 16 CC 42 50 31 B2 44 28 31 2C C5 28 C8 28 41 |u..BP1.D(1,.(.(A|
00000E50: 24 28 30 2C 51 31 29 2C 31 29 29 29 3A 50 32 B2 |$(0,Q1),1))):P2.|
00000E60: 44 28 30 2C C5 28 C8 28 41 24 28 30 2C 51 31 29 |D(0,.(.(A$(0,Q1)|
00000E70: 2C 31 29 29 29 00 92 16 D6 42 81 20 49 B2 30 20 |,1)))....B. I.0 |
00000E80: A4 20 34 3A 8B 20 49 B2 51 32 20 A7 20 31 37 31 |. 4:. I.Q2 . 171|
00000E90: 35 30 00 BA 16 E0 42 50 50 B2 50 31 AA B5 28 BB |50....BPP.P1..(.|
00000EA0: 28 30 29 AC 50 32 29 3A 8B 20 50 50 B2 51 28 51 |(0).P2):. PP.Q(Q|
00000EB0: 32 29 20 A7 20 31 37 31 32 30 00 D9 16 EA 42 81 |2) . 17120....B.|
00000EC0: 4A B2 30 20 A4 20 49 3A 8B 20 50 50 B2 51 28 4A |J.0 . I:. PP.Q(J|
00000ED0: 29 20 A7 20 31 37 31 32 30 00 E9 16 F4 42 82 20 |) . 17120....B. |
00000EE0: 4A 3A 51 28 49 29 B2 50 50 00 F1 16 FE 42 82 20 |J:Q(I).PP....B. |
00000EF0: 49 00 16 17 08 43 99 20 22 11 11 11 1F 22 3B 4E |I....C. "....";N|
00000F00: 41 24 28 31 29 3B 22 3A 1E 22 3B 41 24 28 31 2C |A$(1);":.";A$(1,|
00000F10: 51 28 51 32 29 29 00 31 17 12 43 99 20 22 11 11 |Q(Q2)).1..C. "..|
00000F20: 11 11 11 9C 22 3B 4E 41 24 28 30 29 3B 22 3A 95 |....";NA$(0);":.|
00000F30: 22 00 5D 17 1C 43 81 20 49 B2 30 20 A4 20 34 3A |".]..C. I.0 . 4:|
00000F40: 99 20 49 AA 31 3B 22 29 20 20 22 3B CA 28 41 24 |. I.1;") ";.(A$|
00000F50: 28 30 2C 51 28 49 29 29 2C 32 29 3A 82 00 8F 17 |(0,Q(I)),2):....|
00000F60: 26 43 99 20 22 11 1C 57 48 49 43 48 20 44 4F 20 |&C. "..WHICH DO |
00000F70: 59 4F 55 20 54 48 49 4E 4B 20 49 53 20 54 48 45 |YOU THINK IS THE|
00000F80: 20 52 49 47 48 54 20 41 4E 53 57 45 52 3F 22 00 | RIGHT ANSWER?".|
00000F90: B8 17 30 43 85 20 22 11 81 54 59 50 45 20 49 4E |..0C. "..TYPE IN|
00000FA0: 20 54 48 45 20 4E 55 4D 42 45 52 3A 22 3B 41 41 | THE NUMBER:";AA|
00000FB0: 3A 51 54 B2 51 54 AA 31 00 CE 17 3A 43 8B 20 41 |:QT.QT.1...:C. A|
00000FC0: 41 AB 31 B2 51 32 20 A7 20 31 37 32 35 30 00 F7 |A.1.Q2 . 17250..|
00000FD0: 17 44 43 99 20 22 11 90 57 52 4F 4E 47 21 20 54 |.DC. "..WRONG! T|
00000FE0: 48 45 20 43 4F 52 52 45 43 54 20 41 4E 53 57 45 |HE CORRECT ANSWE|
00000FF0: 52 20 57 41 53 3A 22 00 16 18 4E 43 99 20 CA 28 |R WAS:"...NC. .(|
00001000: 41 24 28 30 2C 51 28 51 32 29 29 2C 32 29 3A 89 |A$(0,Q(Q2)),2):.|
00001010: 20 31 37 32 37 30 00 24 18 58 43 97 20 35 33 32 | 17270.$.XC. 532|
00001020: 38 31 2C 30 00 5D 18 62 43 99 20 22 93 90 11 11 |81,0.].bC. "....|
00001030: 11 11 11 11 22 3A 81 20 49 B2 31 20 A4 20 31 31 |....":. I.1 . 11|
00001040: 3A 99 20 22 20 20 20 20 20 20 20 20 20 20 20 20 |:. " |
00001050: 20 20 20 20 52 49 47 48 54 21 22 3A 82 00 90 18 | RIGHT!":....|
00001060: 6C 43 81 20 49 B2 31 20 A4 20 31 35 3A 97 20 35 |lC. I.1 . 15:. 5|
00001070: 33 32 38 31 2C 49 3A 81 20 4A B2 31 20 A4 20 32 |3281,I:. J.1 . 2|
00001080: 30 30 3A 82 20 4A 2C 49 3A 52 52 B2 52 52 AA 31 |00:. J,I:RR.RR.1|
00001090: 00 D3 18 76 43 99 20 22 11 1F 12 52 45 54 55 52 |...vC. "...RETUR|
000010A0: 4E 92 20 46 4F 52 20 4E 45 57 20 51 55 45 53 54 |N. FOR NEW QUEST|
000010B0: 49 4F 4E 20 4F 52 20 27 5A 5A 5A 27 20 54 4F 20 |ION OR 'ZZZ' TO |
000010C0: 20 20 20 20 51 55 49 54 20 46 55 4E 43 54 49 4F | QUIT FUNCTIO|
000010D0: 4E 3A 22 00 F1 18 80 43 51 24 B2 22 22 3A 85 20 |N:"....CQ$."":. |
000010E0: 51 24 3A 8B 20 51 24 B2 22 5A 5A 5A 22 20 A7 20 |Q$:. Q$."ZZZ" . |
000010F0: 8E 00 04 19 8A 43 99 20 22 93 22 3B 3A 89 20 31 |.....C. ".";:. 1|
00001100: 37 30 38 30 00 28 19 50 46 8F 23 2A 2A 2A 2A 2A |7080.(.PF.#*****|
00001110: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001120: 2A 2A 2A 2A 2A 2A 2A 2A 00 34 19 5A 46 8F 20 53 |********.4.ZF. S|
00001130: 43 4F 52 45 00 58 19 64 46 8F 2A 2A 2A 2A 2A 2A |CORE.X.dF.******|
00001140: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001150: 2A 2A 2A 2A 2A 2A 2A 2A 00 84 19 6E 46 99 20 22 |********...nF. "|
00001160: 93 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001170: 1D 1C 12 53 43 4F 52 45 22 3A 8B 20 51 54 B2 30 |...SCORE":. QT.0|
00001180: 20 A7 20 8E 00 A3 19 78 46 99 20 22 11 11 1E 54 | . ....xF. "...T|
00001190: 4F 54 41 4C 20 51 55 45 53 54 49 4F 4E 53 3A 22 |OTAL QUESTIONS:"|
000011A0: 3B 51 54 00 C0 19 82 46 99 20 22 11 43 4F 52 52 |;QT....F. ".CORR|
000011B0: 45 43 54 20 41 4E 53 57 45 52 53 3A 22 3B 52 52 |ECT ANSWERS:";RR|
000011C0: 00 F0 19 8C 46 99 20 22 11 1F 53 43 4F 52 45 3A |....F. "..SCORE:|
000011D0: 22 3B B5 28 28 28 52 52 AB 51 54 AD 35 29 AD 28 |";.(((RR.QT.5).(|
000011E0: 51 54 AC 2E 38 29 29 AC 31 30 30 29 3B 22 25 22 |QT..8)).100);"%"|
000011F0: 00 1E 1A 96 46 85 20 22 11 90 44 4F 20 59 4F 55 |....F. "..DO YOU|
00001200: 20 57 49 53 48 20 54 4F 20 5A 45 52 4F 20 53 43 | WISH TO ZERO SC|
00001210: 4F 52 45 20 28 59 2F 4E 29 3A 22 3B 51 24 00 37 |ORE (Y/N):";Q$.7|
00001220: 1A A0 46 8B 20 51 24 B2 22 59 22 20 A7 20 51 54 |..F. Q$."Y" . QT|
00001230: B2 30 3A 52 52 B2 30 00 3D 1A AA 46 8E 00 61 1A |.0:RR.0.=..F..a.|
00001240: 38 4A 8F 23 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |8J.#************|
00001250: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001260: 2A 00 72 1A 42 4A 8F 20 44 41 54 41 20 46 49 4C |*.r.BJ. DATA FIL|
00001270: 45 53 00 96 1A 4C 4A 8F 2A 2A 2A 2A 2A 2A 2A 2A |ES...LJ.********|
00001280: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001290: 2A 2A 2A 2A 2A 2A 00 C8 1A 56 4A 99 20 22 11 1F |******...VJ. "..|
000012A0: 50 4F 53 49 54 49 4F 4E 20 54 41 50 45 20 43 4F |POSITION TAPE CO|
000012B0: 52 52 45 43 54 4C 59 20 54 48 45 4E 20 12 52 45 |RRECTLY THEN .RE|
000012C0: 54 55 52 4E 92 2D 2D 22 00 01 1B 60 4A 85 20 22 |TURN.--"...`J. "|
000012D0: 4D 4F 54 4F 52 20 57 49 4C 4C 20 53 54 4F 50 20 |MOTOR WILL STOP |
000012E0: 41 55 54 4F 4D 41 54 49 43 41 4C 4C 59 3A 22 3B |AUTOMATICALLY:";|
000012F0: 51 24 3A 97 20 31 39 32 2C 37 3A 97 20 31 2C 33 |Q$:. 192,7:. 1,3|
00001300: 39 00 42 1B 6A 4A 99 20 22 11 1C 43 4F 4D 4D 41 |9.B.jJ. "..COMMA|
00001310: 4E 44 53 20 41 56 41 49 4C 41 42 4C 45 3A 22 3A |NDS AVAILABLE:":|
00001320: 99 20 22 1E 20 31 29 53 41 56 45 20 44 41 54 41 |. ". 1)SAVE DATA|
00001330: 22 2C 2C 2C 22 20 32 29 4C 4F 41 44 20 44 41 54 |",,," 2)LOAD DAT|
00001340: 41 22 00 77 1B 74 4A 85 20 22 90 57 48 49 43 48 |A".w.tJ. ".WHICH|
00001350: 20 44 4F 20 59 4F 55 20 52 45 51 55 49 52 45 3A | DO YOU REQUIRE:|
00001360: 22 3B 51 3A 91 20 51 20 89 20 31 39 30 37 30 2C |";Q:. Q . 19070,|
00001370: 31 39 31 33 30 3A 8E 00 90 1B 7E 4A 97 20 31 2C |19130:....~J. 1,|
00001380: 37 3A 81 20 49 B2 31 20 A4 20 32 30 30 30 3A 82 |7:. I.1 . 2000:.|
00001390: 00 B0 1B 88 4A 9F 31 2C 31 2C 32 2C 22 4D 55 4C |....J.1,1,2,"MUL|
000013A0: 54 49 51 22 3A 98 31 2C 49 54 3B 52 24 3B 54 59 |TIQ":.1,IT;R$;TY|
000013B0: 00 E0 1B 92 4A 81 20 49 B2 30 20 A4 20 54 59 AB |....J. I.0 . TY.|
000013C0: 31 3A 98 31 2C 44 24 28 49 29 3B 52 24 3B 44 28 |1:.1,D$(I);R$;D(|
000013D0: 30 2C 49 29 3B 52 24 3B 44 28 31 2C 49 29 3A 82 |0,I);R$;D(1,I):.|
000013E0: 00 09 1C 9C 4A 81 20 49 B2 30 20 A4 20 49 54 AB |....J. I.0 . IT.|
000013F0: 31 3A 98 31 2C 41 24 28 30 2C 49 29 3B 52 24 3B |1:.1,A$(0,I);R$;|
00001400: 41 24 28 31 2C 49 29 3A 82 00 21 1C A6 4A 98 31 |A$(1,I):..!..J.1|
00001410: 2C 4E 41 24 28 30 29 3B 52 24 3B 4E 41 24 28 31 |,NA$(0);R$;NA$(1|
00001420: 29 00 2A 1C B0 4A A0 31 3A 8E 00 47 1C BA 4A 9F |).*..J.1:..G..J.|
00001430: 31 2C 31 2C 30 2C 22 4D 55 4C 54 49 51 22 3A 84 |1,1,0,"MULTIQ":.|
00001440: 31 2C 49 54 2C 54 59 00 71 1C C4 4A 81 20 49 B2 |1,IT,TY.q..J. I.|
00001450: 30 20 A4 20 54 59 AB 31 3A 84 31 2C 44 24 28 49 |0 . TY.1:.1,D$(I|
00001460: 29 2C 44 28 30 2C 49 29 2C 44 28 31 2C 49 29 3A |),D(0,I),D(1,I):|
00001470: 82 00 97 1C CE 4A 81 20 49 B2 30 20 A4 20 49 54 |.....J. I.0 . IT|
00001480: AB 31 3A 84 31 2C 41 24 28 30 2C 49 29 2C 41 24 |.1:.1,A$(0,I),A$|
00001490: 28 31 2C 49 29 3A 82 00 AC 1C D8 4A 84 31 2C 4E |(1,I):.....J.1,N|
000014A0: 41 24 28 30 29 2C 4E 41 24 28 31 29 00 B5 1C E2 |A$(0),NA$(1)....|
000014B0: 4A A0 31 3A 8E 00 00 00 |J.1:.... |
..$..*.#****************************./..
+. MENU.R..+.***************************
**.{..+. 53281,15:. "...............MULT
IQ"... +.".COMMANDS AVAILABLE:"...*+."..
1)INPUT NEW ITEMS".K.4+." 2)SEARCH/DELE
TE"...>+." 3)ENTER NEW TYPES"...H+." 4)G
ENERATE QUESTIONS".#.R+." 5)DISPLAY OR R
ESET SCORE".8.\+." 6)DATA FILES".M.F+."
7)INITIALISE".\.P+." 8)STOP"...Z+. "..WH
ICH DO YOU REQUIRE:";Z:. ".";.G..+. Z .
13000,16000,12100,17000,18000,19000,1200
0,11150:. 11000....+. ".................
..........CLASSROOM CLOSED":..!....#****
*************************.2.... INITIALI
SE.V....******************************..
....:. NA$(1),Q(4),A$(1,499),D$(9),D(1,9
):R$.G(13).I../. "..ARE YOU LOADING FROM
TAPE (Y/N):";Q$:. Q$."Y" . 11000..../.
"..............TEST STRUCTURE"..../. "..
NAME FOR ANSWER:";NA$(0).4.&/. "..NAME F
OR QUESTION:";NA$(1).K.0/. "..ARE THESE
CORRECT (Y/N):";Q$:. Q$."N" . 12050...:/
D$(0)."UNTYPED":TY.1...D/. "............
......TYPES".C.N/. "..INPUT 'ZZZ' TO QUI
T:"...X/. "..TYPES INPUT SO FAR:-";:. TY
.1 . . ".NONE"./.B/. TY..1 . . ".":. I.0
. TY.1:. ".";I.1;"- .";D$(I):..Y.L/. ".
.NEW TYPE:";Q$:. Q$."ZZZ" . 11000...V/.
"..IS THIS CORRECT (Y/N):";Q1$:. Q1$."N"
. 12100.H../. TY.10 . . "..NO MORE ROOM
":. I.1 . 2000:.:. 11000..../D$(TY).Q$:T
Y.TY.1:. 12100...H2.#*******************
**********.#.R2. INPUT OF NEW ITEMS.G..2
.******************************.~..2. ".
................NEW ITEMS":. "..'ZZZ' TO
QUIT"....2. IT..500 . . "..NO MORE ROOM
:FOR I=1 TO 2000:NEXT:RETURN....2. "..";
NA$(0);":";:. T1$:. T1$."ZZZ" . 13160...
.3. "..";NA$(1);":";:. T2$:. T2$."ZZZ" .
..3..3. TY.1 . T.0:. 13100.]..3. ".TYPE
:":. I.1 . TY:. I;D$(I.1):. I.|."3. "..W
HICH IS IT:";T:T.T.1...,3. "............
....NEW ITEMS".P.63. "...";NA$(0);".";T1
$:. "...";NA$(1);".";T2$...@3. "...TYPE.
";D$(T):. "..ARE THESE CORRECT (Y/N):";Q
$...J3. Q$.."Y" . 13000.C.T3D(0,T).D(0,T
).1:T1$.G(48.T).T1$.^.^3. 14000:. 15020:
.13000...H3SU.0:. I.0 . 9:D(1,I).SU:SU.S
U.D(0,I):.:.....6.#*********************
********.D..6. BINARY SEARCH...D6.******
************************...N6. IT.0 . SS
.0:....X6PO..(.(IT)..(2)):SS.2.PO.1....6
. I.PO . 0 ..1.M..6. A$(0,SS).T1$ . SS.S
S.2.I.L..6. A$(0,SS).T1$ . SS.SS.2.I.~..
7. SS.0 . SS.0....7. SS.IT.1 . SS.IT.1..
..7. I:. A$(0,SS).T1$ . SS.SS.1....7....
.:.#*****************************....:.
INSERT....:.****************************
**.%..:. IT.0 . 15060.<..:. I.IT . SS.1
. .1.B.J:. J.0 . 1:A$(J,I).A$(J,I.1):. J
,I...T:A$(0,SS).T1$:A$(1,SS).T2$:IT.IT.1
:.....>.#*****************************.G
..>. USER SEARCH/DELETE....>.***********
*******************....>SS.0....>. "....
............SEARCH".+..>. SS.IT.1 . SS.I
T.1.=..>. SS.0 . SS.0.L.F>. "...........
................ITEMS=";IT.1...P>. "..CO
MMANDS AVAILABLE:"...Z>. ".. >..RETURN.
FOR NEXT ITEM".Y..>. ". >.POS/NEG NUMBER
TO MOVE POINTER"....>. ". >.'DDD' TO DE
LETE ITEM"....>. ". >.'ZZZ' TO QUIT FUNC
TION".3..?. ".";:. I.1 . 10.I..?. "..
";:
.. ..?. "..........ENTRY NO:-";SS.1:. ".
.";J(A$(0,SS),2).P. ?. "..";A$(1,SS):. "
..";D$(E(H(A$(0,SS),1)))...*?Q1$."":."..
..WHICH DO YOU REQUIRE:";Q1$...4?. Q1$..
"DDD" . 16210.O.>?D(0,TEMP).D(0,TEMP).1:
. I.SS . IT.1:A$(0,I).A$(0,I.1)...H?A$(1
,I).A$(1,I.1):. I:IT.IT.1:. 13160:. 1604
0...R?. Q1$."ZZZ" . ....\?. Q1$."" . SS.
SS.1:. 16040.M.F?SS.SS.E(Q1$):. 16040.Y.
P?. 16240...HB.#************************
*****...RB. RANDOM QUESTIONS.8.|B.******
************************.A..BQU.0.D..B.
".................QUESTIONS"....B. "...D
O YOU WISH ANSWERS TO BE DRAWN ONLY".I..
B. "FROM THE SAME QUESTION TYPE (Y/N):";
Q$:. ".";....B. Q$."Y" . QU.1....BP1.0:P
2.IT:Q1..(.(0).IT.1):Q2..(.(0).5):Q(Q2).
Q1.?.BB. QU.0 . D(0,E(H(A$(0,Q1),1))).5
. 17110.U.LBP1.D(1,E(H(A$(0,Q1),1))):P2.
D(0,E(H(A$(0,Q1),1)))...VB. I.0 . 4:. I.
Q2 . 17150....BPP.P1..(.(0).P2):. PP.Q(Q
2) . 17120.Y..B.J.0 . I:. PP.Q(J) . 1712
0....B. J:Q(I).PP....B. I....C. "....";N
A$(1);":.";A$(1,Q(Q2)).1..C. "......";NA
$(0);":.".]..C. I.0 . 4:. I.1;") ";J(A$
(0,Q(I)),2):....&C. "..WHICH DO YOU THIN
K IS THE RIGHT ANSWER?"...0C. "..TYPE IN
THE NUMBER:";AA:QT.QT.1.N.:C. AA.1.Q2 .
17250...DC. "..WRONG! THE CORRECT ANSWE
R WAS:"...NC. J(A$(0,Q(Q2)),2):. 17270.$
.XC. 53281,0.].BC. "........":. I.1 . 11
:. " RIGHT!":....LC. I.1
. 15:. 53281,I:. J.1 . 200:. J,I:RR.RR.1
.S.VC. "...RETURN. FOR NEW QUESTION OR '
ZZZ' TO QUIT FUNCTION:"....CQ$."":.
Q$:. Q$."ZZZ" . .....C. ".";:. 17080.(.P
F.#*****************************.4.ZF. S
CORE.X.DF.******************************
...NF. "...................SCORE":. QT.0
. ....XF. "...TOTAL QUESTIONS:";QT....F
. ".CORRECT ANSWERS:";RR....F. "..SCORE:
";.(((RR.QT.5).(QT..8)).100);"%"....F. "
..DO YOU WISH TO ZERO SCORE (Y/N):";Q$.7
. F. Q$."Y" . QT.0:RR.0.=..F..A.8J.#****
*************************.R.BJ. DATA FIL
ES...LJ.******************************.H
.VJ. "..POSITION TAPE CORRECTLY THEN .RE
TURN.--"...`J. "MOTOR WILL STOP AUTOMATI
CALLY:";Q$:. 192,7:. 1,39.B.JJ. "..COMMA
NDS AVAILABLE:":. ". 1)SAVE DATA",,," 2)
LOAD DATA".W.TJ. ".WHICH DO YOU REQUIRE:
";Q:. Q . 19070,19130:....~J. 1,7:. I.1
. 2000:.....J.1,1,2,"MULTIQ":.1,IT;R$;TY
....J. I.0 . TY.1:.1,D$(I);R$;D(0,I);R$;
D(1,I):.....J. I.0 . IT.1:.1,A$(0,I);R$;
A$(1,I):..!..J.1,NA$(0);R$;NA$(1).*..J 1
:..G..J.1,1,0,"MULTIQ":.1,IT,TY.Q.DJ. I.
0 . TY.1:.1,D$(I),D(0,I),D(1,I):....NJ.
I.0 . IT.1:.1,A$(0,I),A$(1,I):....XJ.1,N
A$(0),NA$(1)....J 1:....
> CLICK IMAGE PREVIEW FOR FULL MODAL