home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / DIGIDEMO.DSK / P1991.bas < prev    next >
BASIC Source File  |  2014-09-09  |  2KB  |  46 lines
  1. 0  REM  --------------------- 
  2. 1  REM  SHAN'S DCR DEMO INTRO
  3. 2  REM  (c) Zuhyde, 1990-1991
  4. 3  REM   ALL RIGHTS RESERVED
  5. 4  REM  ---------------------
  6. 5  REM 
  7. 6  REM 
  8. 8  DIM X(28),Y(28),SH(28)
  9. 9  FOR I = 1 TO 27: READ X(I),Y(I),SH(I): NEXT I
  10. 10  HOME : SCALE= 1: ROT= 0: POKE 232,00: POKE 233,64: POKE 230,32
  11. 15  POKE  -16368,0
  12. 20 D$ =  CHR$(4)
  13. 30  PRINT D$;"BLOAD P_1991.PIC,A$2000"
  14. 40  PRINT D$;"BLOAD ANEW1,A$4000"
  15. 43  PRINT D$;"BLOAD ST.DLGO.CUT,A$5100"
  16. 50  POKE 49232,9: POKE 49236,9: POKE 49239,9: POKE 49234,9
  17. 60  PRINT D$;"BLOAD HAWAI.DCRD,A$6200"
  18. 70 SA% = 11: GOSUB 300
  19. 75  FOR I = 1 TO 30: CALL 788: NEXT 
  20. 90  PRINT D$;"BLOAD CRY.DCRD,A$6200"
  21. 105  CALL 62450: REM  TEMP FADE TO BLACK
  22. 110  XDRAW 1 AT 1,10: XDRAW 2 AT 132,10
  23. 115 SA% = 8: GOSUB 300
  24. 120  FOR I = 1 TO 48: CALL 788: NEXT 
  25. 130  POKE 232,0: POKE 233,81
  26. 135  GOSUB 200
  27. 140  PRINT D$;"BLOAD SPEECH.DCRD,A$6200"
  28. 141  PRINT D$;"BLOAD HAWAI.DCRD,A$7200"
  29. 142 SA% = 11: GOSUB 300
  30. 144  FOR I = 1 TO 12: CALL 788: NEXT 
  31. 150  GOTO 250
  32. 200  FOR I = 1 TO 27
  33. 210  XDRAW SH(I) AT X(I),Y(I)
  34. 220  NEXT I
  35. 227  RETURN 
  36. 230  DATA   144,90,15,97,72,3,177,72,8,129,72,5,160,108,25,65,108,19,112,90,13,128,108,23,66,72,1,161,72,7,192,108,27,112,108,22,65
  37. 240  DATA  90,10,176,108,26,80,10 8,20,80,90,11,192,89,18,145, 72,6,160,90,16,113,72,4,144,108,24,176,89,17,96,90,12,96,108,21,128,90,14,81,72,2,193,72,9 
  38. 250  POKE 8,00: POKE 9,114: POKE 4,12
  39. 260  GOSUB 200
  40. 270  POKE 232,00: POKE 233,64
  41. 280  XDRAW 3 AT 78,100: XDRAW 4 AT 37,120
  42. 285  CALL 768
  43. 290  FOR I = 1 TO 28: CALL 788: NEXT 
  44. 293  TEXT 
  45. 295  PRINT D$;"RUN PART1"
  46. 300  POKE 8,00: POKE 9,98: POKE 4,SA%: CALL 768: RETURN