home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib32a.dsk / NOVEMBER.1987 / DUBL.DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  3KB  |  43 lines
  1. 10  REM ***********************
  2. 20  REM *     DUBL.DEMO       *
  3. 30  REM *  David L. Smith MD  *
  4. 40  REM * Copyright (c) 1987  *
  5. 50  REM * by MicroSPARC, Inc. *
  6. 60  REM * Concord, MA  01742  *
  7. 70  REM ***********************
  8. 80  IF  PEEK(64435) < >6  THEN  HOME : VTAB 12: PRINT "SORRY, PROGRAM WON'T WORK ON": PRINT "THIS MACHINE": END : REM MUST BE IIC, IIGS OR 128K IIE
  9. 90  ONERR  GOTO 350
  10. 100  PRINT  CHR$(4)"BRUN DUBLSTUF": POKE 216,0: GOTO 130
  11. 110  HOME : PRINT : HTAB (80 - LEN(X$))/2: VTAB 22: PRINT X$: & P500,0: RETURN 
  12. 120  READ D: READ P: & PD,P: RETURN 
  13. 130 D$ =  CHR$(4): PRINT D$"PR#3": PRINT : VTAB 22
  14. 140  HGR :X$ = "This is single-HIRES graphics": GOSUB 110
  15. 150 C = 0: FOR Y = 0 TO 130  STEP 26:C = C +1: HCOLOR= C: FOR Z = Y TO Y +25: HPLOT 0,Z TO 279,Z: NEXT : NEXT 
  16. 160 X$ = "Let's double it with &W": GOSUB 110: & M1 TO 2: &  HGR : & M2 TO 1: & W: & P1000,0
  17. 170 X$ = "Now let's check the DHIRES colors": GOSUB 110: & Z1
  18. 180  FOR C = 1 TO 15: COLOR= C: IF C = 13  THEN  & F
  19. 190 Y = C *12: FOR Z = Y TO Y +11: &  HPLOT 0,Z TO 559,Z: NEXT : NEXT : FOR T = 0 TO 32: &  XDRAW 1 AT T *17,Y +9:CLICK =  PEEK(49200) + PEEK(49200) + PEEK(49200): NEXT 
  20. 200  & M1 TO 2: & M9 TO 15: & S14 TO 2
  21. 210  & T:X$ = "Here's a demo of &CLEAR:": GOSUB 110
  22. 220  & Z1: FOR C = 1 TO 15: COLOR= C: &  CLEAR 1: NEXT 
  23. 230 X$ = "Now for some patriotism demo'ing &HPLOT, &P, &PLOT, &DRAW:": GOSUB 110: COLOR= 15: &  CLEAR 2: & V2
  24. 240  COLOR= 12: FOR Y = 15 TO 135  STEP 20: FOR Z = Y TO Y +9: REM Old glory
  25. 250  &  HPLOT 0,Z TO 559,Z: NEXT : NEXT 
  26. 260  COLOR= 1: FOR X = 0 TO 232  STEP 4: &  PLOT X,15 TO X,84: ON X >210 GOSUB 120: NEXT 
  27. 270  COLOR= 15: FOR X = 14 TO 209  STEP 39: FOR Y = 25 TO 81  STEP 14: &  DRAW 1 AT X,Y: GOSUB 120: NEXT : NEXT 
  28. 280  FOR X = 34 TO 190  STEP 39: FOR Y = 31 TO 73  STEP 14: &  DRAW 1 AT X,Y: GOSUB 120: NEXT : NEXT : & M2 TO 1: & M10 TO 9: & T
  29. 290 X$ = "Now for a disappearing act": GOSUB 110: & M10 TO 3: &  HGR : & P1000,0
  30. 300 X$ = "Let's get our flag back the slow way...": GOSUB 110: & C16384,24570 TO 8192: & A24576,32760 TO 8192,A: & P1000,0: &  HGR 
  31. 310 X$ = "Here's the fast way to do it:": GOSUB 110: & M2 TO 1: & M10 TO 9: & P1000,0
  32. 320 X$ = "Here's the &INVERSE command": GOSUB 110: &  INVERSE 1: & P1000,0: &  INVERSE 1: & P1000,0
  33. 330 X$ = "Here's the &S command:": GOSUB 110: & S14 TO 1: & S9 TO 15: & P1000,0: &  WAIT : & S14 TO 1: & S9 TO 15
  34. 340 X$ = "End of Demonstration": GOSUB 110: END 
  35. 350 E =  PEEK(222):EL =  PEEK(218) +256 * PEEK(219): CALL  -3288: POKE 216,0
  36. 360  HOME : VTAB 12: IF E = 6  THEN  PRINT "UNABLE TO FIND DUBLSTUF ON THIS DISK": GOTO 390
  37. 370  IF E = 8  THEN  PRINT "I/O ERROR--CHECK DRIVE DOOR": GOTO 390
  38. 380  PRINT "ERROR "E" IN LINE "EL
  39. 390  VTAB 21: PRINT "RETURN TO TRY AGAIN,ESCAPE TO QUIT";: GET Z$: PRINT : IF Z$ =  CHR$(13) GOTO 90
  40. 400  DATA 64,164,96,164,32,195,64,195,64,164,96,164,32,219,64,219,64,195,64,184,64,164,64,146,64,130,192,164
  41. 410  DATA 64,164,96,164,32,195,64,195,64,164,96,164,32,219,64,219,64,110,64,116,64,110,64,98,64,146,192,110
  42. 420  DATA 64,164,96,98,32,98,64,110,64,123,96,123,32,130,64,130,64,123,64,110,64,130,64,146,64,164,192,123
  43. 430  DATA 64,123,96,123,32,146,64,146,64,123,96,123,32,164,64,164,64,164,64,146,64,123,64,164,64,110,192,123