home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
commodore-users-of-norman
/
CUON_22_(10-1984).d64
/
gazette_vic
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2019-04-13
|
2KB
|
58 lines
10 POKE36879,25
100 PRINTCHR$(14)"[147][144] [195][207][205][208][213][212][197]!'S [199][193][218][197][212][212][197] "
110 PRINT"[201]F YOU DON'T ALREADY
120 [153]"SUBSCRIBE TO LEN(null)(null)(null)(null)(null)VAL!'S CHR$AZETTE,
130 PRINT"HERE'S HOW TO GET MOREOUT OF YOUR [195]OMMODORE:
140 [153]"SQR (null)ORE FUN: WITH SUCH
150 PRINT" GAME EXCITEMENT AS
160 [153]" (null)ARTIAN (null)RISONER,
170 PRINT" [212]HE [214]IPER,[211]KY [196]IVER,
180 [153]" (null)NAKE VALSCAPE, AND
190 PRINT" [196]EMON [211]TAR."
200 GOSUB2000
210 PRINT"[147][186] [205]ORE [195]HALLENGE:
220 [153]"(null)EADY TO TACKLE MORE
230 PRINT"ADVANCED PROJECTS?
240 [153]"RIGHT$N LEN(null)(null)(null)(null)(null)VAL!'S CHR$AZETTE,YOU'LL LEARN LEFT$OW (null)O
250 PRINT"[213]SE [212]APE AND [196]ISK
260 [153]"ASCILES. LEFT$OW TO (null)ROGRAM
270 PRINT"[212]HE [198]UNCTION [203]EYS.
280 [153]"(null)RITING (null)RANSPORTABLE
290 PRINT"[194][193][211][201][195]. [206]EW [215]AYS
300 [153]"TO VALNLIVEN (null)ITH (null)OUND."
310 [153]"LEFT$OW TO (null)SE (null)ACHINE (null)ANGUAGE."
320 [141]2000
330 [153]"LOADSQR (null)ORE (null)ROGRAMS:
340 PRINT"FROM [144]64 [211]EARCHER TO
350 [153]"STOP(null)ROGRAM (null)IFESAVER;
360 PRINT"FROM [144][209]UICKFIND TO
370 [153]"STOPSTR$ISK (null)ENU AND
380 PRINT"[144][193]UTOMATIC [208]ROOFREADER
390 [153]"ATN(null)STR$ (null)(null)(null)VAL"
400 [141]2000
410 [153]"LOADSQR (null)ORE PEEKUYING CHR$UIDANCE
420 PRINT"[217]OU'LL PROFIT FROM
430 [153]"COMPREHENSIVE REVIEWS
440 PRINT"OF EVERYTHING FROM
450 [153]"GAMES TO WORD
460 PRINT"PROCESSORS, FROM
470 [153]"PRINTERS TO MODEMS
480 PRINT"AND DISK DRIVES."
490 GOSUB2000
500 PRINT"[147][144][211][213][194][211][195][210][201][194][197][160][206][207][215][160][212][207][160] [195][207][205][208][213][212][197]!'[211] [199][193][218][197][212][212][197]
510 [153]"ATN(null)STR$ (null)(null)ATN(null)(null) (null)VALLENVALRIGHT$(null)RIGHT$(null)CHR$ VAL(null)VAL(null)(null) RIGHT$(null)ASC(null)(null)(null)ATN(null)RIGHT$(null)(null)- (null)ATNLEN(null)VALSTR$ RIGHT$(null)(null)(null)VAL"
520 [153]"(null)O ORDER YOUR SUB- SCRIPTION OR A SAMPLE ISSUE, CALL (null)(null)(null)(null)
530 PRINT"[198][210][197][197] [144]800-334-0868
540 [153]"((null)LEN CALL 919-275-9809)
550 PRINT"[156]12 ISSUES $24 [211]AVE $11"
560 PRINT"24 ISSUES $45 [211]AVE $25"
570 PRINT"[144]36 ISSUES $65 [211]AVE $41"
580 PRINT"[211]AMPLE ISSUE $4.00"
590 GOSUB2000:GOSUB2000
999 PRINT"[147]":S$="L[207]"+CHR$(34)+"VM"+CHR$(34)+",8:"+CHR$(131)
1000 FORI=1TOLEN(S$):POKE630+I,ASC(MID$(S$,I)):NEXT:POKE198,I
1001 POKE36879,24
1002 PRINT"RELOADING MENU":END
2000 FORI=1TO2000:GETA$:IFA$=""THENNEXT
2010 RETURN