home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / TEXT / DECODE.SCENES (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1990-10-18  |  1.0 KB  |  46 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 0  CALL  PEEK(175) +256 * PEEK(176) -46
  2. 1  REM  TONE FROM TRIAL SIZE TOOLBOX
  3. 2  GOSUB 1000
  4. 3 F$ = "SCENESFROMIR":T$ = "D5,B$B54,L$2000"
  5. 4  PRINT  CHR$(4)"BLOAD "F$",A$2000,T$"T$
  6. 5  PRINT  CHR$(4)"PR#3"
  7. 10 A = 8192
  8. 15 B = 9
  9. 17 C = 6400
  10. 20  FOR I = A TO A +C
  11. 30  IF J < >1  THEN 50
  12. 32  PRINT  PEEK(I);" ";:J = 0
  13. 35  & "TONE"N( PEEK(I)),10
  14. 50  IF  PEEK(I) > = 144  AND  PEEK(I) < = 144 +15  THEN J = 1
  15. 70  NEXT I
  16. 999  END 
  17. 1000  DIM N(128)
  18. 1010  FOR I = 55 TO 55 +36: READ N(I): NEXT 
  19. 1020  RETURN 
  20. 10000  DATA   255,241,227,214,202
  21. 10005  REM  G,G#,A,A#,B
  22. 10010  DATA 191,180,170,160,151,143,135,127,120,113,107,101,95,90,85,80,75,71,67,63,60,56,53,50,47,45,42,40,37,35,33,31 +
  23. 80 RESTORE AMPERSAND.TB
  24. 63904  RETURN  &  PLOT <UNKNOWN TOKEN><CTRL-0x03> + RETURN  &  PLOT <UNKNOWN TOKEN><CTRL-0x03> ASC GOSUB ` SQR
  25. 20041 T
  26. 21592  OUTPUT.TB
  27. 8415 l EXP DEL  GOTO  INPUT  RUN  SPEED= 
  28. 29061  INPUT r DEL <CTRL-0x1c> INPUT <CTRL-0x1d> DEL <CTRL-0x1b>  ABS VAL DEL <CTRL-0x1e>  SAVE 
  29. 1264  VTAB ( = <CTRL-0x0b> L CHR$ TAN<CTRL-0x14> HGR2 <CTRL-0x17> TAN DEL  GOSUB <CTRL-0x13> DIM <CTRL-0x19> ONERR $8 VAL  DEL <CTRL-0x1a> AT <CTRL-0x19> GOSUB <CTRL-0x06> COLOR= 
  30. 912 L SCALE=  ATN VTAB <CTRL-0x01> DIM <UNKNOWN TOKEN>  SAVE 
  31. 15305 <UNKNOWN TOKEN><CTRL-0x03>L - COS  NOT <UNKNOWN TOKEN>  RETURN 
  32. 7345  -  = <CTRL-0x07> ROT=  HGR <CTRL-0x1c> ASC<CTRL-0x1c> = <UNKNOWN TOKEN> ONERR <CTRL-0x1c><CTRL-0x18>e<CTRL-0x19> RESUME <CTRL-0x1b> = <CTRL-0x03>8 VAL<CTRL-0x1a> AT <CTRL-0x1e> GOSUB . ONERR <CTRL-0x19> RESUME <CTRL-0x1b> = <CTRL-0x03>8 VAL<CTRL-0x1a> STORE  RETURN <CTRL-0x1c> - <UNKNOWN TOKEN><CTRL-0x0e> GR <UNKNOWN TOKEN><CTRL-0x15> RETURN <CTRL-0x1c> -  = <UNKNOWN TOKEN> SPEED= <CTRL-0x0d> HGR <CTRL-0x1c> + ROT= <CTRL-0x18>e<CTRL-0x1c> DEL <CTRL-0x1c> ASC<CTRL-0x1b> =  POKE  <UNKNOWN TOKEN> SQR8 GOSUB <UNKNOWN TOKEN> ONERR <CTRL-0x1e> DEL  NORMAL  SPEED= 
  33. 40581  INPUT  FLASH  * STR$ = RND RESUME <UNKNOWN TOKEN><UNKNOWN TOKEN><CTRL-0x03> <UNKNOWN TOKEN> SQR`E
  34. 17742 
  35. 17742 .TB
  36. 46880 
  37. 63520  ASC DIM < VTAB <CTRL-0x0a>  SAVE 
  38. 19488  CHR$ DIM = PR# <UNKNOWN TOKEN><CTRL-0x1c> SPEED= <CTRL-0x0f> = <CTRL-0x12>,0 TAB(  GR  = <CTRL-0x09>J = <CTRL-0x06>  NOT =<UNKNOWN TOKEN><CTRL-0x0b> SPEED= <CTRL-0x0f> * = <UNKNOWN TOKEN> RESUME < =  MID$ <UNKNOWN TOKEN><UNKNOWN TOKEN>` MID$  MID$  DEL ^ INPUT _ COLOR= 
  39. 1264  -: = <CTRL-0x14> * CLEAR 
  40. 24165  DEL ^ LEFT$ CLEAR 
  41. 34143 _l^
  42. 49184  COS RESUME  GOSUB   NOT  GOSUB  COLOR= <UNKNOWN TOKEN> ONERR  & 8<UNKNOWN TOKEN> &  DEL ^ PR#  +<UNKNOWN TOKEN> &  DEL _ ASC GOSUB  COLOR= <CTRL-0x01> RETURN ^ - MID$  = <CTRL-0x03>L<CTRL-0x0e> LEN DEL Q GR  RETURN ^ DEL P ONERR ^<CTRL-0x18>i<CTRL-0x02> DEL ^ HGR2 <CTRL-0x02> ASC_ COLOR= 
  43. 2032  < DEF  = <CTRL-0x09> + = <UNKNOWN TOKEN> RETURN  DEF  -"<UNKNOWN TOKEN><CTRL-0x0f> ONERR ^<CTRL-0x18>eP DEL ^ ONERR _eQ DEL _ =  TO  +  ROT=  POS + RETURN ^ = <UNKNOWN TOKEN>8 ROT= e^ DEL ^ HGR2 <CTRL-0x02> ASC_  SAVE 
  44. 976   RETURN 
  45. 59904   NOT  GOSUB  COLOR= <UNKNOWN TOKEN> IF <UNKNOWN TOKEN><CTRL-0x03> HGR  &  + IF <UNKNOWN TOKEN><CTRL-0x03> HGR  &  ASC GOSUB  SPEED= L PLOT <UNKNOWN TOKEN><CTRL-0x03>8 ONERR  &  RIGHT$/ PLOT <UNKNOWN TOKEN><CTRL-0x03> ONERR  GOSUB  RIGHT$
  46. 24579 @<CTRL-0x0b><CTRL-0x1b><CTRL-0x02><UNKNOWN TOKEN><UNKNOWN TOKEN><UNKNOWN TOKEN>