Run Magazine ReRun 1988 November & December/rerun-1988-11-12.d64/facts

Commodore BASIC | 2022-09-20 | 10KB | 158 lines

1 rem c64 hex loader
2 open 8,8,8,"prestrivia,s,w"
3 read a$:if a$="-1" then close8:end
4 if len(a$)<62 then 12
5 b$=mid$(a$,1,20)+mid$(a$,22,20)+mid$(a$,43,20)
6 for i=1 to 30
7 c$=mid$(b$,(i*2)-1,2):h$=left$(c$,1):l$=right$(c$,1)
8 h=val(h$):if h$>"9" then h=asc(h$)-55
9 l=val(l$):if l$>"9" then l=asc(l$)-55
10 by=h*16+l:print#8,chr$(by);
11 next:goto 3
12 if len(a$)<21 then b$=a$:goto 15
13 if len(a$)<42 then b$=left$(a$,20)+right$(a$,(len(a$)-21)):goto 15
14 b$=left$(a$,20)+mid$(a$,22,20)+right$(a$,len(a$)-42)
15 for i=1 to len(b$)/2
16 c$=mid$(b$,(i*2)-1,2):h$=left$(c$,1):l$=right$(c$,1)
17 h=val(h$):if h$>"9" then h=asc(h$)-55
18 l=val(l$):if l$>"9" then l=asc(l$)-55
19 by=h*16+l:print#8,chr$(by);
20 next:goto 3
21 rem 101 trivia questions
22 data 505245534944454e5449 414c0d34300d47454f52 47452057415348494e47
23 data 544f4e0d4a4f484e2041 44414d530d54484f4d41 53204a4546464552534f
24 data 4e0d4a414d4553204d41 4449534f4e0d4a414d45 53204d4f4e524f450d4a
25 data 4f484e205155494e4359 204144414d530d414e44 524557204a41434b534f
26 data 4e0d4d415254494e2056 414e20425552454e0d57 494c4c49414d2048454e
27 data 5259204841525249534f 4e0d4a4f484e2054594c 45520d4a414d45532050
28 data 4f4c4b0d5a4143484152 59205441594c4f520d4d 494c4c4152442046494c
29 data 4c4d4f52450d4652414e 4b4c494e205049455243 450d4a414d4553204255
30 data 4348414e414e0d414252 4148414d204c494e434f 4c4e0d414e4452455720
31 data 4a4f484e534f4e0d554c 5953534553204752414e 540d525554484552464f
32 data 52442048415945530d4a 414d4553204741524649 454c440d434845535445
33 data 52204152544855520d47 524f56455220434c4556 454c414e440d42454e4a
34 data 414d494e204841525249 534f4e0d47524f564552 20434c4556454c414e44
35 data 0d57494c4c49414d204d 434b494e4c45590d5448 454f444f524520524f4f
36 data 534556454c540d57494c 4c49414d20544146540d 574f4f44524f57205749
37 data 4c534f4e0d5741525245 4e2048415244494e470d 43414c56494e20434f4f
38 data 4c494447450d48455242 45525420484f4f564552 0d4652414e4b4c494e20
39 data 524f4f534556454c540d 4841525259205452554d 414e0d44574947485420
40 data 454953454e484f574552 0d4a4f484e204b454e4e 4544590d4c594e444f4e
41 data 204a4f484e534f4e0d52 494348415244204e4958 4f4e0d474552414c4420
42 data 464f52440d4a414d4553 204341525445520d524f 4e414c44205245414741
43 data 4e0d3130310d46495253 542053574f524e20494e 20425920484953204641
44 data 544845520d33300d4153 53415353494e41544544 204259204c454f4e2043
45 data 5a4f4c474f535a0d3235 0d484144204849532055 50504552204c45465420
46 data 4a41572052454d4f5645 440d32340d574153204d 41525249454420494e20
47 data 574849544520484f5553 450d32320d4649525354 20424f524e20494e2056
48 data 45524d4f4e540d32310d 4649525354204c454654 2d48414e444544205052
49 data 45534944454e540d3230 0d464952535420544f20 56495349542057455354
50 data 20434f4153540d31390d 464952535420424f524e 20494e204f48494f0d31
51 data 380d464952535420424f 524e20494e2050454e4e 53594c56414e49410d31
52 data 350d464952535420424f 524e20494e2031395448 2043454e545552590d31
53 data 340d464952535420424f 524e20494e204e455720 48414d5053484952450d
54 data 31340d48495320565020 574153204d494c4c4152 442046494c4c4d4f5245
55 data 0d31320d464952535420 424f524e20494e204e4f 525448204341524f4c49
56 data 4e410d31310d46495253 5420544f204d41525259 204f4e20484953204249
57 data 5254484441590d31300d 464952535420424f524e 20494e204e455720594f
58 data 524b0d380d4649525354 20544f20484156452041 20535445504d4f544845
59 data 520d31330d4649525354 20544f20555345204120 574f52442050524f4345
60 data 53534f520d33390d4845 2057415320424f524e20 4c45534c4945204b494e
61 data 47204a522e0d33380d52 455349474e4544205749 54484f555420434f4d50
62 data 4c4554494e4720484953 205445524d0d33370d54 48452054414c4c455354
63 data 20505245534944454e54 0d31360d544845202246 4154484552204f462054
64 data 484520434f4e53544954 5554494f4e0d340d5748 49544520484f55534520
65 data 4255524e454420445552 494e4720505245534944 454e43590d340d544845
66 data 204f4e4c592050524553 4944454e54204e455645 5220544f204d41525259
67 data 0d31350d544845205348 4f525445535420505245 534944454e540d340d54
68 data 484520594f554e474553 5420505245534944454e 540d32360d4649525354
69 data 20505245534944454e54 20544f20564953495420 524544204348494e410d
70 data 33370d54484520464952 535420524f4d414e2043 4154484f4c4943205052
71 data 45534944454e540d3335 0d484520574153204341 4c4c454420224f4c4420
72 data 524f55474820414e4420 5245414459220d31320d 4845204445434c415245
73 data 4420574152204f4e204d 455849434f0d31320d48 4144205448452053484f
74 data 52544553542050524553 4944454e5449414c2054 45524d0d390d54484520
75 data 4f4e4c59205052455349 44454e5420544f204245 20494d50454143484544
76 data 0d31370d4b4e4f574e20 41532054484520225341 4745204f46204d4f554e
77 data 54205645524e4f4e220d 310d4e45564552204348 4f53454e204259204e41
78 data 54494f4e414c20454c45 4354494f4e0d33380d50 554c49545a4552205052
79 data 495a452057494e4e494e 4720505245534944454e 540d33350d2246495253
80 data 5420494e20574152202d 20464952535420494e20 5045414345220d310d4e
81 data 45564552204c49564544 20494e2057415348494e 47544f4e20442e432e0d
82 data 310d464952535420544f 20424520424f524e2049 4e2041204c4f47204341
83 data 42494e0d370d46495253 5420544f205249444520 4f4e2041205241494c52
84 data 4f414420545241494e0d 370d4e49434b4e414d45 44202254495050454341
85 data 4e4f45220d390d464952 535420224441524b2048 4f525345222043414e44
86 data 494441544520454c4543 5445440d31310d464952 53542050524553494445
87 data 4e5420544f2057454152 20412042454152440d31 360d4649525354205052
88 data 45534944454e5420544f 20424520415353415353 494e415445440d31360d
89 data 4e49434b4e414d454420 22554e434f4e44495449 4f4e414c205355525245
90 data 4e444552220d31380d4c 4f5354205245454c4543 54494f4e20414e44204c
91 data 41544552205245454c45 435445440d32320d4649 52535420544f20474554
92 data 20544845204e4f42454c 20504541434520505249 5a450d32360d46495253
93 data 5420544f205249444520 494e20414e204155544f 4d4f42494c450d32360d
94 data 464952535420544f2052 49444520494e20414e20 414952504c414e450d32
95 data 360d464952535420544f 204f50454e2054484520 4241534542414c4c2053
96 data 4541534f4e0d32370d31 53542042555249454420 41542041524c494e4754
97 data 4f4e2043454d45544552 590d32370d3153542054 4f2043524f5353204154
98 data 4c414e54494320445552 494e47205445524d0d32 380d464952535420544f
99 data 20415050454152204f4e 2054454c45564953494f 4e0d33320d4649525354
100 data 2054484952442d544552 4d20505245534944454e 540d33320d4845205052
101 data 4f504f534544204d4541 544c4553532054554553 444159530d33330d5448
102 data 45202253414745204f46 204d4f4e544943454c4c 4f220d330d4845205741
103 data 53204b4e4f574e204153 20224f4c44204849434b 4f5259220d370d4b4e4f
104 data 574e2041532054484520 5645544f205052455349 44454e540d31370d5448
105 data 4520224845524f204f46 204150504f4d4154544f 58220d31380d54484520
106 data 2242554c4c204d4f4f53 45222050524553494445 4e540d32360d48452057
107 data 415320544845204f4c44 45535420505245534944 454e540d34300d484520
108 data 57415320544845204845 41564945535420505245 534944454e540d32370d
109 data 4445504943544544204f 4e205448452046494654 5920444f4c4c41522042
110 data 494c4c0d31380d464952 535420424f592053434f 555420544f2042452050
111 data 5245534944454e540d33 350d4845204d41444520 464c4f52494441205448
112 data 45203237544820535441 54450d31300d41445649 534f5253205745524520
113 data 22544845204b49544348 454e20434142494e4554 220d370d224641544845
114 data 52204f46205448452055 4e49562e204f46205649 5247494e4941220d330d
115 data 4c4541524e454420544f 20575249544520574845 4e203137205945415253
116 data 204f4c440d31370d4845 20574153204120464f52 4d455220484f4c4c5957
117 data 4f4f44204143544f520d 34300d4845204c415445 52204245434f4d452043
118 data 48494546204a55535449 43450d32370d41545441 434b4544204259204120
119 data 5357494d4d494e472052 41424249540d33390d48 495320534f4e20414c53
120 data 4f20424543414d452050 5245534944454e540d32 0d4f4e4c592050524553
121 data 4944454e5420454c4543 54454420554e414e494d 4f55534c590d310d4849
122 data 53204641544845522057 415320414c534f205052 45534944454e540d360d
123 data 48495320455354415445 20574153204b4e4f574e 20415320224845524d49
124 data 54414745220d370d4b4e 4f574e20415320544845 20224c4954544c45204d
125 data 4147494349414e220d38 0d484520534552564544 20464f52204f4e4c5920
126 data 333120444159530d3