home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
commodore-users-of-norman
/
CUON_28_(10-1984).d64
/
gazette
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2019-04-13
|
5KB
|
127 lines
5 PRINT"[147]";:POKE53280,15:POKE53281,15
10 FORI=0TO479:READA:POKE1024+I,A:POKE55296+I,0:NEXT
20 PRINT"[200][197][210][197]'[211] [200][207][215] [212][207] [199][197][212] [205][207][210][197] [198][210][207][205] [217][207][213][210] 64
30 [153]"CLRORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^
40 PRINT"[221]* [205]ORE [198]UN: WITH SUCH NEW GAME [221]"
50 PRINT"[221] EXCITEMENT AS [205]ARTIAN [208]RISON- [221]
60 [153]"(null) ER, (null)HE (null)IPER, (null)KY STR$IVER, (null)
70 PRINT"[221] [211]NAKE [197]SCAPE, AND [196]EMON [211]TAR [221]
80 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP
85 PRINT" "
87 PRINT" "
90 GOSUB2000
100 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
110 [153]"(null)* (null)ORE LENHALLENGE: (null)EADY TO (null)
120 PRINT"[221] TACKLE MORE ADVANCED PROJECTS?[221]
130 [153]"(null) RIGHT$N LEN(null)(null)(null)(null)(null)VAL!'S CHR$AZETTE, YOU'LL (null)
140 PRINT"[221] LEARN [200]OW TO [213]SE [212]APE AND [196]ISK[221]
150 [153]"(null) ASCILES, LEFT$OW (null)O (null)ROGRAM (null)HE (null)
160 PRINT"[221] [198]UNCTION [203]EYS. [215]RITING [212]RANS-[221]
170 [153]"(null) PORTABLE PEEKATN(null)RIGHT$LEN. CLOSE(null)EW (null)AYS TO (null)
180 PRINT"[221] [197]NLIVEN [215]ITH [211]OUND. [200]OW TO [221]
190 [153]"(null) (null)SE (null)ACHINE (null)ANGUAGE. (null)
200 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";
210 GOSUB2000
215 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
217 [153]"(null) *(null)ORE (null)ROGRAMS:FROM 64 (null)EARCHER(null)
220 PRINT"[221] TO [214][201][195]/64 [208]ROGRAM [204]IFESAVER; [221]
230 [153]"(null) FROM (null)UICKFIND TO STR$ISK (null)ENU & (null)
240 PRINT"[221] [193]UTOMATIC [208]ROOFREADER AND MORE.[221]
250 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP
255 FORI=1TO5
260 PRINT" "
270 NEXT
280 GOSUB2000
285 PRINT"[129][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
290 [153]"(null)* (null)ORE PEEKUYING CHR$UIDANCE: (null)OU'LL (null)
300 PRINT"[221] PROFIT FROM COMPREHENSIVE [221]
310 [153]"(null) REVIEWS OF EVERYTHING FROM (null)
320 PRINT"[221] GAMES TO WORD PROCESSORS TO [221]
330 [153]"(null) PRINTERS, MODEMS, AND DISK (null)
340 PRINT"[221] DRIVES. [221]
350 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP";
360 [141]2000
370 [153]"VERIFYORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^
380 PRINT"[221][211][213][194][211][195][210][201][194][197] [206][207][215] [212][207] [195][207][205][208][213][212][197]'[211] [221]
390 [153]"(null)CHR$ATN(null)VAL(null)(null)VAL ATN(null)STR$ (null)(null)ATN(null)(null) (null)VALLENVALRIGHT$(null)RIGHT$(null)CHR$ (null)
400 PRINT"[221][197][214][197][210][217] [201][206][198][207][210][205][193][212][201][207][206]-[208][193][195][203][197][196] [201][211][211][213][197]! [221]
410 [153]"(null)(null)O ORDER YOUR SUBSCRIPTION OR A (null)
420 PRINT"[221]SAMPLE ISSUE, CALL [212][207][204][204]-[198][210][197][197] [221]
430 [153]"(null)800-334-0868 (IN (null).LEN. CALL (null)
440 PRINT"[221]919-275-9809.) [221]
450 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP";:[141]2000:[141]2000
460 [153]"POKEORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^
470 PRINT"[221]1 YR.(12 ISSUES)-$24.00-[211]AVE $11[221]
480 [153]"(null)2 YR.(24 ISSUES)-$45.00-(null)AVE $25(null)
490 PRINT"[221]3 YR.(36 ISSUES)-$65.00-[211]AVE $41[221]
500 [153]"(null)(null)INGLE (null)AMPLE RIGHT$SSUE $4.00 (null)
510 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
520 FORI=1TO3:PRINT"[160] ":NEXT:GOSUB2000
530 PRINT"[147]"
531 S$="L[207]"+CHR$(34)+"MN"+CHR$(34)+",8:"+CHR$(131)
532 FORI=1TOLEN(S$):POKE630+I,ASC(MID$(S$,I)):NEXT:POKE198,I
533 POKE53281,14:POKE53280,14
534 PRINT"[145]RELOADING MENU PROGRAM[154]":END
1000 DATA160,160,160,201,134,160,153,143
1010 DATA149,160,132,143,142,167,148,160
1020 DATA129,140,146,133,129,132,153,160
1030 DATA147,149,130,147,131,146,137,130
1040 DATA133,160,148,143,160,160,160,160
1050 DATA32,32,32,32,32,32,32,32
1060 DATA32,32,32,32,32,32,32,32
1070 DATA32,32,32,32,32,32,32,32
1080 DATA32,32,32,32,32,32,32,32
1090 DATA32,32,32,32,32,32,32,32
1100 DATA254,160,160,32,254,160,252,32
1110 DATA252,32,32,254,32,160,160,252
1120 DATA32,160,32,160,32,160,160,160
1130 DATA32,160,160,32,160,32,160,32
1140 DATA32,32,32,32,32,32,32,32
1150 DATA160,32,32,32,160,32,160,32
1160 DATA160,252,254,160,32,160,32,160
1170 DATA32,160,32,160,32,32,160,32
1180 DATA32,160,98,32,160,32,255,32
1190 DATA255,127,32,32,32,32,32,32
1200 DATA160,32,32,32,160,32,160,32
1210 DATA160,251,236,160,32,160,160,236
1220 DATA32,160,32,160,32,32,160,32
1230 DATA32,160,226,32,226,32,32,32
1240 DATA127,98,32,32,32,32,32,32
1250 DATA251,160,160,32,251,160,236,32
1260 DATA160,32,32,160,32,160,32,32
1270 DATA32,251,160,236,32,32,160,32
1280 DATA32,160,160,32,160,32,32,32
1290 DATA98,255,32,32,32,32,32,32
1300 DATA112,64,64,64,110,112,64,64
1310 DATA64,110,112,64,64,64,64,110
1320 DATA112,64,64,64,64,110,112,64
1330 DATA64,64,110,112,64,64,64,110
1340 DATA112,64,64,64,64,110,32,32
1350 DATA93,254,160,252,93,93,254,160
1360 DATA252,93,93,160,160,160,160,93
1370 DATA93,251,160,160,160,93,93,224
1380 DATA160,160,93,93,160,160,160,93
1390 DATA93,251,160,160,160,93,32,32
1400 DATA93,160,32,32,115,93,160,32
1410 DATA160,93,107,32,254,160,236,93
1420 DATA109,110,160,98,112,125,109,110
1430 DATA160,112,125,109,110,160,112,125
1440 DATA109,110,160,98,112,125,32,32
1450 DATA93,160,32,251,93,93,160,160
1460 DATA160,93,93,254,160,236,32,115
1470 DATA112,125,160,226,109,110,32,93
1480 DATA160,93,32,96,93,160,93,32
1490 DATA112,125,160,226,109,110,32,32
1500 DATA93,251,160,236,93,93,160,32
1510 DATA160,93,93,160,160,160,160,93
1520 DATA93,254,224,160,160,93,32,93
1530 DATA160,93,32,96,93,160,93,32
1540 DATA93,254,160,160,160,93,32,32
1550 DATA109,64,64,64,125,109,64,113
1560 DATA64,125,109,64,64,64,64,125
1570 DATA109,64,64,64,64,125,32,109
1580 DATA64,125,32,32,109,64,125,32
1590 DATA109,64,64,64,64,125,32,32
2000 FORW=1TO2000:GETA$:IFA$=""THENNEXTW
2020 RETURN