home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / SHAPE.MECH1.SHK / SHAPE.MECHANIC / BEAGLE.NEWS.bas < prev    next >
BASIC Source File  |  2000-01-01  |  2KB  |  26 lines
  1. 10  NOTRACE :ND = 22: DIM A$(ND): GOSUB 30: TEXT : PRINT  CHR$(21): HOME : SPEED= 255: INVERSE : PRINT A$(0);: NORMAL : FOR V = 1 TO ND: INVERSE : VTAB V +1: PRINT  SPC( 40): FOR J = 1 TO 99: NEXT : NORMAL : FOR H = 40 TO 1  STEP  -3: CALL  -998: HTAB H: PRINT  LEFT$(A$(V),41 -H);: NEXT : NEXT 
  2. 20  VTAB 23: END 
  3. 30 A$(0) = " BEAGLE BROS APPLE DISKS--NOVEMBER 1985 "
  4. 40 A$(1) = "ALPHA PLOT...... HI-RES GRAPHICS..$39.50"
  5. 50 A$(2) = "BEAGLE BAG...... 12 GREAT GAMES... 29.50"
  6. 60 A$(3) = "BEAGLE BASIC.... BASIC ENHANCER... 34.95"
  7. 70 A$(4) = "BEAGLE GRAPHICS. DOUBLE HI-RES.... 59.95"
  8. 80 A$(5) = "D CODE.......... BASIC DE-BUGGER.. 39.95"
  9. 90 A$(6) = "DISKQUIK........ DISK EMULATOR.... 29.50"
  10. 100 A$(7) = "DOS BOSS........ COMMAND EDITOR... 24.00"
  11. 110 A$(8) = "DOUBLE-TAKE..... 2-WAY SCROLLER... 34.95"
  12. 120 A$(9) = "EXTRA-K......... MORE MEMORY...... 39.95"
  13. 130 A$(10) = "FATCAT.......... DISK LIBRARY..... 34.95"
  14. 140 A$(11) = "FLEX TYPE....... FLEXIBLE TEXT.... 29.50"
  15. 150 A$(12) = "FONT MECHANIC... FONTS & UTILITIES 29.95"
  16. 160 A$(13) = "FRAME-UP........ APPLE SLIDE SHOWS 29.50"
  17. 170 A$(14) = "GPLE............ APPLESOFT EDITOR. 49.95"
  18. 180 A$(15) = "I. O. SILVER.... ARCADE GAME...... 29.95"
  19. 190 A$(16) = "PRO-BYTER....... DISK ZAP UTILITY. 34.95"
  20. 200 A$(17) = "PRONTO-DOS...... TRIPLE-SPEED DOS. 29.50"
  21. 210 A$(18) = "SHAPE MECHANIC.. HI-RES ANIMATION. 39.95"
  22. 220 A$(19) = "SILICON SALAD... TIPS & UTILITIES. 24.95"
  23. 230 A$(20) = "TIP DISK #1..... 100 TIPS ON DISK. 20.00"
  24. 240 A$(21) = "TRIPLE-DUMP..... PICTURE PRINTER.. 39.95"
  25. 250 A$(22) = "UTILITY CITY.... 21 UTILITIES..... 29.50"
  26. 260  RETURN