home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib21b.dsk / SHOW.HELLO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  38 lines
  1. 30  REM  **********************
  2. 40  REM  *     SHOW.HELLO     *
  3. 50  REM  * BY  DAVID EFFLANDT *
  4. 60  REM  * COPYRIGHT (C) 1984 *
  5. 70  REM  * BY MICROSPARC, INC *
  6. 80  REM  * LINCOLN, MA. 01773 *
  7. 90  REM  **********************
  8. 100  TEXT : HOME :D$ =  CHR$(4)
  9. 110  REM  POKE 1012,0 MAKES RESET REBOOT - OPTIONAL
  10. 120  VTAB 2: PRINT "** COPYRIGHT 1984 BY MICROSPARC, INC. **": VTAB 5: HTAB 5: REM  TITLE
  11. 130  FOR X = 1 TO 30: PRINT  CHR$(95);: NEXT : VTAB 7: HTAB 9
  12. 140  PRINT "SOLID STATE SLIDE SHOW"
  13. 150  PRINT : PRINT : HTAB 11
  14. 160  PRINT "BY DAVID EFFLANDT"
  15. 170  HTAB 5: FOR X = 1 TO 30: PRINT  CHR$(95);: NEXT 
  16. 180  VTAB 15: HTAB 11
  17. 190  PRINT "      48K+16K"
  18. 200  VTAB 18: PRINT "    PRESS ANY KEY TO STOP THE SHOW"
  19. 210  PRINT D$;"BRUN OILER": REM  FAST BLOADER FROM NIBBLE VOL.3/NO.5 1982 - OPTIONAL
  20. 220  PRINT D$;"BLOAD HIRES.EX"
  21. 230  PRINT D$;"BLOAD THREE.PIC": REM  HIRES PAGE 1,2,3 BSAVED AS ONE FILE 'THREE.PIC,A$2000,L$6000'
  22. 240  REM  FOR AUTO LOADING W/64K ADD STATEMENT - A$="Y":GOTO 260
  23. 250  VTAB 21: PRINT "DO YOU HAVE AN APPLE II+ WITH RAMCARD": PRINT : PRINT "OR AN APPLE //E OR //C (Y OR N) ";: GET A$: PRINT A$
  24. 260 A =  PEEK( -16302) + PEEK( -16300) - PEEK( -16297) - PEEK( -16304): REM  SHOW FULL HIRES PAGE 1
  25. 270  POKE 7,0: REM  SLOT# OF RAM
  26. 280  POKE 8,1: REM  16K RAM BANK - UP TO 8 BANKS FOR 128K RAM
  27. 290  IF A$ = "Y"  THEN  GOTO 380
  28. 300  IF A$ =  CHR$(27)  THEN  TEXT : END : REM  <ESC>
  29. 310  IF A$ < >"N"  THEN  TEXT : GOTO 250
  30. 320  REM  NO RAMCARD - SHOW 3 PICTURES - MIX TEXT/GRAPHICS
  31. 330  HOME : POKE  -16301,0
  32. 340  VTAB 22: PRINT "     ONLY 3 PICTURES WITH 48K RAM"
  33. 350  FOR PAUSE = 1 TO 2000: NEXT PAUSE
  34. 360  PRINT D$;"RUN SHOW.3"
  35. 370  REM  RAMCARD IS PRESENT - DISPLAY 5 PICTURES
  36. 380  CALL 785: CALL 775: CALL 795: REM  MOVE PAGES 2 & 3 TO 4 & 5
  37. 390  PRINT D$;"BLOAD TWO.PIC,A$4000": REM  PAGES 2 & 3 BSAVED AS ONE FILE 'TWO.PIC,A$4000,L$4000'
  38. 400  PRINT D$;"RUN SHOW.5"