BASIC QUIZ
FILE INFORMATION
FILENAME(S): BASIC QUIZ
FILE TYPE(S): PRG
FILE SIZE: 7.1K
FIRST SEEN: 2025-10-20 14:30:19
APPEARS ON: 1 disk(s)
FILE HASH
aa1950996505abbab4095a19a2d0524c6eacca9f32f4fdfc615178e52dc33c1a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PB DOMAIN 0031ED | BASIC QUIZ | PRG | Treasure Chest - Klaus Der Suhler | 29 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 01 00 8F 20 5B 44 52 2E 20 53 48 49 |....... [DR. SHI|
00000010: 4C 4C 49 4E 47 20 34 2F 31 30 2F 38 34 5D 00 46 |LLING 4/10/84].F|
00000020: 08 02 00 8F 3A 20 42 41 53 49 43 20 51 55 49 5A |....: BASIC QUIZ|
00000030: 5A 20 46 4F 52 20 57 4F 55 4C 44 2D 42 45 20 48 |Z FOR WOULD-BE H|
00000040: 41 43 4B 45 52 53 00 53 08 03 00 43 24 B2 C7 28 |ACKERS.S...C$..(|
00000050: 33 34 29 00 66 08 04 00 54 49 24 20 B2 20 22 30 |34).f...TI$ . "0|
00000060: 30 30 30 30 30 22 00 72 08 05 00 59 24 20 B2 20 |00000".r...Y$ . |
00000070: 22 22 00 97 08 06 00 8F 20 5B 54 4F 20 52 55 4E |""...... [TO RUN|
00000080: 20 54 48 45 20 51 55 49 5A 5A 2C 20 4A 55 53 54 | THE QUIZZ, JUST|
00000090: 20 27 52 55 4E 27 5D 00 BF 08 07 00 8F 20 5B 54 | 'RUN']...... [T|
000000A0: 4F 20 45 58 41 4D 49 4E 45 20 50 52 4F 42 4C 45 |O EXAMINE PROBLE|
000000B0: 4D 53 2C 20 27 52 55 4E 20 31 33 30 30 27 5D 00 |MS, 'RUN 1300'].|
000000C0: C8 08 08 00 89 20 35 30 00 E9 08 09 00 8F 20 28 |..... 50...... (|
000000D0: 4C 49 4E 45 53 20 31 30 2D 33 30 20 41 52 45 20 |LINES 10-30 ARE |
000000E0: 52 45 53 45 52 56 45 44 29 00 EF 08 31 00 90 00 |RESERVED)...1...|
000000F0: F8 08 32 00 99 22 93 22 00 24 09 34 00 99 22 49 |..2..".".$.4.."I|
00000100: 20 41 4D 20 59 4F 55 52 20 55 53 45 52 2D 46 52 | AM YOUR USER-FR|
00000110: 49 45 4E 44 4C 59 20 43 4F 4D 4D 4F 44 4F 52 45 |IENDLY COMMODORE|
00000120: 2D 36 34 22 00 2A 09 36 00 99 00 4A 09 38 00 99 |-64".*.6...J.8..|
00000130: 22 20 20 20 20 20 20 20 42 41 53 49 43 20 51 55 |" BASIC QU|
00000140: 49 5A 5A 20 4E 4F 2E 20 31 22 00 50 09 3A 00 99 |IZZ NO. 1".P.:..|
00000150: 00 6E 09 3C 00 99 22 4D 59 20 46 49 52 53 54 20 |.n.<.."MY FIRST |
00000160: 50 52 4F 47 52 41 4D 20 49 53 3A 22 3A 99 00 86 |PROGRAM IS:":...|
00000170: 09 3E 00 99 22 20 20 31 30 20 41 25 20 3D 20 33 |.>.." 10 A% = 3|
00000180: 33 30 30 30 20 22 00 98 09 40 00 99 22 20 20 31 |3000 "...@.." 1|
00000190: 31 20 3F 20 41 25 20 22 00 C7 09 42 00 99 3A 99 |1 ? A% "...B..:.|
000001A0: 22 42 55 54 20 57 48 45 4E 20 59 4F 55 20 52 55 |"BUT WHEN YOU RU|
000001B0: 4E 20 49 54 2C 20 49 20 57 49 4C 4C 20 54 45 4C |N IT, I WILL TEL|
000001C0: 4C 20 59 4F 55 3A 22 00 CD 09 44 00 99 00 F4 09 |L YOU:"...D.....|
000001D0: 46 00 99 20 22 3F 20 49 4C 4C 45 47 41 4C 20 51 |F.. "? ILLEGAL Q|
000001E0: 55 41 4E 54 49 54 59 20 45 52 52 4F 52 20 49 4E |UANTITY ERROR IN|
000001F0: 20 31 30 22 00 0B 0A 47 00 8B 20 59 24 20 B3 B1 | 10"...G.. Y$ ..|
00000200: 20 22 59 45 53 22 20 A7 20 37 34 00 50 0A 48 00 | "YES" . 74.P.H.|
00000210: 99 22 20 28 45 4E 54 45 52 20 50 52 4F 47 52 41 |." (ENTER PROGRA|
00000220: 4D 20 4C 49 4E 45 53 20 57 49 54 48 20 43 55 52 |M LINES WITH CUR|
00000230: 53 4F 52 2C 20 54 48 45 4E 20 52 55 4E 20 27 31 |SOR, THEN RUN '1|
00000240: 30 27 20 54 4F 20 56 45 52 49 46 59 29 22 3A 90 |0' TO VERIFY)":.|
00000250: 00 72 0A 4A 00 99 3A 99 22 44 4F 20 59 4F 55 20 |.r.J..:."DO YOU |
00000260: 57 41 4E 54 20 54 4F 20 4B 4E 4F 57 20 57 48 59 |WANT TO KNOW WHY|
00000270: 3F 22 00 90 0A 4C 00 85 22 20 28 50 52 45 53 53 |?"...L.." (PRESS|
00000280: 20 52 45 54 55 52 4E 20 4B 45 59 29 22 3B 4B 24 | RETURN KEY)";K$|
00000290: 00 BA 0A 4E 00 99 22 91 C0 C0 C0 C0 C0 C0 C0 C0 |...N..".........|
000002A0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000002B0: C0 C0 C0 C0 C0 C0 C0 C0 C0 22 00 E2 0A 50 00 99 |........."...P..|
000002C0: 3A 99 22 49 20 43 41 4E 27 54 20 48 41 4E 44 4C |:."I CAN'T HANDL|
000002D0: 45 20 49 4E 54 45 47 45 52 53 20 4C 41 52 47 45 |E INTEGERS LARGE|
000002E0: 52 22 00 06 0B 52 00 99 22 20 20 54 48 41 4E 20 |R"...R.." THAN |
000002F0: 33 32 37 36 37 20 20 2D 20 20 54 48 41 54 27 53 |32767 - THAT'S|
00000300: 20 57 48 59 2E 22 00 0C 0B 54 00 99 00 36 0B 56 | WHY."...T...6.V|
00000310: 00 85 22 20 28 50 52 45 53 53 20 52 45 54 55 52 |.." (PRESS RETUR|
00000320: 4E 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 |N KEY TO CONTINU|
00000330: 45 29 22 3B 4B 24 00 40 0B 64 00 99 22 93 11 22 |E)";K$.@.d..".."|
00000340: 00 60 0B 66 00 99 22 20 20 20 20 20 20 20 42 41 |.`.f.." BA|
00000350: 53 49 43 20 51 55 49 5A 5A 20 4E 4F 2E 20 32 22 |SIC QUIZZ NO. 2"|
00000360: 00 66 0B 68 00 99 00 83 0B 6E 00 99 22 4D 59 20 |.f.h.....n.."MY |
00000370: 4E 45 58 54 20 50 52 4F 47 52 41 4D 20 49 53 3A |NEXT PROGRAM IS:|
00000380: 22 3A 99 00 A2 0B 78 00 99 22 20 20 31 32 20 44 |":....x.." 12 D|
00000390: 49 4D 20 46 20 28 31 30 29 2C 20 47 20 28 32 30 |IM F (10), G (20|
000003A0: 29 22 00 BC 0B 82 00 99 22 20 20 31 33 20 44 49 |)"......" 13 DI|
000003B0: 4D 20 46 31 20 25 20 28 31 31 29 22 00 DD 0B 8C |M F1 % (11)"....|
000003C0: 00 99 22 20 20 31 34 20 44 49 4D 20 46 33 20 28 |.." 14 DIM F3 (|
000003D0: 31 2C 32 2C 33 2C 34 2C 35 2C 36 29 22 00 F5 0B |1,2,3,4,5,6)"...|
000003E0: 96 00 99 22 20 20 31 35 20 44 49 4D 20 46 46 31 |..." 15 DIM FF1|
000003F0: 20 28 35 29 22 00 0E 0C A0 00 99 22 20 20 31 36 | (5)"......" 16|
00000400: 20 44 49 4D 20 46 46 32 20 28 35 35 29 22 00 14 | DIM FF2 (55)"..|
00000410: 0C AA 00 99 00 30 0C B4 00 99 22 48 45 52 45 20 |.....0...."HERE |
00000420: 49 53 20 54 48 45 20 50 52 4F 42 4C 45 4D 3A 22 |IS THE PROBLEM:"|
00000430: 00 6D 0C BE 00 99 22 20 20 49 46 20 59 4F 55 20 |.m...." IF YOU |
00000440: 54 59 50 45 20 27 52 55 4E 20 31 32 27 20 20 49 |TYPE 'RUN 12' I|
00000450: 20 57 49 4C 4C 20 47 49 56 45 20 59 4F 55 20 20 | WILL GIVE YOU |
00000460: 54 48 45 20 4D 45 53 53 41 47 45 3A 22 00 92 0C |THE MESSAGE:"...|
00000470: C8 00 99 22 20 20 3F 20 52 45 44 49 4D 27 44 20 |..." ? REDIM'D |
00000480: 41 52 52 41 59 20 45 52 52 4F 52 20 49 4E 20 31 |ARRAY ERROR IN 1|
00000490: 36 22 00 AA 0C CA 00 8B 20 59 24 20 B3 B1 20 22 |6"...... Y$ .. "|
000004A0: 59 45 53 22 20 A7 20 32 31 30 00 E1 0C CD 00 98 |YES" . 210......|
000004B0: 20 28 45 4E 54 45 52 20 50 52 4F 47 52 41 4D 20 | (ENTER PROGRAM |
000004C0: 4C 49 4E 45 53 20 57 49 54 48 20 43 55 52 53 B0 |LINES WITH CURS.|
000004D0: 2C 20 A7 20 8A 20 27 31 32 27 20 A4 20 95 29 3A |, . . '12' . .):|
000004E0: 90 00 FE 0C D2 00 99 3A 99 22 57 48 59 3F 20 20 |.......:."WHY? |
000004F0: 57 48 41 54 27 53 20 57 52 4F 4E 47 3F 22 00 25 |WHAT'S WRONG?".%|
00000500: 0D DC 00 85 22 28 50 52 45 53 53 20 52 45 54 55 |...."(PRESS RETU|
00000510: 52 4E 20 4B 45 59 20 46 4F 52 20 41 4E 53 57 45 |RN KEY FOR ANSWE|
00000520: 52 22 3B 4B 24 00 54 0D E6 00 99 22 91 C0 C0 C0 |R";K$.T...."....|
00000530: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000540: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000550: C0 C0 C0 22 00 5A 0D EA 00 99 00 A6 0D F0 00 99 |...".Z..........|
00000560: 22 53 4F 52 52 59 2C 20 42 55 54 20 49 20 43 41 |"SORRY, BUT I CA|
00000570: 4E 20 52 45 41 44 20 4F 4E 4C 59 20 54 48 45 20 |N READ ONLY THE |
00000580: 46 49 52 53 54 20 54 57 4F 20 43 48 41 52 41 43 |FIRST TWO CHARAC|
00000590: 54 45 52 53 20 4F 46 20 41 4E 59 20 56 41 52 49 |TERS OF ANY VARI|
000005A0: 41 42 4C 45 2E 22 00 CF 0D FA 00 99 22 20 20 46 |ABLE."......" F|
000005B0: 46 31 20 41 4E 44 20 46 46 32 20 41 52 45 20 54 |F1 AND FF2 ARE T|
000005C0: 48 45 20 53 41 4D 45 20 54 4F 20 4D 45 21 22 00 |HE SAME TO ME!".|
000005D0: 0F 0E 04 01 99 22 28 41 4E 44 20 59 4F 55 20 4D |....."(AND YOU M|
000005E0: 55 53 54 20 4E 4F 54 20 44 49 4D 45 4E 53 49 4F |UST NOT DIMENSIO|
000005F0: 4E 20 41 20 56 41 52 49 41 42 4C 45 20 20 4D 4F |N A VARIABLE MO|
00000600: 52 45 20 54 48 41 4E 20 4F 4E 43 45 29 2E 22 00 |RE THAN ONCE).".|
00000610: 15 0E 18 01 99 00 3C 0E 22 01 85 22 20 28 50 52 |......<.".." (PR|
00000620: 45 53 53 20 52 45 54 55 52 4E 20 4B 45 59 20 54 |ESS RETURN KEY T|
00000630: 4F 20 47 4F 20 4F 4E 29 22 3B 4B 24 00 46 0E 2C |O GO ON)";K$.F.,|
00000640: 01 99 22 93 11 22 00 66 0E 2E 01 99 22 20 20 20 |.."..".f...." |
00000650: 20 20 20 20 42 41 53 49 43 20 51 55 49 5A 5A 20 | BASIC QUIZZ |
00000660: 4E 4F 2E 20 33 22 00 6C 0E 30 01 99 00 89 0E 36 |NO. 3".l.0.....6|
00000670: 01 99 22 4D 59 20 4E 45 58 54 20 50 52 4F 47 52 |.."MY NEXT PROGR|
00000680: 41 4D 20 49 53 3A 22 3A 99 00 A7 0E 40 01 99 20 |AM IS:":....@.. |
00000690: 31 37 22 43 4C 59 44 45 20 3D 20 39 39 39 3A 3F |17"CLYDE = 999:?|
000006A0: 20 43 4C 59 44 45 22 00 D2 0E 4A 01 99 20 31 38 | CLYDE"...J.. 18|
000006B0: 22 47 45 52 20 24 20 3D 20 22 43 24 20 22 47 45 |"GER $ = "C$ "GE|
000006C0: 52 52 59 22 20 43 24 20 22 3A 3F 20 47 45 52 20 |RRY" C$ ":? GER |
000006D0: 24 22 00 FD 0E 54 01 99 20 31 39 22 4C 4F 52 20 |$"...T.. 19"LOR |
000006E0: 24 20 3D 20 22 43 24 20 22 4C 4F 52 4E 41 22 20 |$ = "C$ "LORNA" |
000006F0: 43 24 20 22 3A 3F 20 4C 4F 52 20 24 22 00 03 0F |C$ ":? LOR $"...|
00000700: 5E 01 99 00 20 0F 68 01 99 20 22 48 45 52 45 20 |^... .h.. "HERE |
00000710: 49 53 20 54 48 45 20 50 52 4F 42 4C 45 4D 3A 22 |IS THE PROBLEM:"|
00000720: 00 4F 0F 72 01 99 20 22 20 20 20 49 46 20 59 4F |.O.r.. " IF YO|
00000730: 55 20 54 59 50 45 20 27 52 55 4E 20 31 37 27 20 |U TYPE 'RUN 17' |
00000740: 20 49 20 57 49 4C 4C 20 50 52 49 4E 54 3A 22 00 | I WILL PRINT:".|
00000750: 55 0F 7C 01 99 00 6F 0F 90 01 43 4C 59 44 45 20 |U.|...o...CLYDE |
00000760: B2 20 39 39 39 20 3A 20 99 20 43 4C 59 44 45 00 |. 999 : . CLYDE.|
00000770: 8B 0F 9A 01 47 45 52 24 20 B2 20 22 47 45 52 52 |....GER$ . "GERR|
00000780: 59 22 20 3A 20 99 20 47 45 52 24 00 A6 0F AE 01 |Y" : . GER$.....|
00000790: 99 22 3F 53 59 4E 54 41 58 20 45 52 52 4F 52 20 |."?SYNTAX ERROR |
000007A0: 49 4E 20 31 39 22 00 AC 0F B8 01 99 00 CF 0F C2 |IN 19"..........|
000007B0: 01 99 20 22 20 20 57 20 48 20 59 20 20 3F 3F 20 |.. " W H Y ?? |
000007C0: 20 57 48 41 54 27 53 20 57 52 4F 4E 47 3F 22 00 | WHAT'S WRONG?".|
000007D0: D5 0F CC 01 99 00 ED 0F CE 01 8B 20 59 24 20 B3 |........... Y$ .|
000007E0: B1 20 22 59 45 53 22 20 A7 20 34 37 30 00 31 10 |. "YES" . 470.1.|
000007F0: D1 01 99 22 20 28 45 4E 54 45 52 20 50 52 4F 47 |..." (ENTER PROG|
00000800: 52 41 4D 20 4C 49 4E 45 53 20 57 49 54 48 20 43 |RAM LINES WITH C|
00000810: 55 52 53 4F 52 2C 20 54 48 45 4E 20 52 55 4E 20 |URSOR, THEN RUN |
00000820: 27 31 37 27 20 54 4F 20 56 45 52 49 46 59 22 3A |'17' TO VERIFY":|
00000830: 90 00 58 10 D6 01 85 22 20 28 50 52 45 53 53 20 |..X...." (PRESS |
00000840: 52 45 54 55 52 4E 20 4B 45 59 20 54 4F 20 47 4F |RETURN KEY TO GO|
00000850: 20 4F 4E 29 22 3B 4B 24 00 82 10 E2 01 99 22 91 | ON)";K$......".|
00000860: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000870: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000880: C0 22 00 88 10 EA 01 99 00 B7 10 F4 01 99 20 22 |."............ "|
00000890: 4C 4F 52 20 24 20 43 4F 4E 54 41 49 4E 53 20 54 |LOR $ CONTAINS T|
000008A0: 48 45 20 42 41 53 49 43 20 4B 45 59 57 4F 52 44 |HE BASIC KEYWORD|
000008B0: 20 27 4F 52 27 21 22 00 FC 10 FE 01 99 20 22 20 | 'OR'!"...... " |
000008C0: 20 54 48 45 20 53 41 4D 45 20 54 48 49 4E 47 20 | THE SAME THING |
000008D0: 57 4F 55 4C 44 20 48 41 50 50 45 4E 2C 20 49 46 |WOULD HAPPEN, IF|
000008E0: 20 59 4F 55 20 20 20 20 20 55 53 45 44 2C 20 46 | YOU USED, F|
000008F0: 4F 52 20 45 58 41 4D 50 4C 45 2C 22 00 2C 11 08 |OR EXAMPLE,".,..|
00000900: 02 99 20 22 20 20 27 4C 41 4E 44 27 20 49 4E 53 |.. " 'LAND' INS|
00000910: 54 45 41 44 20 4F 46 20 27 43 4C 59 44 45 27 20 |TEAD OF 'CLYDE' |
00000920: 49 4E 20 4C 49 4E 45 20 31 37 2E 22 00 50 11 12 |IN LINE 17.".P..|
00000930: 02 85 20 22 20 28 50 52 45 53 53 20 52 45 54 55 |.. " (PRESS RETU|
00000940: 52 4E 20 54 4F 20 47 4F 20 4F 4E 29 22 3B 4B 24 |RN TO GO ON)";K$|
00000950: 00 5B 11 58 02 99 20 22 93 11 22 00 7B 11 5A 02 |.[.X.. "..".{.Z.|
00000960: 99 20 22 20 20 20 20 20 20 20 42 41 53 49 43 20 |. " BASIC |
00000970: 51 55 49 5A 5A 20 4E 4F 2E 34 22 00 97 11 62 02 |QUIZZ NO.4"...b.|
00000980: 99 20 22 4D 59 20 4E 45 58 54 20 50 52 4F 47 52 |. "MY NEXT PROGR|
00000990: 41 4D 20 49 53 3A 22 00 9D 11 64 02 99 00 C5 11 |AM IS:"...d.....|
000009A0: 76 02 99 22 32 30 20 49 4E 50 55 54 22 20 20 43 |v.."20 INPUT" C|
000009B0: 24 20 22 59 45 53 20 4F 52 20 4E 4F 22 20 43 24 |$ "YES OR NO" C$|
000009C0: 22 3B 20 59 24 00 08 12 80 02 99 22 32 31 20 49 |"; Y$......"21 I|
000009D0: 46 20 59 24 20 3C 3E 20 22 20 43 24 20 22 59 45 |F Y$ <> " C$ "YE|
000009E0: 53 22 20 43 24 20 22 20 4F 52 20 59 24 20 3C 3E |S" C$ " OR Y$ <>|
000009F0: 20 22 20 43 24 20 22 4E 4F 22 20 43 24 20 22 20 | " C$ "NO" C$ " |
00000A00: 54 48 45 4E 20 32 30 22 00 4A 12 8A 02 99 22 32 |THEN 20".J...."2|
00000A10: 32 20 49 46 20 59 24 20 3C 3E 20 22 20 43 24 20 |2 IF Y$ <> " C$ |
00000A20: 22 59 45 53 22 20 43 24 20 22 41 4E 44 20 59 24 |"YES" C$ "AND Y$|
00000A30: 20 3C 3E 20 22 20 43 24 20 22 4E 4F 22 20 43 24 | <> " C$ "NO" C$|
00000A40: 20 22 54 48 45 4E 20 32 30 22 00 8C 12 94 02 99 | "THEN 20"......|
00000A50: 22 32 33 20 49 46 20 59 24 20 3D 20 22 20 43 24 |"23 IF Y$ = " C$|
00000A60: 20 22 59 45 53 22 20 43 24 20 22 20 4F 52 20 20 | "YES" C$ " OR |
00000A70: 59 24 20 3D 20 22 20 43 24 20 22 4E 4F 22 20 43 |Y$ = " C$ "NO" C|
00000A80: 24 20 22 20 54 48 45 4E 20 32 30 22 00 CB 12 9E |$ " THEN 20"....|
00000A90: 02 99 22 32 34 20 49 46 20 59 24 20 3D 20 22 43 |.."24 IF Y$ = "C|
00000AA0: 24 20 22 59 45 53 22 20 43 24 20 22 41 4E 44 20 |$ "YES" C$ "AND |
00000AB0: 59 24 20 3D 20 22 20 43 24 20 22 4E 4F 22 20 43 |Y$ = " C$ "NO" C|
00000AC0: 24 20 22 54 48 45 4E 20 32 30 22 00 D1 12 A8 02 |$ "THEN 20".....|
00000AD0: 99 00 EE 12 BC 02 99 20 22 48 45 52 45 20 49 53 |....... "HERE IS|
00000AE0: 20 54 48 45 20 50 52 4F 42 4C 45 4D 3A 22 00 1F | THE PROBLEM:"..|
00000AF0: 13 C6 02 99 3A 99 20 22 59 4F 55 20 57 41 4E 54 |....:. "YOU WANT|
00000B00: 20 54 4F 20 4D 41 4B 45 20 53 55 52 45 20 54 48 | TO MAKE SURE TH|
00000B10: 41 54 20 4E 4F 54 48 49 4E 47 20 42 55 54 22 00 |AT NOTHING BUT".|
00000B20: 48 13 C8 02 99 22 20 20 45 49 54 48 45 52 20 27 |H...." EITHER '|
00000B30: 59 45 53 27 20 4F 52 20 27 4E 4F 27 20 49 53 20 |YES' OR 'NO' IS |
00000B40: 45 4E 54 45 52 45 44 22 00 65 13 CA 02 99 22 20 |ENTERED".e...." |
00000B50: 20 41 53 20 27 59 24 27 20 49 4E 20 4C 49 4E 45 | AS 'Y$' IN LINE|
00000B60: 20 32 30 2E 22 00 89 13 CC 02 99 22 49 46 20 4E | 20."......"IF N|
00000B70: 4F 54 2C 20 41 53 4B 20 46 4F 52 20 49 4E 50 55 |OT, ASK FOR INPU|
00000B80: 54 20 41 47 41 49 4E 2E 22 00 8F 13 CE 02 99 00 |T AGAIN.".......|
00000B90: D6 13 D0 02 99 22 20 57 48 49 43 48 20 49 53 20 |....." WHICH IS |
00000BA0: 43 4F 52 52 45 43 54 2C 20 4C 49 4E 45 20 32 31 |CORRECT, LINE 21|
00000BB0: 2C 20 4F 52 20 4C 49 4E 45 20 32 32 2C 20 4F 52 |, OR LINE 22, OR|
00000BC0: 20 4C 49 4E 45 20 32 33 2C 20 4F 52 20 4C 49 4E | LINE 23, OR LIN|
00000BD0: 45 20 32 34 3F 22 00 DC 13 E4 02 99 00 F4 13 E6 |E 24?"..........|
00000BE0: 02 8B 20 59 24 20 B3 B1 20 22 59 45 53 22 20 A7 |.. Y$ .. "YES" .|
00000BF0: 20 37 35 30 00 38 14 E9 02 99 22 20 28 45 4E 54 | 750.8...." (ENT|
00000C00: 45 52 20 57 49 54 48 20 43 55 52 53 4F 52 2C 20 |ER WITH CURSOR, |
00000C10: 42 55 54 20 44 4F 20 4E 4F 54 20 52 55 4E 20 27 |BUT DO NOT RUN '|
00000C20: 32 30 27 2E 20 49 54 20 57 49 4C 4C 20 48 41 4E |20'. IT WILL HAN|
00000C30: 47 2D 55 50 20 21 29 22 00 6C 14 EE 02 85 20 22 |G-UP !)".l.... "|
00000C40: 52 45 41 44 59 20 46 4F 52 20 54 48 52 20 41 4E |READY FOR THR AN|
00000C50: 53 57 45 52 3F 20 28 50 52 45 53 53 20 52 45 54 |SWER? (PRESS RET|
00000C60: 55 52 4E 20 4B 45 59 29 22 3B 4B 24 00 9C 14 FA |URN KEY)";K$....|
00000C70: 02 99 22 91 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |..".............|
00000C80: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000C90: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 00 C5 14 02 |..........."....|
00000CA0: 03 99 22 20 20 4F 20 4E 20 4C 20 59 20 20 20 4C |.." O N L Y L|
00000CB0: 49 4E 45 20 20 32 32 20 49 53 20 43 4F 52 52 45 |INE 22 IS CORRE|
00000CC0: 43 54 21 3A 22 00 CB 14 04 03 99 00 F9 14 0C 03 |CT!:"...........|
00000CD0: 99 22 57 41 52 4E 49 4E 47 3A 20 49 46 20 59 4F |."WARNING: IF YO|
00000CE0: 55 20 54 52 59 20 4F 54 48 45 52 53 2C 20 57 41 |U TRY OTHERS, WA|
00000CF0: 54 43 48 20 4F 55 54 3B 22 00 26 15 16 03 99 22 |TCH OUT;".&...."|
00000D00: 20 49 20 4D 41 59 20 48 41 4E 47 20 55 50 20 59 | I MAY HANG UP Y|
00000D10: 4F 55 52 20 50 52 4F 47 52 41 4D 20 57 49 54 48 |OUR PROGRAM WITH|
00000D20: 20 53 4F 4D 45 22 00 44 15 18 03 99 22 20 4F 52 | SOME".D...." OR|
00000D30: 20 54 48 45 20 4F 54 48 45 52 20 4C 49 4E 45 53 | THE OTHER LINES|
00000D40: 2E 2E 2E 22 00 6C 15 1C 03 85 22 20 28 50 52 45 |...".l...." (PRE|
00000D50: 53 53 20 52 45 54 55 52 4E 20 4B 45 59 20 54 4F |SS RETURN KEY TO|
00000D60: 20 47 4F 20 4F 4E 29 22 3B 20 4B 24 00 75 15 20 | GO ON)"; K$.u. |
00000D70: 03 99 22 93 22 00 95 15 2A 03 99 22 20 20 20 20 |.."."...*.." |
00000D80: 20 20 20 42 41 53 49 43 20 51 55 49 5A 5A 20 4E | BASIC QUIZZ N|
00000D90: 4F 2E 20 35 22 00 B0 15 34 03 99 22 4D 59 20 4E |O. 5"...4.."MY N|
00000DA0: 45 58 54 20 50 52 4F 47 52 41 4D 20 49 53 3A 22 |EXT PROGRAM IS:"|
00000DB0: 00 B6 15 36 03 99 00 D8 15 38 03 99 22 20 20 32 |...6.....8.." 2|
00000DC0: 35 20 58 20 3D 20 53 51 52 28 31 30 30 29 20 3A |5 X = SQR(100) :|
00000DD0: 20 59 20 3D 20 31 30 22 00 25 16 3A 03 99 22 20 | Y = 10".%.:.." |
00000DE0: 20 32 36 20 50 52 49 4E 54 20 22 20 43 24 20 22 | 26 PRINT " C$ "|
00000DF0: 58 3D 22 20 43 24 20 22 58 20 22 20 43 24 20 22 |X=" C$ "X " C$ "|
00000E00: 20 20 59 3D 22 20 43 24 20 22 59 20 22 20 43 24 | Y=" C$ "Y " C$|
00000E10: 20 22 20 20 58 2D 59 3D 22 20 43 24 20 22 20 58 | " X-Y=" C$ " X|
00000E20: 20 2D 20 59 22 00 5A 16 3C 03 99 22 20 20 32 37 | - Y".Z.<.." 27|
00000E30: 20 49 46 20 58 20 3C 2E 20 59 20 54 48 45 4E 20 | IF X <. Y THEN |
00000E40: 50 52 49 4E 54 20 22 20 3B 20 3A 20 99 20 43 24 |PRINT " ; : . C$|
00000E50: 20 22 57 52 4F 4E 47 20 21 22 00 60 16 3E 03 99 | "WRONG !".`.>..|
00000E60: 00 86 16 40 03 99 22 49 46 20 49 20 27 52 55 4E |...@.."IF I 'RUN|
00000E70: 27 20 49 20 50 52 49 4E 54 20 41 53 20 46 4F 4C |' I PRINT AS FOL|
00000E80: 4C 4F 57 53 3A 22 00 9D 16 4A 03 58 20 B2 20 BA |LOWS:"...J.X . .|
00000E90: 28 31 30 30 29 3A 20 59 20 B2 20 31 30 00 C0 16 |(100): Y . 10...|
00000EA0: 4C 03 99 22 20 20 58 3D 22 20 58 22 20 20 20 59 |L.." X=" X" Y|
00000EB0: 3D 22 20 59 22 20 20 20 58 2D 59 3D 22 58 AB 59 |=" Y" X-Y="X.Y|
00000EC0: 00 DD 16 4E 03 8B 20 58 20 B3 B1 20 59 20 A7 20 |...N.. X .. Y . |
00000ED0: 99 20 22 20 20 57 52 4F 4E 47 20 21 22 00 E3 16 |. " WRONG !"...|
00000EE0: 50 03 99 00 2B 17 52 03 99 22 49 20 46 49 4E 44 |P...+.R.."I FIND|
00000EF0: 20 49 4E 44 45 45 44 20 54 48 41 54 20 54 48 45 | INDEED THAT THE|
00000F00: 20 53 51 55 41 52 45 2D 52 4F 4F 54 20 4F 46 20 | SQUARE-ROOT OF |
00000F10: 31 30 30 20 49 53 20 12 4E 4F 54 92 20 45 51 55 |100 IS .NOT. EQU|
00000F20: 41 4C 20 54 4F 20 31 30 20 21 22 00 31 17 5C 03 |AL TO 10 !".1.\.|
00000F30: 99 00 49 17 5E 03 8B 20 59 24 20 B3 B1 20 22 59 |..I.^.. Y$ .. "Y|
00000F40: 45 53 22 20 A7 20 38 37 30 00 8F 17 61 03 99 20 |ES" . 870...a.. |
00000F50: 22 28 45 4E 54 45 52 20 50 52 4F 47 52 41 4D 53 |"(ENTER PROGRAMS|
00000F60: 20 4C 49 4E 45 53 20 57 49 54 48 20 43 55 52 53 | LINES WITH CURS|
00000F70: 4F 52 2C 20 54 48 45 4E 20 52 55 4E 20 27 32 35 |OR, THEN RUN '25|
00000F80: 27 20 54 4F 20 56 45 52 49 46 59 29 22 3A 90 00 |' TO VERIFY)":..|
00000F90: B3 17 66 03 99 22 44 4F 20 59 4F 55 20 57 41 4E |..f.."DO YOU WAN|
00000FA0: 54 20 54 4F 20 4B 4E 4F 57 20 57 48 59 20 4E 4F |T TO KNOW WHY NO|
00000FB0: 54 3F 22 00 D0 17 70 03 85 22 28 50 52 45 53 53 |T?"...p.."(PRESS|
00000FC0: 20 52 45 54 55 52 4E 20 4B 45 59 29 22 3B 4B 24 | RETURN KEY)";K$|
00000FD0: 00 F6 17 7C 03 99 22 91 C0 C0 C0 C0 C0 C0 C0 C0 |...|..".........|
00000FE0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000FF0: C0 C0 C0 C0 C0 22 00 19 18 84 03 99 22 42 45 43 |....."......"BEC|
00001000: 41 55 53 45 20 57 48 49 4C 45 20 49 20 50 52 49 |AUSE WHILE I PRI|
00001010: 4E 54 20 3A 58 3D 22 20 58 00 3C 18 8E 03 99 22 |NT :X=" X.<...."|
00001020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001030: 20 20 41 4E 44 3A 20 59 3D 22 20 59 00 83 18 98 | AND: Y=" Y....|
00001040: 03 99 3A 99 22 49 20 43 41 4C 43 55 4C 41 54 45 |..:."I CALCULATE|
00001050: 44 20 54 48 41 54 20 54 48 45 52 45 20 49 53 20 |D THAT THERE IS |
00001060: 41 20 44 49 46 46 45 52 45 4E 43 45 20 42 45 54 |A DIFFERENCE BET|
00001070: 57 45 45 4E 20 58 20 41 4E 44 20 59 20 4F 46 22 |WEEN X AND Y OF"|
00001080: 58 AB 59 00 89 18 AC 03 99 00 B9 18 B6 03 99 22 |X.Y............"|
00001090: 20 20 49 54 20 49 53 20 4F 4E 4C 59 20 2E 30 30 | IT IS ONLY .00|
000010A0: 30 30 30 30 30 30 33 37 32 35 32 39 30 33 20 20 |00000037252903 |
000010B0: 42 55 54 2E 2E 2E 2E 2E 22 00 06 19 C0 03 99 22 |BUT....."......"|
000010C0: 20 20 20 49 20 48 41 56 45 20 54 52 4F 55 42 4C | I HAVE TROUBL|
000010D0: 45 20 57 49 54 48 20 43 45 52 54 41 49 4E 20 44 |E WITH CERTAIN D|
000010E0: 45 43 49 4D 41 4C 20 20 20 20 20 46 52 41 43 54 |ECIMAL FRACT|
000010F0: 49 4F 4E 53 20 28 53 55 43 48 20 41 53 20 2E 33 |IONS (SUCH AS .3|
00001100: 33 33 33 33 29 22 00 0C 19 CA 03 99 00 33 19 D4 |3333)".......3..|
00001110: 03 85 20 22 28 50 52 45 53 53 20 52 45 54 55 52 |.. "(PRESS RETUR|
00001120: 4E 20 4B 45 59 20 54 4F 20 47 4F 20 4F 4E 29 22 |N KEY TO GO ON)"|
00001130: 3B 4B 24 00 3D 19 E8 03 99 22 93 11 22 00 5D 19 |;K$.=...."..".].|
00001140: EA 03 99 22 20 20 20 20 20 20 20 42 41 53 49 43 |..." BASIC|
00001150: 20 51 55 49 5A 5A 20 4E 4F 2E 20 36 22 00 63 19 | QUIZZ NO. 6".c.|
00001160: EC 03 99 00 70 19 ED 03 43 24 B2 C7 28 33 34 29 |....p...C$..(34)|
00001170: 00 92 19 F2 03 99 22 4D 59 20 4E 45 58 54 20 4E |......"MY NEXT N|
00001180: 45 58 54 20 50 52 4F 47 52 41 4D 20 49 53 3A 22 |EXT PROGRAM IS:"|
00001190: 3A 99 00 AD 19 FC 03 99 20 32 39 20 22 50 52 49 |:....... 29 "PRI|
000011A0: 4E 54 20 43 48 52 24 20 28 31 34 29 22 00 F3 19 |NT CHR$ (14)"...|
000011B0: 06 04 99 22 20 33 30 20 50 52 49 4E 54 22 3B 3A |..." 30 PRINT";:|
000011C0: 99 20 43 24 22 D4 C8 C5 20 D1 D5 C9 C3 CB 20 C2 |. C$"... ..... .|
000011D0: D2 CF D7 CE 20 C6 CF D8 20 CA D5 CD D0 C5 C4 20 |.... ... ...... |
000011E0: CF D6 C5 D2 20 D4 C8 C5 20 CC C1 DA D9 20 C4 CF |.... ... .... ..|
000011F0: C7 2E 22 00 F9 19 10 04 99 00 16 1A 1A 04 99 20 |.."............ |
00001200: 22 48 45 52 45 20 49 53 20 54 48 45 20 50 52 4F |"HERE IS THE PRO|
00001210: 42 4C 45 4D 3A 22 00 36 1A 1C 04 99 20 22 20 20 |BLEM:".6.... " |
00001220: 20 20 20 57 48 41 54 20 44 4F 45 53 20 49 54 20 | WHAT DOES IT |
00001230: 4D 45 41 4E 2C 22 00 56 1A 1E 04 99 20 22 20 41 |MEAN,".V.... " A|
00001240: 4E 44 20 48 4F 57 20 44 49 44 20 49 20 44 4F 20 |ND HOW DID I DO |
00001250: 54 48 41 54 3F 22 00 6F 1A 20 04 8B 20 59 24 20 |THAT?".o. .. Y$ |
00001260: B3 B1 20 22 59 45 53 22 20 A7 20 31 30 35 38 00 |.. "YES" . 1058.|
00001270: B4 1A 21 04 99 20 22 28 45 4E 54 45 52 20 50 52 |..!.. "(ENTER PR|
00001280: 4F 47 52 41 4D 20 4C 49 4E 45 53 20 57 49 54 48 |OGRAM LINES WITH|
00001290: 20 43 55 52 53 4F 52 2C 20 54 48 45 4E 20 52 55 | CURSOR, THEN RU|
000012A0: 4E 20 27 32 39 27 20 54 4F 20 56 45 52 49 46 59 |N '29' TO VERIFY|
000012B0: 29 22 3A 90 00 BA 1A 22 04 99 00 DB 1A 24 04 99 |)":....".....$..|
000012C0: 22 20 28 50 52 45 53 53 20 41 4E 59 20 4B 45 59 |" (PRESS ANY KEY|
000012D0: 20 54 4F 20 47 4F 20 4F 4E 29 22 00 F4 1A 26 04 | TO GO ON)"...&.|
000012E0: A1 20 4B 24 3A 20 8B 20 4B 24 B2 22 22 20 A7 20 |. K$: . K$."" . |
000012F0: 31 30 36 32 00 13 1B 2E 04 99 22 91 20 20 20 20 |1062......". |
00001300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001310: 20 11 22 00 36 1B 38 04 99 22 91 20 20 20 20 20 | .".6.8..". |
00001320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001330: 20 20 20 20 11 22 00 59 1B 3A 04 99 22 91 20 20 | .".Y.:..". |
00001340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001350: 20 20 20 20 20 20 20 11 22 00 7C 1B 3C 04 99 22 | .".|.<.."|
00001360: 91 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00001370: 20 20 20 20 20 20 20 20 20 20 11 22 00 9F 1B 3E | ."...>|
00001380: 04 99 22 91 20 20 20 20 20 20 20 20 20 20 20 20 |..". |
00001390: 20 20 20 20 20 20 20 20 20 20 20 20 20 11 22 00 | .".|
000013A0: AD 1B 42 04 99 22 91 91 91 91 91 91 22 00 B9 1B |..B.."......"...|
000013B0: 4C 04 99 20 C7 28 31 34 29 00 BF 1B 56 04 99 00 |L.. .(14)...V...|
000013C0: E2 1B 60 04 99 22 20 CE CF D7 20 C3 C1 CE 20 D9 |..`.." ... ... .|
000013D0: CF D5 20 D2 C5 C1 C4 20 CC C9 CE C5 20 33 30 20 |.. .... .... 30 |
000013E0: 3F 22 00 E8 1B 6A 04 99 00 09 1C 74 04 99 22 A0 |?"...j.....t..".|
000013F0: 28 D0 D2 C5 D3 D3 20 C1 CE D9 A0 CB C5 D9 A0 D4 |(..... .........|
00001400: CF A0 C7 CF A0 CF CE 29 22 00 20 1C 76 04 A1 20 |.......)". .v.. |
00001410: 4B 24 3A 8B 4B 24 B2 22 22 20 A7 20 31 31 34 32 |K$:.K$."" . 1142|
00001420: 00 4F 1C 78 04 99 22 91 C0 C0 C0 C0 C0 C0 C0 C0 |.O.x..".........|
00001430: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001440: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 00 |..............".|
00001450: 5C 1C 7A 04 99 20 C7 28 31 34 32 29 00 7E 1C 7E |\.z.. .(142).~.~|
00001460: 04 99 22 20 57 45 4C 4C 2C 20 49 54 27 53 20 52 |.." WELL, IT'S R|
00001470: 45 41 4C 4C 59 20 53 49 4D 50 4C 45 3A 22 00 A3 |EALLY SIMPLE:"..|
00001480: 1C 88 04 99 22 49 20 4A 55 53 54 20 54 59 50 45 |...."I JUST TYPE|
00001490: 44 20 53 48 49 46 54 45 44 20 4C 45 54 54 45 52 |D SHIFTED LETTER|
000014A0: 53 3B 22 00 C8 1C 8A 04 99 22 41 4E 44 20 54 48 |S;"......"AND TH|
000014B0: 45 59 20 43 41 4D 45 20 4F 55 54 20 41 53 20 53 |EY CAME OUT AS S|
000014C0: 59 4D 42 4F 4C 53 2E 22 00 F7 1C 8C 04 99 22 20 |YMBOLS."......" |
000014D0: 49 46 20 59 4F 55 20 52 45 41 4C 4C 59 20 57 41 |IF YOU REALLY WA|
000014E0: 4E 54 20 54 4F 20 43 4F 4E 46 55 53 45 20 59 4F |NT TO CONFUSE YO|
000014F0: 55 52 53 45 4C 46 22 00 42 1D 8E 04 99 22 20 53 |URSELF".B...." S|
00001500: 54 55 44 59 20 50 41 47 45 20 37 34 20 4F 46 20 |TUDY PAGE 74 OF |
00001510: 54 48 45 20 43 2D 36 34 20 50 52 4F 47 52 41 4D |THE C-64 PROGRAM|
00001520: 4D 45 52 27 53 20 20 52 45 46 45 52 45 4E 43 45 |MER'S REFERENCE|
00001530: 20 47 55 49 44 45 2E 20 48 41 56 45 20 46 55 4E | GUIDE. HAVE FUN|
00001540: 21 22 00 48 1D 92 04 99 00 5D 1D 94 04 81 20 54 |!".H.....].... T|
00001550: B2 31 20 A4 20 32 30 30 30 3A 82 20 54 00 69 1D |.1 . 2000:. T.i.|
00001560: 95 04 99 20 C7 28 31 34 29 00 7E 1D 96 04 81 20 |... .(14).~.... |
00001570: 54 B2 31 20 A4 20 31 30 30 30 3A 82 20 54 00 8B |T.1 . 1000:. T..|
00001580: 1D 97 04 99 20 C7 28 31 34 32 29 00 96 1D 99 04 |.... .(142).....|
00001590: 99 22 91 91 91 22 00 C1 1D 9C 04 85 22 20 28 50 |."..."......" (P|
000015A0: 52 45 53 53 20 52 45 54 55 52 4E 20 4B 45 59 20 |RESS RETURN KEY |
000015B0: 54 4F 20 43 4F 4E 54 49 4E 55 45 29 22 3B 20 4B |TO CONTINUE)"; K|
000015C0: 24 00 CB 1D B0 04 99 20 22 93 22 00 EB 1D C4 04 |$...... ".".....|
000015D0: 99 22 20 20 49 20 41 4D 20 47 45 54 54 49 4E 47 |." I AM GETTING|
000015E0: 20 54 4F 20 46 41 4E 43 59 3B 22 00 0A 1E C6 04 | TO FANCY;".....|
000015F0: 99 22 20 20 45 4E 4F 55 47 48 20 4F 46 20 54 48 |." ENOUGH OF TH|
00001600: 49 53 20 53 54 55 46 46 2E 22 00 39 1E CA 04 99 |IS STUFF.".9....|
00001610: 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |"...............|
00001620: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001630: C0 C0 C0 C0 C0 C0 C0 C0 22 00 3F 1E D8 04 9C 00 |........".?.....|
00001640: 86 1E E2 04 99 22 54 48 45 20 50 52 4F 47 52 41 |....."THE PROGRA|
00001650: 4D 20 4C 45 4E 47 54 48 20 57 41 53 3A 22 20 3B |M LENGTH WAS:" ;|
00001660: 20 33 38 39 30 39 20 AB 20 28 20 B8 28 31 29 20 | 38909 . ( .(1) |
00001670: AB 20 28 B8 28 31 29 20 B3 30 20 29 20 AC 20 36 |. (.(1) .0 ) . 6|
00001680: 35 35 33 36 20 29 00 BE 1E E4 04 99 22 20 20 46 |5536 )......" F|
00001690: 52 45 45 20 42 59 54 45 53 20 52 45 4D 41 49 4E |REE BYTES REMAIN|
000016A0: 49 4E 47 2E 22 3B 20 B8 28 31 29 20 AB 20 28 20 |ING."; .(1) . ( |
000016B0: B8 28 31 29 B3 30 29 AC 20 36 35 35 33 36 00 C4 |.(1).0). 65536..|
000016C0: 1E E7 04 99 00 02 1F EC 04 4A 31 20 B2 20 54 49 |.........J1 . TI|
000016D0: AD 32 31 36 30 30 30 3A 4A 32 B2 28 4A 31 AB B5 |.216000:J2.(J1..|
000016E0: 28 4A 31 29 20 29 20 AC 20 36 30 3A 4A 33 20 B2 |(J1) ) . 60:J3 .|
000016F0: 20 28 20 4A 32 AB B5 28 4A 32 29 20 29 20 AC 20 | ( J2..(J2) ) . |
00001700: 36 30 00 1A 1F EE 04 4A 58 B2 4A 33 3A 4A 33 20 |60.....JX.J3:J3 |
00001710: B2 20 B5 28 4A 58 AA 2E 35 29 00 41 1F F0 04 99 |. .(JX..5).A....|
00001720: 22 20 20 53 49 4E 43 45 20 59 4F 55 20 53 54 41 |" SINCE YOU STA|
00001730: 52 54 45 44 20 54 48 49 53 20 51 55 49 5A 5A 2C |RTED THIS QUIZZ,|
00001740: 22 00 69 1F F2 04 99 22 54 48 45 20 46 4F 4C 4C |".i...."THE FOLL|
00001750: 4F 57 49 4E 47 20 54 49 4D 45 53 20 48 41 53 20 |OWING TIMES HAS |
00001760: 45 4C 41 50 53 45 44 3A 22 00 6F 1F F6 04 99 00 |ELAPSED:".o.....|
00001770: 9E 1F F8 04 99 20 B5 28 4A 31 29 20 22 48 4F 55 |..... .(J1) "HOU|
00001780: 52 53 22 B5 28 4A 32 29 22 4D 49 4E 55 54 45 53 |RS".(J2)"MINUTES|
00001790: 22 28 4A 33 29 22 53 45 43 4F 4E 44 53 22 00 CD |"(J3)"SECONDS"..|
000017A0: 1F FA 04 99 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |...."...........|
000017B0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000017C0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 00 15 20 |............".. |
000017D0: 00 05 99 22 50 53 2E 3A 20 20 44 4F 20 59 4F 55 |..."PS.: DO YOU|
000017E0: 20 57 41 4E 54 20 54 4F 20 45 58 41 4D 49 4E 45 | WANT TO EXAMINE|
000017F0: 20 57 48 45 54 48 45 52 20 49 20 20 20 20 20 20 | WHETHER I |
00001800: 20 20 48 41 56 45 20 53 50 4F 4B 45 4E 20 54 52 | HAVE SPOKEN TR|
00001810: 55 45 20 3F 22 00 29 20 02 05 85 22 59 45 53 20 |UE ?".) ..."YES |
00001820: 4F 52 20 4E 4F 22 3B 59 24 00 5F 20 04 05 8B 20 |OR NO";Y$._ ... |
00001830: 59 24 20 B3 B1 20 22 59 45 53 22 20 AF 20 59 24 |Y$ .. "YES" . Y$|
00001840: 20 B3 B1 20 22 4E 4F 22 20 A7 20 99 20 22 54 52 | .. "NO" . . "TR|
00001850: 59 20 41 47 41 49 4E 22 3A 89 20 31 32 38 32 00 |Y AGAIN":. 1282.|
00001860: 89 20 0A 05 99 22 20 20 20 D3 20 20 20 20 20 20 |. ..." . |
00001870: 20 20 D3 20 20 20 20 45 4E 44 20 20 20 D3 20 20 | . END . |
00001880: 20 20 20 20 20 20 20 D3 22 00 A8 20 0C 05 99 22 | .".. ..."|
00001890: 20 20 20 20 20 20 20 20 20 20 20 20 D3 20 20 20 | . |
000018A0: 20 37 33 20 20 20 D3 22 00 AE 20 0E 05 99 00 DB | 73 .".. .....|
000018B0: 20 10 05 99 22 20 20 41 55 20 52 45 56 4F 49 52 | ..." AU REVOIR|
000018C0: 20 20 46 52 4F 4D 20 59 4F 55 52 20 46 52 49 45 | FROM YOUR FRIE|
000018D0: 4E 44 4C 59 20 43 2D 36 34 2E 22 00 E1 20 13 05 |NDLY C-64.".. ..|
000018E0: 80 00 EA 20 14 05 99 22 93 22 00 10 21 1E 05 99 |... ..."."..!...|
000018F0: 22 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 46 4F |"INSTRUCTIONS FO|
00001900: 52 20 54 52 55 45 20 48 41 43 4B 45 52 53 3A 22 |R TRUE HACKERS:"|
00001910: 00 16 21 28 05 99 00 39 21 32 05 99 22 57 48 45 |..!(...9!2.."WHE|
00001920: 4E 45 56 45 52 20 41 20 27 42 52 45 41 4B 27 20 |NEVER A 'BREAK' |
00001930: 4F 43 43 55 52 45 53 2C 22 00 3F 21 3C 05 99 00 |OCCURES,".?!<...|
00001940: 6A 21 46 05 99 22 31 2E 20 47 4F 20 55 50 20 57 |j!F.."1. GO UP W|
00001950: 49 54 48 20 43 55 52 53 4F 52 20 54 4F 20 54 48 |ITH CURSOR TO TH|
00001960: 45 20 54 4F 50 4D 4F 53 54 22 00 87 21 48 05 99 |E TOPMOST"..!H..|
00001970: 22 4E 55 4D 42 45 52 45 44 20 50 52 4F 47 52 41 |"NUMBERED PROGRA|
00001980: 4D 20 4C 49 4E 45 22 00 B6 21 4A 05 99 22 32 2E |M LINE"..!J.."2.|
00001990: 20 48 49 54 20 54 48 45 20 52 45 54 55 52 4E 20 | HIT THE RETURN |
000019A0: 4B 45 59 20 46 4F 52 20 45 41 43 48 20 4E 55 4D |KEY FOR EACH NUM|
000019B0: 42 45 52 45 44 22 00 CA 21 4C 05 99 22 50 52 4F |BERED"..!L.."PRO|
000019C0: 47 52 41 4D 20 4C 49 4E 45 22 00 07 22 4E 05 99 |GRAM LINE".."N..|
000019D0: 22 33 2E 20 49 4E 50 4F 52 54 41 4E 54 3A 20 44 |"3. INPORTANT: D|
000019E0: 4F 20 4E 4F 54 20 48 49 54 20 54 48 45 20 52 45 |O NOT HIT THE RE|
000019F0: 54 55 52 4E 20 4B 45 59 20 41 4E 59 20 46 55 52 |TURN KEY ANY FUR|
00001A00: 54 48 45 52 20 21 22 00 31 22 50 05 99 22 34 2E |THER !".1"P.."4.|
00001A10: 20 4D 4F 56 45 20 43 55 52 53 4F 52 20 44 4F 57 | MOVE CURSOR DOW|
00001A20: 4E 20 42 45 4C 4F 57 20 27 52 45 41 44 59 2E 27 |N BELOW 'READY.'|
00001A30: 22 00 37 22 52 05 99 00 5E 22 54 05 99 22 54 48 |".7"R...^"T.."TH|
00001A40: 45 20 4E 55 4D 42 45 52 45 44 20 51 55 49 5A 20 |E NUMBERED QUIZ |
00001A50: 4C 49 4E 45 53 20 41 52 45 20 4E 4F 57 22 00 8D |LINES ARE NOW"..|
00001A60: 22 56 05 99 22 45 4E 54 45 52 45 44 20 42 45 54 |"V.."ENTERED BET|
00001A70: 57 45 45 4E 20 4C 49 4E 45 53 20 31 30 20 41 4E |WEEN LINES 10 AN|
00001A80: 44 20 33 30 20 41 53 20 50 41 52 54 22 00 A9 22 |D 30 AS PART".."|
00001A90: 58 05 99 22 4F 46 20 54 48 45 20 4D 41 49 4E 20 |X.."OF THE MAIN |
00001AA0: 50 52 4F 47 52 41 4D 2E 22 00 CC 22 5C 05 99 22 |PROGRAM.".."\.."|
00001AB0: 28 4C 41 54 45 52 2C 20 27 4C 49 53 54 2D 33 30 |(LATER, 'LIST-30|
00001AC0: 27 20 41 4E 44 20 53 45 45 2E 29 22 00 15 23 5E |' AND SEE.)"..#^|
00001AD0: 05 99 22 4E 4F 57 3A 20 27 52 55 4E 20 31 30 27 |.."NOW: 'RUN 10'|
00001AE0: 20 4F 52 20 31 32 20 4F 52 20 31 37 20 4F 52 20 | OR 12 OR 17 OR |
00001AF0: 32 35 20 4F 52 20 32 39 20 41 53 20 49 4E 44 49 |25 OR 29 AS INDI|
00001B00: 43 41 54 45 44 20 4F 4E 20 54 48 45 20 53 43 52 |CATED ON THE SCR|
00001B10: 45 45 4E 2E 22 00 42 23 64 05 99 22 5B 27 52 55 |EEN.".B#d.."['RU|
00001B20: 4E 20 32 30 27 20 57 49 4C 4C 20 48 41 4E 47 2D |N 20' WILL HANG-|
00001B30: 55 50 20 4F 46 20 43 4F 55 52 53 45 20 21 5B 5D |UP OF COURSE ![]|
00001B40: 5D 22 00 48 23 66 05 99 00 8A 23 68 05 99 22 52 |]".H#f....#h.."R|
00001B50: 45 4D 45 4D 42 45 52 2C 20 54 4F 20 45 4E 54 45 |EMEMBER, TO ENTE|
00001B60: 52 20 54 48 45 20 50 52 4F 42 4C 45 4D 53 20 54 |R THE PROBLEMS T|
00001B70: 48 49 53 20 57 41 59 20 4A 55 53 54 20 20 27 52 |HIS WAY JUST 'R|
00001B80: 55 4E 20 31 33 30 30 27 2E 22 00 90 23 6A 05 99 |UN 1300'."..#j..|
00001B90: 00 AC 23 78 05 43 24 20 B2 20 C7 28 33 34 29 20 |..#x.C$ . .(34) |
00001BA0: 3A 20 54 24 20 B2 20 22 59 45 53 22 00 DB 23 82 |: T$ . "YES"..#.|
00001BB0: 05 99 22 4F 2E 4B 2E 20 20 57 48 49 43 48 20 51 |.."O.K. WHICH Q|
00001BC0: 55 49 5A 5A 20 44 4F 20 59 4F 55 20 57 41 4E 54 |UIZZ DO YOU WANT|
00001BD0: 20 54 4F 20 43 48 45 43 4B 3A 22 00 04 24 8C 05 | TO CHECK:"..$..|
00001BE0: 85 22 51 55 49 5A 5A 20 4E 55 4D 42 45 52 20 28 |."QUIZZ NUMBER (|
00001BF0: 42 45 54 57 45 45 4E 20 31 20 41 4E 44 20 36 29 |BETWEEN 1 AND 6)|
00001C00: 22 3B 4E 25 00 2C 24 A0 05 91 20 4E 25 20 89 20 |";N%.,$... N% . |
00001C10: 35 34 2C 31 30 30 2C 33 30 30 2C 36 30 30 2C 38 |54,100,300,600,8|
00001C20: 30 30 2C 31 30 30 30 2C 31 34 35 30 00 37 24 AA |00,1000,1450.7$.|
00001C30: 05 89 20 31 32 39 30 00 00 00 |.. 1290... |
....... [DR. SHILLING 4/10/84].F....: BA
SIC QUIZZ FOR WOULD-BE HACKERS.S...C$.G(
34).F...TI$ . "000000".R...Y$ . ""......
[TO RUN THE QUIZZ, JUST 'RUN']...... [T
O EXAMINE PROBLEMS, 'RUN 1300'].H.... 50
...... (LINES 10-30 ARE RESERVED)...1...
..2..".".$.4.."I AM YOUR USER-FRIENDLY C
OMMODORE-64".*.6...J.8.." BASIC QU
IZZ NO. 1".P.:...N.<.."MY FIRST PROGRAM
IS:":....>.." 10 A% = 33000 "...@.." 1
1 ? A% ".G.B..:."BUT WHEN YOU RUN IT, I
WILL TELL YOU:".M.D.....F.. "? ILLEGAL Q
UANTITY ERROR IN 10"...G.. Y$ .. "YES" .
74.P.H.." (ENTER PROGRAM LINES WITH CUR
SOR, THEN RUN '10' TO VERIFY)":..R.J..:.
"DO YOU WANT TO KNOW WHY?"...L.." (PRESS
RETURN KEY)";K$...N..".................
................."...P..:."I CAN'T HANDL
E INTEGERS LARGER"...R.." THAN 32767 -
THAT'S WHY."...T...6.V.." (PRESS RETUR
N KEY TO CONTINUE)";K$.@.D.."..".`.F.."
BASIC QUIZZ NO. 2".F.H.....N.."MY
NEXT PROGRAM IS:":....X.." 12 DIM F (10
), G (20)"......" 13 DIM F1 % (11)"....
.." 14 DIM F3 (1,2,3,4,5,6)"......" 15
DIM FF1 (5)"... .." 16 DIM FF2 (55)"..
.....0...."HERE IS THE PROBLEM:".M...."
IF YOU TYPE 'RUN 12' I WILL GIVE YOU
THE MESSAGE:"...H.." ? REDIM'D ARRAY ER
ROR IN 16"...J.. Y$ .. "YES" . 210...M..
(ENTER PROGRAM LINES WITH CURS., . . '1
2' . .):....R..:."WHY? WHAT'S WRONG?".%
...."(PRESS RETURN KEY FOR ANSWER";K$.T.
..."....................................
...".Z.........."SORRY, BUT I CAN READ O
NLY THE FIRST TWO CHARACTERS OF ANY VARI
ABLE.".O...." FF1 AND FF2 ARE THE SAME
TO ME!"......"(AND YOU MUST NOT DIMENSIO
N A VARIABLE MORE THAN ONCE).".......<.
".." (PRESS RETURN KEY TO GO ON)";K$.F.,
.."..".F...." BASIC QUIZZ NO. 3".L
.0.....6.."MY NEXT PROGRAM IS:":....@..
17"CLYDE = 999:? CLYDE".R.J.. 18"GER $ =
"C$ "GERRY" C$ ":? GER $"...T.. 19"LOR
$ = "C$ "LORNA" C$ ":? LOR $"...^... .H.
. "HERE IS THE PROBLEM:".O.R.. " IF YO
U TYPE 'RUN 17' I WILL PRINT:".U.|...O.
..CLYDE . 999 : . CLYDE.....GER$ . "GERR
Y" : . GER$......"?SYNTAX ERROR IN 19"..
.....O.B.. " W H Y ?? WHAT'S WRONG?".
U.L.....N.. Y$ .. "YES" . 470.1.Q.." (EN
TER PROGRAM LINES WITH CURSOR, THEN RUN
'17' TO VERIFY":..X.V.." (PRESS RETURN K
EY TO GO ON)";K$......".................
................."............ "LOR $ CO
NTAINS THE BASIC KEYWORD 'OR'!"...... "
THE SAME THING WOULD HAPPEN, IF YOU
USED, FOR EXAMPLE,".,.... " 'LAND' INS
TEAD OF 'CLYDE' IN LINE 17.".P.... " (PR
ESS RETURN TO GO ON)";K$.[.X.. "..".{.Z.
. " BASIC QUIZZ NO.4"...B.. "MY NE
XT PROGRAM IS:"...D...E.V.."20 INPUT" C
$ "YES OR NO" C$"; Y$......"21 IF Y$ <>
" C$ "YES" C$ " OR Y$ <> " C$ "NO" C$ "
THEN 20".J...."22 IF Y$ <> " C$ "YES" C$
"AND Y$ <> " C$ "NO" C$ "THEN 20"......
"23 IF Y$ = " C$ "YES" C$ " OR Y$ = " C
$ "NO" C$ " THEN 20".K...."24 IF Y$ = "C
$ "YES" C$ "AND Y$ = " C$ "NO" C$ "THEN
20".Q.......... "HERE IS THE PROBLEM:"..
.F..:. "YOU WANT TO MAKE SURE THAT NOTHI
NG BUT".H.H.." EITHER 'YES' OR 'NO' IS
ENTERED".E.J.." AS 'Y$' IN LINE 20."...
L.."IF NOT, ASK FOR INPUT AGAIN."...N...
V.P.." WHICH IS CORRECT, LINE 21, OR LIN
E 22, OR LINE 23, OR LINE 24?"..........
.. Y$ .. "YES" . 750.8...." (ENTER WITH
CURSOR, BUT DO NOT RUN '20'. IT WILL HAN
G-UP !)".L.... "READY FOR THR ANSWER? (P
RESS RETURN KEY)";K$......".............
...........................".E...." O N
L Y LINE 22 IS CORRECT!:".K.........
."WARNING: IF YOU TRY OTHERS, WATCH OUT;
".&...." I MAY HANG UP YOUR PROGRAM WITH
SOME".D...." OR THE OTHER LINES...".L..
.." (PRESS RETURN KEY TO GO ON)"; K$.U.
.."."...*.." BASIC QUIZZ NO. 5"...
4.."MY NEXT PROGRAM IS:"...6...X.8.." 2
5 X = SQR(100) : Y = 10".%.:.." 26 PRIN
T " C$ "X=" C$ "X " C$ " Y=" C$ "Y " C$
" X-Y=" C$ " X - Y".Z.<.." 27 IF X <.
Y THEN PRINT " ; : . C$ "WRONG !".`.>..
...@.."IF I 'RUN' I PRINT AS FOLLOWS:"..
.J.X . .(100): Y . 10...L.." X=" X" Y
=" Y" X-Y="X.Y...N.. X .. Y . . " WRO
NG !"...P...+.R.."I FIND INDEED THAT THE
SQUARE-ROOT OF 100 IS .NOT. EQUAL TO 10
!".1.\...I.^.. Y$ .. "YES" . 870...A..
"(ENTER PROGRAMS LINES WITH CURSOR, THEN
RUN '25' TO VERIFY)":....F.."DO YOU WAN
T TO KNOW WHY NOT?".P.P.."(PRESS RETURN
KEY)";K$...|..".........................
....."......"BECAUSE WHILE I PRINT :X="
X.<...." AND: Y=" Y....
..:."I CALCULATED THAT THERE IS A DIFFER
ENCE BETWEEN X AND Y OF"X.Y............"
IT IS ONLY .0000000037252903 BUT.....
"......" I HAVE TROUBLE WITH CERTAIN D
ECIMAL FRACTIONS (SUCH AS .33333)"..
.J...3.T.. "(PRESS RETURN KEY TO GO ON)"
;K$.=...."..".]...." BASIC QUIZZ N
O. 6".C.....P...C$.G(34)......"MY NEXT N
EXT PROGRAM IS:":....... 29 "PRINT CHR$
(14)"......" 30 PRINT";:. C$"THE QUICK B
ROWN FOX JUMPED OVER THE LAZY DOG.".....
....... "HERE IS THE PROBLEM:".6.... "
WHAT DOES IT MEAN,".V.... " AND HOW D
ID I DO THAT?".O. .. Y$ .. "YES" . 1058.
..!.. "(ENTER PROGRAM LINES WITH CURSOR,
THEN RUN '29' TO VERIFY)":....".....$..
" (PRESS ANY KEY TO GO ON)"...&.. K$: .
K$."" . 1062......".
.".6.8..". .".Y
.:..". .".|.<.."
. ."...>..".
."...B.."......"...
L.. G(14)...V.....`.." NOW CAN YOU READ
LINE 30 ?"...J.....T.." (PRESS ANY KEY T
O GO ON)". .V.. K$:.K$."" . 1142.O.X..".
......................................".
\.Z.. G(142).~.~.." WELL, IT'S REALLY SI
MPLE:"......"I JUST TYPED SHIFTED LETTER
S;".H...."AND THEY CAME OUT AS SYMBOLS."
......" IF YOU REALLY WANT TO CONFUSE YO
URSELF".B...." STUDY PAGE 74 OF THE C-64
PROGRAMMER'S REFERENCE GUIDE. HAVE FUN
!".H.....].... T.1 . 2000:. T.I.... G(14
).~.... T.1 . 1000:. T...... G(142).....
."...".A...." (PRESS RETURN KEY TO CONTI
NUE)"; K$.K.... "."...D.." I AM GETTING
TO FANCY;"...F.." ENOUGH OF THIS STUFF
.".9.J.."...............................
........".?.X........"THE PROGRAM LENGTH
WAS:" ; 38909 . ( .(1) . (.(1) .0 ) . 6
5536 )......" FREE BYTES REMAINING."; .
(1) . ( .(1).0). 65536.D.........J1 . TI
.216000:J2.(J1..(J1) ) . 60:J3 . ( J2..(
J2) ) . 60.....JX.J3:J3 . .(JX..5).A....
" SINCE YOU STARTED THIS QUIZZ,".I...."
THE FOLLOWING TIMES HAS ELAPSED:".O.....
..... .(J1) "HOURS".(J2)"MINUTES"(J3)"SE
CONDS".M...."...........................
............".. ..."PS.: DO YOU WANT TO
EXAMINE WHETHER I HAVE SPOKEN TR
UE ?".) ..."YES OR NO";Y$._ ... Y$ .. "Y
ES" . Y$ .. "NO" . . "TRY AGAIN":. 1282.
. ..." S S END S S
".. ..." S 73 S".. .....
..." AU REVOIR FROM YOUR FRIENDLY C-6
4.".. ..... ..."."..!..."INSTRUCTIONS FO
R TRUE HACKERS:"..!(...9!2.."WHENEVER A
'BREAK' OCCURES,".?!<...J!F.."1. GO UP W
ITH CURSOR TO THE TOPMOST"..!H.."NUMBERE
D PROGRAM LINE"..!J.."2. HIT THE RETURN
KEY FOR EACH NUMBERED".J!L.."PROGRAM LIN
E".."N.."3. INPORTANT: DO NOT HIT THE RE
TURN KEY ANY FURTHER !".1"P.."4. MOVE CU
RSOR DOWN BELOW 'READY.'".7"R...^"T.."TH
E NUMBERED QUIZ LINES ARE NOW".."V.."ENT
ERED BETWEEN LINES 10 AND 30 AS PART".."
X.."OF THE MAIN PROGRAM.".L"\.."(LATER,
'LIST-30' AND SEE.)"..#^.."NOW: 'RUN 10'
OR 12 OR 17 OR 25 OR 29 AS INDICATED ON
THE SCREEN.".B#D.."['RUN 20' WILL HANG-
UP OF COURSE ![]]".H#F....#H.."REMEMBER,
TO ENTER THE PROBLEMS THIS WAY JUST 'R
UN 1300'."..#J....#X.C$ . G(34) : T$ . "
YES"..#..."O.K. WHICH QUIZZ DO YOU WANT
TO CHECK:"..$..."QUIZZ NUMBER (BETWEEN
1 AND 6)";N%.,$ .. N% . 54,100,300,600,8
00,1000,1450.7$... 1290...
> CLICK IMAGE PREVIEW FOR FULL MODAL