home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib30b.dsk / WINDOWORKS.DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  5KB  |  45 lines
  1. 1  REM **********************
  2. 2  REM *  WINDOWORKS.DEMO   *
  3. 3  REM *  by  Bob Thrasher  *
  4. 4  REM * Copyright (C) 1987 *
  5. 5  REM * by MicroSPARC, Inc *
  6. 6  REM * Concord, MA  01742 *
  7. 7  REM **********************
  8. 10  TEXT : PRINT  CHR$(12) CHR$(21): HOME : PRINT : VTAB 10: HTAB 12: PRINT "WINDOWORKS DEMO": VTAB 12: HTAB 10: PRINT "by Bob Thrasher": VTAB 14: HTAB 1: PRINT "Copyright (C) 1987 by MicroSPARC, Inc.": VTAB 23: HTAB 8: PRINT "Please wait ...";
  9. 20  HIMEM: 15360: FOR A = 774 TO 814: READ C: POKE A,C: NEXT :D = 49200
  10. 30 B$ = "/////39@N@>@>@>=@0@=>@@@>N0>0NN0>00M0N@M@@N@@N333NN7785@868@0000N@JD@@@BDH@=@@@=>@>00=@D8E>@>8@M0=?>N3333@@@@=@@@93@@DJ@@939@@@933N731N"
  11. 40 D$ =  CHR$(4): DIM A(18),B(26,4): ONERR  GOTO 60
  12. 50  PRINT : PRINT D$"BLOADWINDOWORKS.ML": GOTO 70
  13. 60  HOME : INVERSE : PRINT "FATAL ERROR";: NORMAL : PRINT " -": PRINT : PRINT : PRINT "THIS DEMO REQUIRES THE FILE": PRINT : INVERSE : PRINT "WINDOWORKS.ML": NORMAL : PRINT : PRINT "ON THE DISKETTE.": PRINT : END 
  14. 70  ONERR  GOTO 270
  15. 80  FOR A = 0 TO 26: FOR C = 0 TO 4:B(A,C) =  ASC( MID$ (B$,A *5 +C +1,1)) -47: NEXT : NEXT : FOR A = 0 TO 18:A(A) = ( PEEK(24576 +A *2) +256 * PEEK(24577 +A *2)): NEXT : CALL A(8): CALL A(18): POKE A(5),96
  16. 90  VTAB 23: HTAB 8: PRINT "Press Return to continue";: GET Z$: PRINT : HGR2 :G = 1:H = 4:A$ = "WINDOWORKS DEMONSTRATION PROGRAM": GOSUB 170: HCOLOR= 3: HPLOT 0,8 TO 279,8:I = 0: GOSUB 240: GOSUB 250: GOSUB 260: GOSUB 210
  17. 100 I = 0: GOSUB 180: GOSUB 240: GOSUB 250: GOSUB 260: FOR A = 0 TO 5: HCOLOR= A +1: FOR C = A *7 TO A *7 +6: HPLOT C +49,88 TO C +49,143: NEXT : NEXT : GOSUB 210
  18. 110 I = 0: GOSUB 180: GOSUB 240:K = 28:L = 111:M = 16:N = 71: GOSUB 200:K = 168:L = 251: GOSUB 200:M = 88:N = 143: GOSUB 200:K = 28:L = 111: GOSUB 200
  19. 120  GOSUB 250: GOSUB 260: FOR A = 0 TO 5: HCOLOR= A +1: FOR C = A *7 TO A *7 +6: HPLOT C +189,112 TO C +189,143: NEXT : NEXT : GOSUB 210
  20. 130 I = 0: GOSUB 180: FOR W = 0 TO 7:P = W *5 +1:Q = P +2:R = 2:S = 17: GOSUB 220:H = W *5 +2:G = 80:A$ = "O": GOSUB 170:P = W *5 +2:Q = P:R = 2:S = 17:E = 0:F = W: GOSUB 230: NEXT 
  21. 140 H = 1:G = 160:A$ = "AN EXAMPLE OF THE EIGHT SPEED SETTINGS": GOSUB 170: GOSUB 210
  22. 150 I = 0: GOSUB 180: GOSUB 240:K = 28:L = 97:M = 63:N = 96: GOSUB 200:K = 182:L = 251: GOSUB 200: GOSUB 250: GOSUB 260: GOSUB 210
  23. 160 I = 0: GOSUB 180: GOSUB 240:M = 40:N = 55:K = 140:L = 210: GOSUB 200: GOSUB 250: GOSUB 260: HCOLOR= 3: FOR A = 7 TO 32: HPLOT A *7 +3,134: NEXT : GOSUB 210: TEXT : HOME : END 
  24. 170  FOR A = 1 TO  LEN(A$): POKE 1,H:B =  ASC( MID$ (A$,A,1)) -64:B = B *(B >0  AND B <27): FOR C = 0 TO 4: POKE 768 +C,B(B,C):T =  PEEK(D): NEXT : POKE 0,G: CALL 774:H = H +1: NEXT : RETURN 
  25. 180  HCOLOR= 0: FOR A = 191 TO 9  STEP  -1: HPLOT 0,A TO 279,A:T =  PEEK(D): NEXT : RETURN 
  26. 190  HCOLOR= 3: HPLOT K,M TO L,M TO L,N TO K,N TO K,M: RETURN 
  27. 200  HCOLOR= 0: FOR A = M TO N: HPLOT K,A TO L,A: NEXT : RETURN 
  28. 210 G = 183:H = 7:A$ = "PRESS RETURN TO CONTINUE": GOSUB 170:M = 180:N = 190:K = 45:L = 225: GOSUB 190: POKE 49152,0: CALL A(10): RETURN 
  29. 220 K = P *7 -1:L = (Q +1) *7:M = R *8 -1:N = (S +1) *8: GOSUB 190: RETURN 
  30. 230 V = A(17) +I *7: POKE V,R *8: POKE V +1,S *8 +7: POKE V +2,P: POKE V +3,Q: POKE V +4,E: POKE V +5,F: POKE V +6,0:I = I +1: POKE A(17) +I *7,255: RETURN 
  31. 240  READ J: FOR W = 1 TO J: READ P,R,Q,S: GOSUB 220: NEXT : RETURN 
  32. 250  READ J: FOR W = 1 TO J: READ H,G,A$:G = G *8: GOSUB 170: NEXT : RETURN 
  33. 260  READ J: FOR W = 1 TO J: READ P,R,Q,S,E,F: GOSUB 230: NEXT : RETURN 
  34. 270  TEXT : HOME :Z =  PEEK(222): IF Z = 255  THEN  PRINT "Please do not press Control-C": PRINT : PRINT "Type RUN to restart demo": PRINT : END 
  35. 280  PRINT "An error exists in the program listing.": PRINT : PRINT "Please recheck the listing.  Perhaps": PRINT : PRINT "the error is in LINE #"; PEEK(218) + PEEK(219) *256: PRINT : END 
  36. 290  DATA 169,4,141,5,3,165,0,24,109,5,3,170,189,50,149,141,39,3,189,114,148,141,40,3,164,1,174,5,3,189,0,3,153,255,255,206,5,3,16,221,96
  37. 300  DATA 4,4,2,15,8,24,2,35,8,4,11,15,17,24,11,35,17,6,9,5,UP,28,5,LEFT,8,14,DOWN,28,14,RIGHT,7,19,"A SAMPLE OF THE FOUR BASIC",7,20,"TYPES OF SCROLLING WINDOWS"
  38. 310  DATA 4,9,2,10,8,0,0,24,5,35,5,2,0,8,11,11,17,1,0,24,14,35,14,3,0,2,14,2,25,8,4,11,15,17,5,16,5,INVERSE,27,14,FRAME,4,10,"COLOR CHANGE"
  39. 320  DATA 7,19,"THESE ARE THE THREE BASIC",11,20,"NON-MOVING WINDOWS",4,14,2,25,8,4,2,4,11,15,17,5,1,24,11,35,17,6,3,0,2,2,17,2,0
  40. 330  DATA 8,4,2,15,8,24,2,35,8,4,11,15,17,24,11,35,17,5,3,16,9,25,3,36,9,5,12,16,18,25,12,36,18
  41. 340  DATA 10,8,4,UP,8,5,LEFT,28,4,UP,28,5,RIGHT,8,13,DOWN,7,14,INVERSE,27,12,DOWN,27,13,COLOR,3,20,"SUPERIMPOSING TWO OR MORE WINDOWS",3,21,"CAN PRODUCE OTHER ANIMATION TYPES"
  42. 350  DATA 8,4,2,15,8,0,1,4,2,15,8,2,1,24,2,35,8,0,1,24,2,35,8,3,1,7,11,13,17,1,0,4,11,15,17,4,1,27,11,32,17,1,0,27,11,32,17,5,3,4,4,3,13,16,2,8,15,11,26,3,35,16,24,8,37,11,7,8,5,AB,8,6,CD,30,5,AB,30,6,CD
  43. 360  DATA 0,18,"LARGE WINDOW IS UP    LARGE WINDOW IS UP",0,19,"SMALL MOVES UP ALSO   SMALL MOVES RIGHT"
  44. 370  DATA 2,21,"EXAMPLES OF PARTIAL OVERLAP WINDOWS",4,8,3,9,16,0,0,8,8,9,11,0,0,26,3,35,16,0,0,26,8,35,11,3,0,4,7,5,32,6,23,4,24,7,25,4,26,7,7,16,32,16,6,6,4,"LARGE MOVES LEFT",19,9,DOWN,27,9,UP,15,6,AB
  45. 380  DATA 9,15,"MOVING RIGHT AND UPWARD",0,20,"TWO LAST EXAMPLES OF ADVANCED TECHNIQUES",5,7,5,32,6,2,0,23,5,24,6,1,0,25,5,26,6,0,0,7,16,32,16,3,0,7,16,32,16,0,0