SUBPROGRAM XX/4
FILE INFORMATION
FILENAME(S): SUBPROGRAM XX/4
FILE TYPE(S): PRG
FILE SIZE: 4.2K
FIRST SEEN: 2025-11-30 21:22:20
APPEARS ON: 1 disk(s)
FILE HASH
696e67da21dc23a4fcac6335e0e87320548d6bc45d9f92d0023fb9627d76d267
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| NERO SOFT 162B | SUBPROGRAM XX/4 | PRG | DuncanTwain | 22 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2F 08 02 00 97 34 35 2C C2 28 31 37 34 29 |../....45,.(174)|
00000010: 3A 97 34 36 2C C2 28 31 37 35 29 3A 97 34 37 2C |:.46,.(175):.47,|
00000020: C2 28 34 35 29 3A 97 34 38 2C C2 28 34 36 29 00 |.(45):.48,.(46).|
00000030: 56 08 03 00 97 34 39 2C C2 28 34 35 29 3A 97 35 |V....49,.(45):.5|
00000040: 30 2C C2 28 34 36 29 3A 97 35 35 2C 32 35 35 3A |0,.(46):.55,255:|
00000050: 97 35 36 2C 36 33 00 7C 08 0B 00 97 35 31 2C C2 |.56,63.|....51,.|
00000060: 28 35 35 29 3A 97 35 32 2C C2 28 35 36 29 3A 97 |(55):.52,.(56):.|
00000070: 38 36 39 2C 34 3A 97 38 37 30 2C 30 00 C8 08 19 |869,4:.870,0....|
00000080: 00 9E 31 39 33 32 38 3A 4E 53 B2 31 33 3A 52 52 |..19328:NS.13:RR|
00000090: 25 B2 36 3A 4E 51 B2 31 3A 26 52 45 3A 86 4C 24 |%.6:NQ.1:&RE:.L$|
000000A0: 28 31 30 30 29 2C 49 58 24 28 31 30 29 3A 57 52 |(100),IX$(10):WR|
000000B0: B2 30 3A 52 4E B2 30 3A 4A B2 30 3A 52 B2 30 3A |.0:RN.0:J.0:R.0:|
000000C0: 52 52 B2 30 3A 58 B2 30 00 0A 09 32 00 4C 31 B2 |RR.0:X.0...2.L1.|
000000D0: C2 28 38 37 31 29 3A 4E 31 24 B2 22 22 3A 81 49 |.(871):N1$."":.I|
000000E0: B2 31 A4 4C 31 3A 4E 31 24 B2 4E 31 24 AA C7 28 |.1.L1:N1$.N1$..(|
000000F0: C2 28 49 AA 38 37 31 29 29 3A 82 3A 4E 46 24 B2 |.(I.871)):.:NF$.|
00000100: 22 53 52 46 2D 22 AA 4E 31 24 00 20 09 64 00 4B |"SRF-".N1$. .d.K|
00000110: B2 30 3A 8D 20 34 30 31 30 3A 8D 20 35 30 31 30 |.0:. 4010:. 5010|
00000120: 00 5D 09 65 00 26 53 50 2C 32 32 30 3A 26 43 4F |.].e.&SP,220:&CO|
00000130: 2C 35 3A 26 44 45 2C 31 2C 31 2C 34 30 2C 31 35 |,5:&DE,1,1,40,15|
00000140: 3A 26 46 49 3A 26 43 4F 2C 36 39 3A 26 44 45 2C |:&FI:&CO,69:&DE,|
00000150: 32 2C 32 2C 33 39 2C 31 34 3A 26 46 49 00 A1 09 |2,2,39,14:&FI...|
00000160: 67 00 26 43 4F 2C 32 37 3A 26 44 45 2C 32 2C 32 |g.&CO,27:&DE,2,2|
00000170: 2C 33 39 2C 31 34 3A 26 46 49 3A 26 53 59 2C 31 |,39,14:&FI:&SY,1|
00000180: 3A 26 43 4F 2C 31 36 30 3A 26 44 45 2C 32 2C 32 |:&CO,160:&DE,2,2|
00000190: 2C 33 39 2C 33 3A 26 46 49 3A 26 50 43 2C 33 2C |,39,3:&FI:&PC,3,|
000001A0: 32 00 D0 09 68 00 26 54 58 2C 22 31 2D CD 45 41 |2...h.&TX,"1-.EA|
000001B0: 54 2F D0 4F 55 4C 54 52 59 20 20 20 32 2D C6 52 |T/.OULTRY 2-.R|
000001C0: 55 49 54 53 2F D6 45 47 45 54 41 42 4C 45 53 22 |UITS/.EGETABLES"|
000001D0: 00 0F 0A 69 00 26 50 43 2C 33 2C 33 3A 26 54 58 |...i.&PC,3,3:&TX|
000001E0: 2C 22 33 2D C4 41 49 52 59 20 D0 52 4F 44 55 43 |,"3-.AIRY .RODUC|
000001F0: 54 53 20 20 20 20 20 20 34 2D C7 52 41 49 4E 53 |TS 4-.RAINS|
00000200: 2F D0 41 53 54 41 22 3A 26 53 50 2C 32 35 35 00 |/.ASTA":&SP,255.|
00000210: 32 0A 6A 00 26 43 4F 2C 36 3A 26 44 45 2C 32 2C |2.j.&CO,6:&DE,2,|
00000220: 34 2C 33 39 2C 34 3A 26 49 4E 3A 26 46 49 3A 26 |4,39,4:&IN:&FI:&|
00000230: 4E 4F 00 52 0A 78 00 8B 20 52 4E 20 B2 20 30 20 |NO.R.x.. RN . 0 |
00000240: A7 20 4A 20 B2 20 4A 20 AA 20 31 3A 20 89 20 31 |. J . J . 1: . 1|
00000250: 35 30 00 7F 0A 8C 00 4A 20 B2 20 20 B5 20 28 4E |50.....J . . (N|
00000260: 53 20 AC 20 20 BB 20 28 31 29 20 AA 20 31 29 3A |S . . (1) . 1):|
00000270: 20 8B 20 4A 20 B2 20 4A 31 20 A7 20 31 34 30 00 | . J . J1 . 140.|
00000280: A0 0A 96 00 4A 31 20 B2 20 4A 3A 20 8B 20 4A 20 |....J1 . J: . J |
00000290: B1 20 20 B2 20 4E 53 20 A7 20 52 4E 20 B2 20 31 |. . NS . RN . 1|
000002A0: 00 EB 0A A0 00 91 20 4A 20 8D 20 31 30 31 30 2C |...... J . 1010,|
000002B0: 31 31 31 30 2C 31 32 31 30 2C 31 33 31 30 2C 31 |1110,1210,1310,1|
000002C0: 34 31 30 2C 31 35 31 30 2C 31 36 31 30 2C 31 37 |410,1510,1610,17|
000002D0: 31 30 2C 31 38 31 30 2C 31 39 31 30 2C 32 30 31 |10,1810,1910,201|
000002E0: 30 2C 32 31 31 30 2C 32 32 31 30 00 2B 0B D7 00 |0,2110,2210.+...|
000002F0: 26 53 59 2C 32 3A 26 50 43 2C 32 30 AB C3 28 4C |&SY,2:&PC,20..(L|
00000300: 24 28 32 29 29 2C 36 3A 26 54 58 2C 4C 24 28 32 |$(2)),6:&TX,L$(2|
00000310: 29 3A 26 43 4F 2C 31 37 31 3A 26 44 45 2C 31 39 |):&CO,171:&DE,19|
00000320: 2C 38 2C 32 32 2C 39 3A 26 46 49 00 61 0B 02 01 |,8,22,9:&FI.a...|
00000330: 26 50 43 2C 31 39 2C 31 30 3A 26 53 59 2C 32 3A |&PC,19,10:&SY,2:|
00000340: 4C 24 B2 22 32 22 3A 26 45 4E 2C 4C 24 2C 31 2C |L$."2":&EN,L$,1,|
00000350: 54 25 2C 41 4C 25 3A 8B 41 4C 25 B2 30 A7 32 35 |T%,AL%:.AL%.0.25|
00000360: 38 00 89 0B 07 01 26 53 59 2C 31 3A 4C 24 20 B2 |8.....&SY,1:L$ .|
00000370: 20 20 C8 20 28 4C 24 2C 41 4C 25 29 3A 8B C6 28 | . (L$,AL%):..(|
00000380: 4C 24 29 B2 33 A7 32 37 32 00 A8 0B 08 01 8B 28 |L$).3.272......(|
00000390: 28 4C 24 B3 B1 22 31 22 29 AF 28 4C 24 B3 B1 22 |(L$.."1").(L$.."|
000003A0: 32 22 29 29 A7 32 36 36 00 B1 0B 09 01 89 32 38 |2")).266......28|
000003B0: 30 00 EB 0B 0A 01 8B 28 28 4C 24 B3 B1 22 33 22 |0......((L$.."3"|
000003C0: 29 AF 28 4C 24 B3 B1 22 34 22 29 29 A7 3A 26 50 |).(L$.."4")).:&P|
000003D0: 43 2C 31 39 2C 31 30 3A 26 53 59 2C 32 3A 26 54 |C,19,10:&SY,2:&T|
000003E0: 58 2C 22 20 20 22 3A 89 32 35 38 00 F5 0B 0C 01 |X," ":.258.....|
000003F0: 89 20 32 38 30 00 2A 0C 10 01 26 52 45 3A 26 53 |. 280.*...&RE:&S|
00000400: 59 2C 32 3A 26 50 43 2C 39 2C 35 3A 26 54 58 2C |Y,2:&PC,9,5:&TX,|
00000410: 22 C2 59 45 22 3A 9E 31 39 33 34 31 3A 93 22 48 |".YE":.19341:."H|
00000420: 45 4C 4C 4F 48 49 31 22 2C 38 00 4E 0C 18 01 8B |ELLOHI1",8.N....|
00000430: 20 4C 24 20 B2 20 4C 24 28 31 29 20 A7 20 41 58 | L$ . L$(1) . AX|
00000440: 24 20 B2 20 22 59 45 53 22 3A 89 32 38 32 00 64 |$ . "YES":.282.d|
00000450: 0C 19 01 41 58 24 20 B2 20 22 4E 4F 22 3A 20 89 |...AX$ . "NO": .|
00000460: 20 32 39 30 00 A5 0C 1A 01 26 20 53 59 2C 32 3A | 290.....& SY,2:|
00000470: 26 50 43 2C 31 36 2C 31 33 3A 26 54 58 2C 22 C7 |&PC,16,13:&TX,".|
00000480: 4F 4F 44 22 3A 81 49 B2 31 36 30 A4 34 38 A9 AB |OOD":.I.160.48..|
00000490: 38 3A 26 54 4E 2C 49 2C 31 3A 82 3A 26 50 43 2C |8:&TN,I,1:.:&PC,|
000004A0: 31 36 2C 31 33 00 BC 0C 1D 01 26 54 58 2C 22 20 |16,13.....&TX," |
000004B0: 20 20 20 20 20 22 3A 89 20 33 30 35 00 DC 0C 22 | ":. 305..."|
000004C0: 01 81 20 49 20 B2 20 31 20 A4 20 35 3A 20 26 20 |.. I . 1 . 5: & |
000004D0: 54 4E 2C 32 35 35 2C 31 30 3A 20 82 00 22 0D 24 |TN,255,10: ..".$|
000004E0: 01 26 53 59 2C 32 3A 26 43 4F 2C 31 34 34 3A 26 |.&SY,2:&CO,144:&|
000004F0: 44 45 2C 31 39 2C 31 33 2C 32 30 2C 31 34 3A 26 |DE,19,13,20,14:&|
00000500: 46 49 3A 81 49 B2 31 A4 31 30 3A 26 4E 4F 3A 26 |FI:.I.1.10:&NO:&|
00000510: 50 43 2C 31 39 2C 31 33 3A 26 54 58 2C 4C 24 28 |PC,19,13:&TX,L$(|
00000520: 31 29 00 56 0D 25 01 8D 20 33 39 39 3A 26 49 4E |1).V.%.. 399:&IN|
00000530: 3A 26 50 43 2C 31 39 2C 31 33 3A 26 54 58 2C 4C |:&PC,19,13:&TX,L|
00000540: 24 28 31 29 3A 8D 33 39 39 3A 82 3A 26 4E 4F 3A |$(1):.399:.:&NO:|
00000550: 97 31 39 38 2C 30 00 6A 0D 28 01 A1 20 52 24 3A |.198,0.j.(.. R$:|
00000560: 8B 52 24 B2 22 22 A7 32 39 36 00 7D 0D 29 01 8B |.R$."".296.}.)..|
00000570: C6 28 52 24 29 B3 B1 31 33 A7 32 39 36 00 CD 0D |.(R$)..13.296...|
00000580: 2A 01 26 50 43 2C 31 39 2C 31 33 3A 26 54 58 2C |*.&PC,19,13:&TX,|
00000590: 22 20 20 20 20 20 22 3A 26 43 4F 2C 31 31 3A 26 |" ":&CO,11:&|
000005A0: 44 45 2C 31 39 2C 31 33 2C 32 30 2C 31 34 3A 26 |DE,19,13,20,14:&|
000005B0: 46 49 3A 26 43 4F 2C 32 37 3A 26 44 45 2C 31 39 |FI:&CO,27:&DE,19|
000005C0: 2C 31 33 2C 32 30 2C 31 34 3A 26 46 49 00 00 0E |,13,20,14:&FI...|
000005D0: 31 01 8B 20 28 41 58 24 20 B2 20 22 59 45 53 22 |1.. (AX$ . "YES"|
000005E0: 29 20 A7 20 52 20 B2 20 52 20 AA 20 31 3A 52 52 |) . R . R . 1:RR|
000005F0: 20 B2 20 52 52 20 AA 20 31 3A 57 52 20 B2 20 30 | . RR . 1:WR . 0|
00000600: 00 36 0E 36 01 8B 20 28 41 58 24 20 B3 20 20 B1 |.6.6.. (AX$ . .|
00000610: 20 22 59 45 53 22 29 20 A7 20 57 20 B2 20 57 20 | "YES") . W . W |
00000620: AA 20 31 3A 57 52 20 B2 20 57 52 20 AA 20 31 3A |. 1:WR . WR . 1:|
00000630: 52 52 20 B2 20 30 00 41 0E 40 01 8D 20 35 30 31 |RR . 0.A.@.. 501|
00000640: 30 00 71 0E 4A 01 8B 20 52 52 B1 B2 52 52 25 A7 |0.q.J.. RR..RR%.|
00000650: 41 32 20 B2 37 3A 97 38 37 30 2C 41 32 3A 97 38 |A2 .7:.870,A2:.8|
00000660: 38 39 2C 57 3A 97 39 30 34 2C 52 3A 89 36 30 30 |89,W:.904,R:.600|
00000670: 30 00 AC 0E 54 01 8B 20 28 57 52 B1 20 B2 35 29 |0...T.. (WR. .5)|
00000680: B0 28 57 B1 20 B2 31 38 29 A7 41 32 20 B2 35 3A |.(W. .18).A2 .5:|
00000690: 97 38 37 30 2C 41 32 3A 9E 31 39 33 34 31 3A 93 |.870,A2:.19341:.|
000006A0: 22 48 45 4C 4C 4F 48 49 31 22 2C 38 00 F2 0E 59 |"HELLOHI1",8...Y|
000006B0: 01 81 49 B2 30 A4 31 30 3A 26 50 43 2C 31 2C 34 |..I.0.10:&PC,1,4|
000006C0: AA 49 3A 26 54 58 2C 22 20 20 20 20 20 20 20 20 |.I:&TX," |
000006D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
000006F0: 3A 82 00 FC 0E 72 01 89 20 31 32 30 00 02 0F 8F |:....r.. 120....|
00000700: 01 8E 00 12 0F F2 03 4C 24 28 31 29 20 B2 20 22 |.......L$(1) . "|
00000710: 34 22 00 2A 0F FC 03 4C 24 28 32 29 20 B2 20 22 |4".*...L$(2) . "|
00000720: D3 50 41 47 48 45 54 54 49 22 00 30 0F 42 04 8E |.PAGHETTI".0.B..|
00000730: 00 40 0F 56 04 4C 24 28 31 29 20 B2 20 22 32 22 |.@.V.L$(1) . "2"|
00000740: 00 56 0F 60 04 4C 24 28 32 29 20 B2 20 22 C3 41 |.V.`.L$(2) . ".A|
00000750: 52 52 4F 54 53 22 00 5C 0F A6 04 8E 00 6C 0F BA |RROTS".\.....l..|
00000760: 04 4C 24 28 31 29 20 B2 20 22 31 22 00 82 0F C4 |.L$(1) . "1"....|
00000770: 04 4C 24 28 32 29 20 B2 20 22 C3 48 49 43 4B 45 |.L$(2) . ".HICKE|
00000780: 4E 22 00 88 0F 0A 05 8E 00 98 0F 1E 05 4C 24 28 |N"...........L$(|
00000790: 31 29 20 B2 20 22 31 22 00 AA 0F 28 05 4C 24 28 |1) . "1"...(.L$(|
000007A0: 32 29 20 B2 20 22 C8 41 4D 22 00 B0 0F 6E 05 8E |2) . ".AM"...n..|
000007B0: 00 C0 0F 82 05 4C 24 28 31 29 20 B2 20 22 34 22 |.....L$(1) . "4"|
000007C0: 00 D4 0F 8C 05 4C 24 28 32 29 20 B2 20 22 C2 52 |.....L$(2) . ".R|
000007D0: 45 41 44 22 00 DA 0F D2 05 8E 00 EA 0F E6 05 4C |EAD"...........L|
000007E0: 24 28 31 29 20 B2 20 22 32 22 00 00 10 F0 05 4C |$(1) . "2".....L|
000007F0: 24 28 32 29 20 B2 20 22 D3 50 49 4E 41 43 48 22 |$(2) . ".PINACH"|
00000800: 00 06 10 36 06 8E 00 16 10 4A 06 4C 24 28 31 29 |...6.....J.L$(1)|
00000810: 20 B2 20 22 32 22 00 2C 10 54 06 4C 24 28 32 29 | . "2".,.T.L$(2)|
00000820: 20 B2 20 22 D0 45 41 43 48 45 53 22 00 32 10 9A | . ".EACHES".2..|
00000830: 06 8E 00 42 10 AE 06 4C 24 28 31 29 20 B2 20 22 |...B...L$(1) . "|
00000840: 33 22 00 55 10 B8 06 4C 24 28 32 29 20 B2 20 22 |3".U...L$(2) . "|
00000850: CD 49 4C 4B 22 00 5B 10 FE 06 8E 00 6B 10 12 07 |.ILK".[.....k...|
00000860: 4C 24 28 31 29 20 B2 20 22 33 22 00 80 10 1C 07 |L$(1) . "3".....|
00000870: 4C 24 28 32 29 20 B2 20 22 C3 48 45 45 53 45 22 |L$(2) . ".HEESE"|
00000880: 00 86 10 62 07 8E 00 94 10 76 07 4C 24 28 31 29 |...b.....v.L$(1)|
00000890: B2 22 31 22 00 A6 10 80 07 4C 24 28 32 29 B2 22 |."1".....L$(2)."|
000008A0: D3 54 45 41 4B 22 00 AC 10 C6 07 8E 00 BA 10 DA |.TEAK"..........|
000008B0: 07 4C 24 28 31 29 B2 22 33 22 00 CD 10 E4 07 4C |.L$(1)."3".....L|
000008C0: 24 28 32 29 B2 22 C2 55 54 54 45 52 22 00 D3 10 |$(2).".UTTER"...|
000008D0: 2A 08 8E 00 E1 10 3E 08 4C 24 28 31 29 B2 22 34 |*.....>.L$(1)."4|
000008E0: 22 00 F4 10 48 08 4C 24 28 32 29 B2 22 C3 45 52 |"...H.L$(2).".ER|
000008F0: 45 41 4C 22 00 FA 10 8E 08 8E 00 08 11 A2 08 4C |EAL"...........L|
00000900: 24 28 31 29 B2 22 31 22 00 1C 11 AC 08 4C 24 28 |$(1)."1".....L$(|
00000910: 32 29 B2 22 D3 41 55 53 41 47 45 22 00 22 11 F2 |2).".AUSAGE"."..|
00000920: 08 8E 00 57 11 AA 0F 26 53 50 2C 32 32 30 3A 26 |...W...&SP,220:&|
00000930: 53 59 2C 31 3A 26 43 4F 2C 31 36 3A 26 44 45 2C |SY,1:&CO,16:&DE,|
00000940: 31 2C 32 31 2C 34 30 2C 32 34 3A 26 46 49 3A 26 |1,21,40,24:&FI:&|
00000950: 50 43 2C 31 2C 32 31 00 7B 11 B8 0F 26 54 58 2C |PC,1,21.{...&TX,|
00000960: 22 D2 45 41 44 20 54 48 45 20 43 4C 41 53 53 45 |".EAD THE CLASSE|
00000970: 53 20 28 31 20 2D 20 34 29 2E 22 00 AB 11 BA 0F |S (1 - 4).".....|
00000980: 26 50 43 2C 31 2C 32 32 3A 26 54 58 2C 22 D4 59 |&PC,1,22:&TX,".Y|
00000990: 50 45 20 54 48 45 20 4E 55 4D 42 45 52 20 4F 46 |PE THE NUMBER OF|
000009A0: 20 54 48 45 20 43 4C 41 53 53 22 00 DA 11 BB 0F | THE CLASS".....|
000009B0: 26 50 43 2C 31 2C 32 33 3A 26 54 58 2C 22 54 4F |&PC,1,23:&TX,"TO|
000009C0: 20 57 48 49 43 48 20 45 41 43 48 20 49 54 45 4D | WHICH EACH ITEM|
000009D0: 20 42 45 4C 4F 4E 47 53 2E 22 00 26 12 BF 0F 26 | BELONGS.".&...&|
000009E0: 43 4F 2C 31 36 30 3A 26 44 45 2C 31 2C 32 35 2C |CO,160:&DE,1,25,|
000009F0: 34 30 2C 32 35 3A 26 46 49 3A 26 50 43 2C 31 31 |40,25:&FI:&PC,11|
00000A00: 2C 32 35 3A 26 54 58 2C 22 C8 49 54 20 D2 C5 D4 |,25:&TX,".IT ...|
00000A10: D5 D2 CE 20 54 4F 20 47 4F 20 4F 4E 2E 22 3A 26 |... TO GO ON.":&|
00000A20: 53 50 2C 32 35 35 00 2C 12 24 13 8E 00 52 12 92 |SP,255.,.$...R..|
00000A30: 13 3A 26 53 59 2C 31 3A 26 43 4F 2C 31 36 30 3A |.:&SY,1:&CO,160:|
00000A40: 26 44 45 2C 31 2C 31 38 2C 34 30 2C 32 30 3A 26 |&DE,1,18,40,20:&|
00000A50: 46 49 00 9D 12 93 13 3A 26 50 43 2C 31 2C 31 39 |FI.....:&PC,1,19|
00000A60: 3A 26 54 58 2C 22 C7 4F 41 4C 20 3D 20 36 20 52 |:&TX,".OAL = 6 R|
00000A70: 49 47 48 54 20 49 4E 20 41 20 52 4F 57 2E 20 20 |IGHT IN A ROW. |
00000A80: D9 4F 55 20 48 41 56 45 22 3A 26 53 59 2C 32 3A |.OU HAVE":&SY,2:|
00000A90: 26 49 4E 3A 26 50 43 2C 33 37 2C 31 38 00 AE 12 |&IN:&PC,37,18...|
00000AA0: 9C 13 52 52 24 B2 C7 28 52 52 AA 34 38 29 00 D7 |..RR$..(RR.48)..|
00000AB0: 12 A6 13 3A 26 54 58 2C 22 20 22 3A 26 50 43 2C |...:&TX," ":&PC,|
00000AC0: 33 37 2C 31 39 3A 26 54 58 2C 52 52 24 3A 26 4E |37,19:&TX,RR$:&N|
00000AD0: 4F 3A 26 53 59 2C 31 00 DD 12 E2 13 8E 00 E6 12 |O:&SY,1.........|
00000AE0: 70 17 26 20 52 45 00 23 13 72 17 26 43 4F 2C 31 |p.& RE.#.r.&CO,1|
00000AF0: 36 3A 26 44 45 2C 31 2C 31 2C 34 30 2C 31 32 3A |6:&DE,1,1,40,12:|
00000B00: 26 46 49 3A 26 53 59 2C 32 3A 26 50 43 2C 32 2C |&FI:&SY,2:&PC,2,|
00000B10: 39 3A 26 54 58 2C 22 D9 4F 55 20 C4 45 53 45 52 |9:&TX,".OU .ESER|
00000B20: 56 45 22 00 47 13 74 17 81 20 4B 20 B2 20 31 20 |VE".G.t.. K . 1 |
00000B30: A4 20 31 33 3A 20 43 43 20 B2 20 32 32 34 20 AB |. 13: CC . 224 .|
00000B40: 20 28 31 36 AC 4B 29 00 84 13 76 17 26 43 4F 2C | (16.K)...v.&CO,|
00000B50: 43 43 3A 26 44 45 2C 31 2C 31 33 2C 34 30 2C 31 |CC:&DE,1,13,40,1|
00000B60: 35 3A 26 46 49 3A 26 50 43 2C 34 2C 31 34 3A 26 |5:&FI:&PC,4,14:&|
00000B70: 54 58 2C 22 41 20 CD 59 53 54 45 52 59 20 D4 55 |TX,"A .YSTERY .U|
00000B80: 4E 45 2E 22 00 8C 13 78 17 82 20 4B 00 D5 13 7A |NE."...x.. K...z|
00000B90: 17 26 43 4F 2C 31 36 3A 26 44 45 2C 31 2C 31 37 |.&CO,16:&DE,1,17|
00000BA0: 2C 34 30 2C 32 34 3A 26 46 49 3A 26 53 59 2C 31 |,40,24:&FI:&SY,1|
00000BB0: 3A 26 50 43 2C 31 2C 32 33 3A 26 54 58 2C 22 D0 |:&PC,1,23:&TX,".|
00000BC0: 52 45 53 53 20 20 57 20 20 54 4F 20 48 45 41 52 |RESS W TO HEAR|
00000BD0: 20 49 54 2E 22 00 23 14 7C 17 26 43 4F 2C 31 36 | IT.".#.|.&CO,16|
00000BE0: 30 3A 26 44 45 2C 31 2C 32 35 2C 34 30 2C 32 35 |0:&DE,1,25,40,25|
00000BF0: 3A 26 46 49 3A 26 50 43 2C 31 2C 32 35 3A 26 54 |:&FI:&PC,1,25:&T|
00000C00: 58 2C 22 CF 54 48 45 52 57 49 53 45 2C 20 48 49 |X,".THERWISE, HI|
00000C10: 54 20 D2 C5 D4 D5 D2 CE 20 54 4F 20 47 4F 20 4F |T ...... TO GO O|
00000C20: 4E 2E 22 00 2F 14 7E 17 97 20 31 39 38 2C 30 00 |N."./.~.. 198,0.|
00000C30: 49 14 80 17 A1 20 52 24 3A 20 8B 20 52 24 20 B2 |I.... R$: . R$ .|
00000C40: 22 22 20 A7 20 36 30 31 36 00 62 14 82 17 8B 20 |"" . 6016.b.... |
00000C50: C6 28 52 24 29 20 B3 B1 20 31 33 20 A7 20 36 30 |.(R$) .. 13 . 60|
00000C60: 32 30 00 6D 14 83 17 89 20 36 30 35 30 00 7D 14 |20.m.... 6050.}.|
00000C70: 84 17 81 20 49 20 B2 20 31 20 A4 20 32 00 C2 14 |... I . 1 . 2...|
00000C80: 86 17 26 54 4E 2C 31 38 30 2C 35 3A 26 54 4E 2C |..&TN,180,5:&TN,|
00000C90: 31 38 38 2C 32 30 3A 26 54 4E 2C 31 39 32 2C 31 |188,20:&TN,192,1|
00000CA0: 30 3A 26 54 4E 2C 31 38 38 2C 32 30 3A 26 54 4E |0:&TN,188,20:&TN|
00000CB0: 2C 31 39 32 2C 31 30 3A 26 54 4E 2C 31 38 38 2C |,192,10:&TN,188,|
00000CC0: 31 30 00 FC 14 88 17 26 54 4E 2C 31 39 32 2C 31 |10.....&TN,192,1|
00000CD0: 30 3A 26 54 4E 2C 32 30 30 2C 36 30 3A 26 54 4E |0:&TN,200,60:&TN|
00000CE0: 2C 31 38 38 2C 35 3A 26 54 4E 2C 31 39 32 2C 32 |,188,5:&TN,192,2|
00000CF0: 30 3A 26 54 4E 2C 32 30 30 2C 31 30 00 37 15 8A |0:&TN,200,10.7..|
00000D00: 17 26 54 4E 2C 31 39 32 2C 32 30 3A 26 54 4E 2C |.&TN,192,20:&TN,|
00000D10: 32 30 30 2C 31 30 3A 26 54 4E 2C 31 39 32 2C 32 |200,10:&TN,192,2|
00000D20: 30 3A 26 54 4E 2C 32 30 30 2C 31 30 3A 26 54 4E |0:&TN,200,10:&TN|
00000D30: 2C 32 30 38 2C 36 30 00 7C 15 8C 17 26 54 4E 2C |,208,60.|...&TN,|
00000D40: 31 39 32 2C 35 3A 26 54 4E 2C 32 30 30 2C 32 30 |192,5:&TN,200,20|
00000D50: 3A 26 54 4E 2C 32 30 38 2C 31 30 3A 26 54 4E 2C |:&TN,208,10:&TN,|
00000D60: 32 30 30 2C 32 30 3A 26 54 4E 2C 32 30 38 2C 31 |200,20:&TN,208,1|
00000D70: 30 3A 26 54 4E 2C 32 30 30 2C 32 30 00 C2 15 8E |0:&TN,200,20....|
00000D80: 17 26 54 4E 2C 32 30 38 2C 31 30 3A 26 54 4E 2C |.&TN,208,10:&TN,|
00000D90: 32 31 32 2C 36 30 3A 26 54 4E 2C 32 30 30 2C 32 |212,60:&TN,200,2|
00000DA0: 30 3A 26 54 4E 2C 32 30 38 2C 31 30 3A 26 54 4E |0:&TN,208,10:&TN|
00000DB0: 2C 32 31 32 2C 32 30 3A 26 54 4E 2C 32 30 38 2C |,212,20:&TN,208,|
00000DC0: 31 30 00 F2 15 90 17 26 54 4E 2C 32 31 32 2C 32 |10.....&TN,212,2|
00000DD0: 30 3A 26 54 4E 2C 32 30 38 2C 32 30 3A 26 54 4E |0:&TN,208,20:&TN|
00000DE0: 2C 32 30 30 2C 32 30 3A 26 54 4E 2C 31 39 32 2C |,200,20:&TN,192,|
00000DF0: 34 30 00 F8 15 92 17 82 00 37 16 A2 17 26 52 45 |40.......7...&RE|
00000E00: 3A 81 49 B2 31 A4 39 3A 26 43 4F 2C 49 AA 33 3A |:.I.1.9:&CO,I.3:|
00000E10: 26 44 45 2C 49 2C 49 2C 34 31 AB 49 2C 32 36 AB |&DE,I,I,41.I,26.|
00000E20: 49 3A 26 46 49 3A 82 3A 26 53 59 2C 32 3A 26 50 |I:&FI:.:&SY,2:&P|
00000E30: 43 2C 31 30 2C 31 33 00 70 16 AC 17 26 54 58 2C |C,10,13.p...&TX,|
00000E40: 22 20 CA 55 44 47 4D 45 4E 54 53 20 20 22 3A 8D |" .UDGMENTS ":.|
00000E50: 36 32 30 30 3A 9E 31 39 33 34 31 3A 93 22 53 55 |6200:.19341:."SU|
00000E60: 42 50 52 4F 47 52 41 4D 20 58 58 2F 35 22 2C 38 |BPROGRAM XX/5",8|
00000E70: 00 A0 16 38 18 A0 31 35 3A 9F 31 35 2C 38 2C 31 |...8..15:.15,8,1|
00000E80: 35 2C 22 53 30 3A 22 AA 4E 46 24 3A A0 31 35 3A |5,"S0:".NF$:.15:|
00000E90: 26 42 53 2C 4E 46 24 2C 38 36 38 2C 36 33 3A 8E |&BS,NF$,868,63:.|
00000EA0: 00 00 00 28 31 20 2D 20 34 29 2E 22 00 F3 13 BA |...(1 - 4)."....|
00000EB0: 0F 26 50 43 2C 31 2C 32 32 3A 26 54 58 2C 22 D4 |.&PC,1,22:&TX,".|
00000EC0: 59 50 45 20 54 48 45 20 4E 55 4D 42 45 52 20 4F |YPE THE NUMBER O|
00000ED0: 46 20 54 48 45 20 43 4C 41 53 53 22 00 22 14 BB |F THE CLASS"."..|
00000EE0: 0F 26 50 43 2C 31 2C 32 33 3A 26 54 58 2C 22 54 |.&PC,1,23:&TX,"T|
00000EF0: 4F 20 57 48 49 43 48 20 45 41 43 48 20 49 54 45 |O WHICH EACH ITE|
00000F00: 4D 20 42 45 4C 4F 4E 47 53 2E 22 00 66 14 BF 0F |M BELONGS.".f...|
00000F10: 26 43 4F 2C 31 36 30 3A 26 44 45 2C 31 2C 32 35 |&CO,160:&DE,1,25|
00000F20: 2C 34 30 2C 32 35 3A 26 46 49 3A 26 50 43 2C 31 |,40,25:&FI:&PC,1|
00000F30: 31 2C 32 35 3A 26 54 58 2C 22 C8 49 54 20 D2 C5 |1,25:&TX,".IT ..|
00000F40: D4 D5 D2 CE 20 54 4F 20 47 4F 20 4F 4E 2E 22 00 |.... TO GO ON.".|
00000F50: 72 14 D2 0F 26 53 50 2C 32 35 35 00 78 14 24 13 |r...&SP,255.x.$.|
00000F60: 8E 00 8D 14 88 13 8F 20 20 44 49 53 50 4C 41 59 |....... DISPLAY|
00000F70: 20 53 43 4F 52 45 00 B2 14 92 13 26 53 59 2C 31 | SCORE.....&SY,1|
00000F80: 3A 26 43 4F 2C 31 36 30 3A 26 44 45 2C 31 2C 31 |:&CO,160:&DE,1,1|
00000F90: 39 2C 34 30 2C 32 30 3A 26 46 49 00 E8 14 93 13 |9,40,20:&FI.....|
00000FA0: 26 50 43 2C 31 2C 31 39 3A 26 54 58 2C 22 C7 4F |&PC,1,19:&TX,".O|
00000FB0: 41 4C 20 3D 20 36 20 52 49 47 48 54 20 49 4E 20 |AL = 6 RIGHT IN |
00000FC0: 41 20 52 4F 57 2E 20 20 D9 4F 55 20 48 41 56 45 |A ROW. .OU HAVE|
00000FD0: 22 00 10 15 9C 13 26 20 53 59 2C 32 3A 20 26 20 |".....& SY,2: & |
00000FE0: 44 49 2C 34 3A 20 8B 20 53 4E 20 B2 20 31 20 A7 |DI,4: . SN . 1 .|
00000FF0: 20 3A 26 20 43 4C 2C 34 30 00 2C 15 9D 13 52 52 | :& CL,40.,...RR|
00001000: 24 20 B2 20 20 C7 20 28 52 52 AA 34 38 29 3A 20 |$ . . (RR.48): |
00001010: 26 20 49 4E 56 00 54 15 A6 13 81 20 4A 4A 20 B2 |& INV.T.... JJ .|
00001020: 20 30 20 A4 20 52 52 3A 20 26 50 43 2C 33 37 2C | 0 . RR: &PC,37,|
00001030: 31 39 3A 26 54 58 2C 52 52 24 3A 20 82 00 73 15 |19:&TX,RR$: ..s.|
00001040: B0 13 26 20 4E 4F 3A 20 26 20 43 4C 2C 30 3A 20 |..& NO: & CL,0: |
00001050: 26 20 44 49 2C 30 3A 26 53 59 2C 31 00 79 15 E2 |& DI,0:&SY,1.y..|
00001060: 13 8E 00 BE 15 4A 9C 97 38 37 30 2C 41 32 3A 26 |.....J..870,A2:&|
00001070: 48 47 3A 26 53 59 2C 31 3A 26 50 43 2C 35 2C 31 |HG:&SY,1:&PC,5,1|
00001080: 30 3A 26 54 58 2C 22 57 4F 52 4B 49 4E 47 2E 2E |0:&TX,"WORKING..|
00001090: 2E 22 3A 9E 31 39 33 34 31 3A 93 22 4C 45 53 53 |.":.19341:."LESS|
000010A0: 4F 4E 58 58 22 2C 38 00 E6 15 22 9D 26 43 4F 2C |ONXX",8...".&CO,|
000010B0: 32 30 38 3A 26 44 45 2C 31 2C 32 30 2C 34 30 2C |208:&DE,1,20,40,|
000010C0: 32 32 3A 26 46 49 3A 26 50 43 2C 31 2C 32 30 00 |22:&FI:&PC,1,20.|
000010D0: 00 16 6A EA 9E 31 39 33 34 31 3A 93 20 22 48 45 |..j..19341:. "HE|
000010E0: 4C 4C 4F 48 49 31 22 2C 38 00 00 00 |LLOHI1",8... |
../....45,B(174):.46,B(175):.47,B(45):.4
8,B(46).V....49,B(45):.50,B(46):.55,255:
.56,63.|....51,B(55):.52,B(56):.869,4:.8
70,0.H....19328:NS.13:RR%.6:NQ.1:&RE:.L$
(100),IX$(10):WR.0:RN.0:J.0:R.0:RR.0:X.0
...2.L1.B(871):N1$."":.I.1.L1:N1$.N1$.G(
B(I.871)):.:NF$."SRF-".N1$. .D.K.0:. 401
0:. 5010.].E.&SP,220:&CO,5:&DE,1,1,40,15
:&FI:&CO,69:&DE,2,2,39,14:&FI...G.&CO,27
:&DE,2,2,39,14:&FI:&SY,1:&CO,160:&DE,2,2
,39,3:&FI:&PC,3,2.P.H.&TX,"1-MEAT/POULTR
Y 2-FRUITS/VEGETABLES"...I.&PC,3,3:&TX
,"3-DAIRY PRODUCTS 4-GRAINS/PASTA":
&SP,255.2.J.&CO,6:&DE,2,4,39,4:&IN:&FI:&
NO.R.X.. RN . 0 . J . J . 1: . 150....J
. . (NS . . (1) . 1): . J . J1 . 140.
...J1 . J: . J . . NS . RN . 1... .. J
. 1010,1110,1210,1310,1410,1510,1610,17
10,1810,1910,2010,2110,2210.+.W.&SY,2:&P
C,20.C(L$(2)),6:&TX,L$(2):&CO,171:&DE,19
,8,22,9:&FI.A...&PC,19,10:&SY,2:L$."2":&
EN,L$,1,T%,AL%:.AL%.0.258.....&SY,1:L$ .
H (L$,AL%):.F(L$).3.272......((L$.."1"
).(L$.."2")).266......280......((L$.."3"
).(L$.."4")).:&PC,19,10:&SY,2:&TX," ":.
258...... 280.*...&RE:&SY,2:&PC,9,5:&TX,
"BYE":.19341:."HELLOHI1",8.N.... L$ . L$
(1) . AX$ . "YES":.282.D...AX$ . "NO": .
290.....& SY,2:&PC,16,13:&TX,"GOOD":.I.
160.48..8:&TN,I,1:.:&PC,16,13.....&TX,"
":. 305...".. I . 1 . 5: & TN,255,1
0: ..".$.&SY,2:&CO,144:&DE,19,13,20,14:&
FI:.I.1.10:&NO:&PC,19,13:&TX,L$(1).V.%..
399:&IN:&PC,19,13:&TX,L$(1):.399:.:&NO:
.198,0.J.(.. R$:.R$."".296.}.)..F(R$)..1
3.296.M.*.&PC,19,13:&TX," ":&CO,11:&
DE,19,13,20,14:&FI:&CO,27:&DE,19,13,20,1
4:&FI...1.. (AX$ . "YES") . R . R . 1:RR
. RR . 1:WR . 0.6.6.. (AX$ . . "YES")
. W . W . 1:WR . WR . 1:RR . 0.A.@.. 501
0.Q.J.. RR..RR%.A2 .7:.870,A2:.889,W:.90
4,R:.6000...T.. (WR. .5).(W. .18).A2 .5:
.870,A2:.19341:."HELLOHI1",8...Y..I.0.10
:&PC,1,4.I:&TX,"
":....R.. 120...........L
$(1) . "4".*...L$(2) . "SPAGHETTI".0.B..
.@.V.L$(1) . "2".V.`.L$(2) . "CARROTS".\
.....L...L$(1) . "1"...D.L$(2) . "CHICKE
N"...........L$(1) . "1"...(.L$(2) . "HA
M"...N.......L$(1) . "4".T...L$(2) . "BR
EAD".Z.R.......L$(1) . "2".....L$(2) . "
SPINACH"...6.....J.L$(1) . "2".,.T.L$(2)
. "PEACHES".2.....B...L$(1) . "3".U...L
$(2) . "MILK".[.....K...L$(1) . "3".....
L$(2) . "CHEESE"...B.....V.L$(1)."1"....
.L$(2)."STEAK"...F.....Z.L$(1)."3".M...L
$(2)."BUTTER".S.*.....>.L$(1)."4"...H.L$
(2)."CEREAL"...........L$(1)."1".....L$(
2)."SAUSAGE".".....W...&SP,220:&SY,1:&CO
,16:&DE,1,21,40,24:&FI:&PC,1,21.{...&TX,
"READ THE CLASSES (1 - 4).".....&PC,1,22
:&TX,"TYPE THE NUMBER OF THE CLASS".Z...
&PC,1,23:&TX,"TO WHICH EACH ITEM BELONGS
.".&...&CO,160:&DE,1,25,40,25:&FI:&PC,11
,25:&TX,"HIT RETURN TO GO ON.":&SP,255.,
.$...R...:&SY,1:&CO,160:&DE,1,18,40,20:&
FI.....:&PC,1,19:&TX,"GOAL = 6 RIGHT IN
A ROW. YOU HAVE":&SY,2:&IN:&PC,37,18...
..RR$.G(RR.48).W...:&TX," ":&PC,37,19:&T
X,RR$:&NO:&SY,1.........P.& RE.#.R.&CO,1
6:&DE,1,1,40,12:&FI:&SY,2:&PC,2,9:&TX,"Y
OU DESERVE".G.T.. K . 1 . 13: CC . 224 .
(16.K)...V.&CO,CC:&DE,1,13,40,15:&FI:&P
C,4,14:&TX,"A MYSTERY TUNE."...X.. K.U.Z
.&CO,16:&DE,1,17,40,24:&FI:&SY,1:&PC,1,2
3:&TX,"PRESS W TO HEAR IT.".#.|.&CO,16
0:&DE,1,25,40,25:&FI:&PC,1,25:&TX,"OTHER
WISE, HIT RETURN TO GO ON."./.~.. 198,0.
I.... R$: . R$ ."" . 6016.B.... F(R$) ..
13 . 6020.M.... 6050.}.... I . 1 . 2.B.
..&TN,180,5:&TN,188,20:&TN,192,10:&TN,18
8,20:&TN,192,10:&TN,188,10.....&TN,192,1
0:&TN,200,60:&TN,188,5:&TN,192,20:&TN,20
0,10.7...&TN,192,20:&TN,200,10:&TN,192,2
0:&TN,200,10:&TN,208,60.|...&TN,192,5:&T
N,200,20:&TN,208,10:&TN,200,20:&TN,208,1
0:&TN,200,20.B...&TN,208,10:&TN,212,60:&
TN,200,20:&TN,208,10:&TN,212,20:&TN,208,
10.....&TN,212,20:&TN,208,20:&TN,200,20:
&TN,192,40.......7...&RE:.I.1.9:&CO,I.3:
&DE,I,I,41.I,26.I:&FI:.:&SY,2:&PC,10,13.
P...&TX," JUDGMENTS ":.6200:.19341:."SU
BPROGRAM XX/5",8. .8. 15:.15,8,15,"S0:".
NF$: 15:&BS,NF$,868,63:....(1 - 4)."....
.&PC,1,22:&TX,"TYPE THE NUMBER OF THE CL
ASS"."...&PC,1,23:&TX,"TO WHICH EACH ITE
M BELONGS.".F...&CO,160:&DE,1,25,40,25:&
FI:&PC,11,25:&TX,"HIT RETURN TO GO ON.".
R.R.&SP,255.X.$........ DISPLAY SCORE..
...&SY,1:&CO,160:&DE,1,19,40,20:&FI.....
&PC,1,19:&TX,"GOAL = 6 RIGHT IN A ROW.
YOU HAVE".....& SY,2: & DI,4: . SN . 1 .
:& CL,40.,...RR$ . G (RR.48): & INV.T.
... JJ . 0 . RR: &PC,37,19:&TX,RR$: ..S.
..& NO: & CL,0: & DI,0:&SY,1.Y.......J..
870,A2:&HG:&SY,1:&PC,5,10:&TX,"WORKING..
.":.19341:."LESSONXX",8...".&CO,208:&DE,
1,20,40,22:&FI:&PC,1,20...J..19341:. "HE
LLOHI1",8...
> CLICK IMAGE PREVIEW FOR FULL MODAL