home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / compuserve / Basic / ENGLAN.TXT < prev    next >
Text File  |  2006-10-19  |  3KB  |  84 lines
  1.  
  2. 1 CALL CLEAR
  3. 2 PRINT "BEFORE LOADING THIS PROGRAM DID YOU REMEMBER TO RESERVE MEMORY BY KEYIN
  4. G IN:"
  5. 3 PRINT "CALL LOAD(-31888,57,108)":"IF YOU DID,PRESS ENTER":"OTHERWISE BREAK AND
  6.  DO IT!"
  7. 4 CALL SOUND(-200,-7,0)
  8. 5 INPUT A$
  9. 100 CALL CLEAR
  10. 109 REM  (C) 1985  S.SHAW!! 
  11. 110 PRINT "IN TI BASIC YOU CANNOT HAVE-"
  12. 120 PRINT "SPRITES":"SPEECH"::::"THE TI99/4A DOES NOT PERMIT-"
  13. 130 PRINT "SIMULTANEOUS SPEECH AND     MUSIC":"CONTINUOUS AUTOMATIC MUSIC"
  14. 139 REM  A COUPLE OF SPRITES:     
  15. 140 CALL POKEV(768,62,15,138,15,150,200,138,15,208)
  16. 149 REM  MOVING SLOWLY: 
  17. 150 CALL POKEV(1920,0,5,0,0,0,5,0,0)
  18. 159 REM  LET'S MOVE THEM!: 
  19. 160 CALL LOAD(-31878,2)
  20. 169 REM  AND GIVE THEM AN INTERESTING SHAPE: 
  21. 170 A$="1030327FF82"
  22. 180 B$="000032FF7070301"
  23. 189 REM  SET SPEECH ADDRESS 
  24. 190 @=-27648
  25. 199 REM  LOAD SOUND TABLE: 
  26. 200 CALL POKEV(14700,3,142,15,144,30)
  27. 210 CALL POKEV(14705,3,133,13,144,60)
  28. 220 CALL POKEV(14710,3,128,15,146,30)
  29. 230 CALL POKEV(14715,3,142,15,144,15)
  30. 240 CALL POKEV(14720,3,141,17,145,15)
  31. 250 CALL POKEV(14725,3,142,15,146,30)
  32. 260 CALL POKEV(14730,3,129,20,146,30)
  33. 270 CALL POKEV(14735,3,141,17,144,15)
  34. 280 CALL POKEV(14740,3,129,20,146,15)
  35. 290 CALL POKEV(14745,3,131,21,146,30)
  36. 300 CALL POKEV(14750,3,140,23,146,30)
  37. 310 CALL POKEV(14755,3,139,26,144,60)
  38. 320 CALL POKEV(14760,3,141,17,146,30)
  39. 330 CALL POKEV(14765,3,141,17,144,60)
  40. 340 CALL POKEV(14770,3,142,15,146,30)
  41. 350 CALL POKEV(14775,3,133,13,144,60)
  42. 360 CALL POKEV(14780,3,128,15,146,30)
  43. 370 CALL POKEV(14785,3,142,15,144,15)
  44. 380 CALL POKEV(14790,3,141,17,145,15)
  45. 390 CALL POKEV(14795,3,142,15,146,30)
  46. 400 CALL POKEV(14800,3,129,20,146,30)
  47. 410 CALL POKEV(14805,3,141,17,144,15)
  48. 420 CALL POKEV(14810,3,129,20,145,15)
  49. 430 CALL POKEV(14815,3,131,21,146,30)
  50. 440 CALL POKEV(14820,3,140,23,146,30)
  51. 450 CALL POKEV(14825,3,129,20,144,60)
  52. 460 CALL POKEV(14830,3,134,00,159,30)
  53. 469 REM  AND TELL THE CONSOLE "PLAY IT AGAIN TEX": 
  54. 470 CALL POKEV(14835,0,57,108)
  55. 479 REM  TELL IT WHERE TO START FROM: 
  56. 480 CALL LOAD(-31796,57,108)
  57. 489 REM  TELL IT TABLE IS IN VDP RAM AREA: 
  58. 490 CALL PEEK(-31747,A)
  59. 500 IF A/2<>INT(A/2)THEN 520
  60. 510 CALL LOAD(-31747,A+1)
  61. 511 REM  LETS HAVE A DISPLAY:     
  62. 520 PRINT "   ]":"     ]]]":"  ]"::::
  63. 529 REM  DEFINE CHR$(58) AS A ZERO: 
  64. 530 CALL PEEKV(1152,A,B,C,D,E,F,G,H)
  65. 540 CALL POKEV(1232,A,B,C,D,E,F,G,H)
  66. 549 REM  TELL CONSOLE TO START PLAYING MUSIC: 
  67. 550 CALL LOAD(-31794,1)
  68. 559 REM  WHILE MUSIC IS PLAYING LETS CHANGE THE DISPLAY A LITTLE: 
  69. 560 FOR T=1152 TO 1231
  70. 570 CALL PEEKV(T,A,B,C,D,E,F,G,H)
  71. 580 CALL CHAR(42,B$)
  72. 589 REM  INSERT TIME DELAYS FOR SPEECH: 
  73. 590 IF T/7<>INT(T/7)THEN 610
  74. 599 REM  MAKE IT SPEEK! (SPEECH SYNTH REQUIRED): 
  75. 600 CALL LOAD(@,70,"",@,65,"",@,72,"",@,70,"",@,64,"",@,80)
  76. 609 REM  REDEFINE DISPLAYED CHARACTER: 
  77. 610 CALL POKEV(1512,A,B,C,D,E,F,G,H)
  78. 620 CALL CHAR(42,A$)
  79. 630 NEXT T
  80. 640 GOTO 560
  81. 650 END
  82. 660 REM  TI BASIC REQUIRES MINI MEMORY MODULE PLUS SPEECH SYNTH.  
  83. 670 REM  MAKE LINE 600 A REM IF YOU DON'T HAVE THE SPEECH SYNTH. 
  84.