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