home *** CD-ROM | disk | FTP | other *** search
/ FreeWare Collection 2 / FreeSoftwareCollection2pd199x-jp.img / fbasic / science / doujyou.bas (.txt) next >
Encoding:
GW-BASIC  |  1990-06-14  |  25.2 KB  |  39 lines
  1. 45311  d
  2. 3  
  3. 1000  <UNK! {0001}>ENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZ
  4. 1010  <UNK! {0001}>ENDZ                                                                ENDZ
  5. 1020  <UNK! {0001}>ENDZ   FORCALLFORTRONFOREDITFOREQVFORWRITELISTRANDOMIZEREM-             SCIENCE Q&A Vol.1   MAIN PROGRAM  ENDZ
  6. 1030  <UNK! {0001}>ENDZ                                                                ENDZ
  7. 1040  <UNK! {0001}>ENDZ                \DOUJYOU.BAS   1990,05,13,SUN    BY R.KATAYAMA  ENDZ
  8. 1050  <UNK! {0001}>ENDZ                                                                ENDZ
  9. 1060  <UNK! {0001}>ENDZ    FORWHILEFORTONEXTvNEXTGOSUBNEXTONEXTGOTONEXT<UNK! {0080}>FORXORRETURNCLSGOSUBsFORWRITEFOR+FORPOINTFOREDITFORKEYLETSCREENGOTOOPENFORTOREM<UNK! {0080}>NEW<UNK! {00F5}>FORXORFOR<0xB5!>FORSOUNDFORDEFINTFORSAVEFORCALLFORTRONELSE     ENDZ
  10. 1070  <UNK! {0001}>ENDZ                                                                ENDZ
  11. 1080  <UNK! {0001}>ENDZ       1. CD-ROM FORXORNEXTZNEXTbNEXTgENDANEXTgNEXTGOTONEXTbNEXTNNEWERLGOSUBDIMFORXORPRINTIFORERL (1320GOSUBs)          ENDZ
  12. 1090  <UNK! {0001}>ENDZ       2. STOPVFOR<0xB5!>FORTRONSTOPDEFSTRSTOPFNNEXTfEND[NEXT^FORXORREMPRINTFORRENUMGOSUBLLISTFORINKEY$FORMERGEFOR<0xDF!>FORTONEXTfNEXTBNEXTXNEXTNFORTODEFeDEFLOCATEFORTORUNmNEWF  ENDZ
  13. 1100  <UNK! {0001}>ENDZ       3. LISTDEFDBLFOR<0xB6!>NEXTfNEXTBNEXTXNEXTNFORTOFORSCREENFORDELETEFORKEYLETSCREENGOTOOPENFORTONEXTtNEXT@NEXTCNEXTIFFORAUTOFORWIDTHFOR+FORDELETERUNmNEWF        ENDZ
  14. 1110  <UNK! {0001}>ENDZ               ERASE TITLE_M3 .TIF      ( GOTO>PRINTOUTNEXTfEND[NEXT^  NEXT^NEXTCNEXTgNEXTIF )    ENDZ
  15. 1120  <UNK! {0001}>ENDZ               ERASE SQ_A_MW2 .TIF      ( GOTO>PRINTOUTNEXTfEND[NEXT^  NEXTENDNEXTCNEXTLIST   )    ENDZ
  16. 1130  <UNK! {0001}>ENDZ               ERASE SQ_A_FW3 .TIF      ( GOTO>PRINTOUTNEXTfEND[NEXT^  STOPDEFSTRSTOPFNREMLETDEFLPRINT )    ENDZ
  17. 1140  <UNK! {0001}>ENDZ               ERASE SQ_A_PW3 .TIF      ( GOTO>PRINTOUTNEXTfEND[NEXT^  ONOUTREMK     )    ENDZ
  18. 1150  <UNK! {0001}>ENDZ               ERASE T_DATA   .RND      ( STOPDEFSTRSTOPFNIFLPOKE^NEXTfEND[NEXT^       )    ENDZ
  19. 1160  <UNK! {0001}>ENDZ                                                                ENDZ
  20. 1170  <UNK! {0001}>ENDZ    ENDEDIT WAIT<0xE2!>PRINT<FORTONEXTfEND[NEXT^FORTHENFORXORCLEARPRESETGOTOMOTORFOR<0xB5!>FORMERGERETURNLLISTFORTHENENDAWAIT<0xE2!>PRINT<STOPNEWFORTONEXTfEND[NEXT^FOR<0xE0!>           ENDZ
  21. 1180  <UNK! {0001}>ENDZ                         ONSTEPGOSUBXFORWRITEFOR+FOR>FORSWAPFORKEYFOR<0xB5!>FORSOUNDFORDEFINTFORSAVEFORCALLFORTRONENDB(1330GOSUBs)   ENDZ
  22. 1190  <UNK! {0001}>ENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZENDZ
  23. 1200  <UNK! {0001}>
  24. 1210  0,4WIDTHCLOSE<UNK! {000D}>
  25. 50176  <UNK! {0004}>9.05019E-11MW ((STRIG(STRIG(3<UNK! {0080}><UNK! {0002}>READ2<UNK! {0007}>)DATA2<UNK! {0008}>)NEXT3<0xE0!><UNK! {0001}>NEXT2<UNK! {0004}>READ2<UNK! {0002}>END<UNK! {0010}>)DATA2<UNK! {0002}>)
  26. 52736  <UNK! {0004}>9.05019E-11FW ((STRIG(STRIG(3<UNK! {0080}><UNK! {0002}>READ2<UNK! {0007}>)DATA2<UNK! {0008}>)NEXT3<0xE0!><UNK! {0001}>NEXT2<UNK! {0004}>READ2<UNK! {0002}>END<UNK! {0010}>)DATA2<UNK! {0002}>)
  27. 55296  <UNK! {0004}>9.05019E-11PW ((STRIG(STRIG(3<UNK! {0080}><UNK! {0002}>READ2<UNK! {0007}>)DATA2<UNK! {0008}>)NEXT3<0xE0!><UNK! {0001}>NEXT2<UNK! {0004}>READ2<UNK! {0002}>END<UNK! {0010}>)DATA2<UNK! {0002}>)
  28. 57856  <UNK! {0004}>9.05037E-11FWH((STRIG(STRIG(3<UNK! {0080}><UNK! {0002}>READ2<UNK! {0007}>)DATA2<UNK! {0008}>)NEXT3<0xE0!><UNK! {0001}>NEXT2<UNK! {0004}>READ2<UNK! {0002}>END<UNK! {0010}>)DATA2<UNK! {0002}>)
  29. 60416  <UNK! {0004}>6.7E-16AME(2<UNK! {0004}>),<UNK! {0007}><UNK! {0009}><UNK! {0004}>DMAX(2<UNK! {0004}>),<UNK! {0007}><UNK! {0009}><UNK! {0003}>KTF(22),<UNK! {0007}><UNK! {000A}><UNK! {0003}>PIN(38.615E-14U(30<UNK! {0002}><0x9A!> <UNK! {0004}> <0x9B!> 2<UNK! {0007}>,442<UNK! {0007}>,2<UNK! {0004}> <UNK! {0001}> : CONSOLE 0,24,0 : WIDTH 80,20
  30. 1280  0\FJ\MSG\INFO\PINPON_F.SND,<UNK! {000A}><UNK! {0003}>PIN
  31. 2560  <UNK! {0005}>0\FJ\MSG\INFO\BUU_F.SND,<UNK! {000A}><UNK! {0003}>BUU
  32. 1300  0
  33. 543  <UNK! {0001}>
  34. 1320  1.177E-14ACK(<UNK! {0010}>)RETURN2<UNK! {0003}> <UNK! {0004}> <UNK! {0007}><UNK! {0009}><UNK! {0007}>CDTRACK(2<UNK! {0002}>)RETURN2<UNK! {0007}> <UNK! {0004}> <UNK! {0007}><UNK! {0009}><UNK! {0007}>CDTRACK(2<UNK! {0003}>)RETURN2<UNK! {0008}>-9.48674E-10NEXTgNEXTGOTONEXTbNEXTNNEWERLGOSUBDIM
  35. 1330  -6.43013E+11,10,GOTOCLOSERUNw,10,ONRESUMEDEFLPRINT,1,CLEARnRUNw,2          <UNK! {0001}>END@WAIT<0xE2!>PRINT<STOPNEWNEXTfEND[NEXT^
  36. 1340  0<UNK! {0002}><UNK! {0001}>
  37. 1360  0<UNK! {0002}><UNK! {0009}><UNK! {0004}>PLA1RETURN2<UNK! {FF20}><UNK! {0004}> <UNK! {0009}><UNK! {0004}>PLA2RETURN2LINE <UNK! {0004}> <UNK! {0009}><UNK! {0004}>PLA3RETURN2` <UNK! {0004}> <UNK! {0009}><UNK! {0004}>PLA4RETURN2`
  38. 1380  0<UNK! {0002}>WHILE<0xE3!> 0
  39.