home *** CD-ROM | disk | FTP | other *** search
/ FreeWare Collection 2 / FreeSoftwareCollection2pd199x-jp.img / fbasic / paicalc / paicalc.bas (.txt)
Encoding:
GW-BASIC  |  1990-06-14  |  8.8 KB  |  112 lines
  1. 255  #
  2. 3  
  3. 1000  <UNK! {0001}>FORaFOR`FORrFORhFORbFORKEYFOR>FOR+NEXTTAB(RESTOREvRETURNZNEXTvNEXTGOSUBNEXTONEXTGOTONEXT<UNK! {0080}>
  4. 1010  <UNK! {0001}>copyright by FORcFORcFORs(NIFTY-SERVE NAA00710) GOSUBFORIF<0xB4!>  PRINT<0xE5!>GOTOAND
  5. 1020  <UNK! {0001}>          on 90/05/13
  6. 1536  <UNK! {0004}><UNK! {0001}>NEXT}NEXT`NEXTLISTFORTORETURNDEFSNG
  7. 1040  <UNK! {0001}>NEXTTAB(/4=4*ARCTAN(1/5)-ARCTAN(1/239)
  8. 1050  <UNK! {0001}>NEXTTAB(/4=4*(1/5-1/3*5^3+1/5*5^5+ERASEERASEERASE)-(1/239-1/3*239^3+1/5*239^5+ERASEERASEERASE) 
  9. 9216  <UNK! {0004}><UNK! {0001}>NEXTTAB(  =16*(1/5-1/3*5^3+1/5*5^5+ERASEERASEERASE)-4*(1/239-1/3*239^3+1/5*239^5+ERASEERASEERASE) 
  10. 1070  <UNK! {0001}>
  11. 1080  <UNK! {0001}>DEFpLETNOTFORWRITEFOR+FOR<0xE0!>FORTO( A??()FORTHENSWAPNEWzDEFEQV )
  12. 1090  <UNK! {0001}>
  13. 1100  <UNK! {0001}>IFENDFOR<0xDF!>FOR+RESTOREINPUTSTOPNEWERASEERASEERASEERASEERASE1NEXTWAIT  MAX    0FORDELETEFOR=21GOTODEFINTFORPOINTFORBEEPFORTORUNERL(SPC(NOTINSTRLINEFORAUTOFORCLSFOR<0xE3!>FORPRESETEND[FOREQV)
  14. 1110  <UNK! {0001}>NEWzDEFEQVSTOPNEWERASEERASEERASEERASEERASEERASEERASEERASEERASE1NEXTWAIT  LAST   STOPDEFSNGSTOPNEWONNEWONAUTOFORPSETREMDEFSTRSTOPNEWONNEWONAUTOFORTOONKDEFvNEWzDEFEQVSTOPNEW
  15. 24576  <UNK! {0004}><UNK! {0001}>NEXTpNEXTCRUNiNEW[RESTOREKEYERASEERASEERASEERASEERASE1NEXTWAIT  ANS()  ENDDELETEACC1()
  16. 27136  <UNK! {0004}><UNK! {0001}>GOTOGOTORETURNZNEWzDEFEQV1ERASEERASEERASEERASEERASEERASE1NEXTWAIT  ACC1() ENDDELETEACC2/ARCVAR
  17. 1140  <UNK! {0001}>GOTOGOTORETURNZNEWzDEFEQV2ERASEERASEERASEERASEERASEERASE1NEXTWAIT  ACC2() ENDDELETE1/ARCCON^N (N=3,5,7,ERASEERASEERASE)
  18. 32256  <UNK! {0004}><UNK! {0001}>arctanONSTEPSTOPNEWERASEERASEERASEERASEERASE1NEXTWAIT  ARCVAR ARCTANLISTWRUNJFORTOGOSUBCSRLINFORTOONSTEPSTOPNEW
  19. 34816  <UNK! {0004}><UNK! {0001}>arctanCLEAR<STOPNEWERASEERASEERASEERASEERASE1NEXTWAIT  ARCCON  ARCTAN(1/ARCCON)
  20. 1170  <UNK! {0001}>GOTOMOTORRESTOREOPTIONRETURNZNEXTLNEXTNEXTNEXTRUNEND[ERASE1NEXTWAIT  CARRY
  21. 39936  <UNK! {0004}><UNK! {0001}>GOSUBBEEPREM<0xE3!>LETLOCATERESTOREINPUTERASEERASEERASEERASEERASEERASEERASE1NEXTWAIT  TOP    NEWzDEFEQVLIST<0xE0!>FORBEEPFORTOGOSUBBEEPREM<0xE3!>LETLOCATEDEFLRESTORE<UNK! {00F8}>STOPNEWRETURN<0x9A!>
  22. 42496  <UNK! {0004}><UNK! {0001}>NEWSOUNDDEFpNEXTJNEXTENEXTLISTNEXT^END[ERASE1NEXTWAIT  COUNT
  23. 45056  <UNK! {0004}><UNK! {0001}>RESTOREvRETURNZRUNJRETURNnRETURNLLISTGOSUBREMERASEERASEERASE1NEXTWAIT  STARTDATE,STARTTIME
  24. 47616  <UNK! {0004}><UNK! {0001}>RESTOREvRETURNZREMRUNDEFvRETURNLLISTRUNERLERASEERASEERASE1NEXTWAIT  CALTIME
  25. 50176  <UNK! {0004}><UNK! {0001}>
  26. 1230  <UNK! {0001}>NEWzDEFEQVFORTOGOSUB\PRINTTRON
  27. 1240  <UNK! {0001}>ACC(0)=STOPDEFSNGSTOPNEWONNEWONAUTO
  28. 57856  <UNK! {0004}><UNK! {0001}>ACC(1)FORDELETEFOR=ACC(LAST)=REMDEFSTRSTOPNEWONNEWONAUTO   1NEWzDEFEQVFORKEY4RESTOREINPUT
  29. 60416  <UNK! {0004}><UNK! {0001}>
  30. 1270  <UNK! {0001}>------STEP 0 -----REMGOTORUN<UNK! {00FA}>STOPOFFCLEAR<------USER INTERFACE----------  
  31. 1280  <UNK! {0001}>GOTOMERGERESTOREINPUTFORPOINTFORBEEPRESTOREvRETURNZFORWRITEFOR+FORDELETEONWRITEFORDEFINTENDBRESTOREvRETURNZRETURNLLISTRUNERLFORTORESTOREvPRINTAUTO
  32. 1290  <UNK! {0001}>------STEP 1------4*(4*ARCTAN(1/5)) FORTOSTOPNEWCLEARlSTOPOFFCLEAR<-----------
  33. 5120  <UNK! {0005}><UNK! {0001}>GOSUBBEEPREMGOTOFORKEYANS()FORKEYFOR<0xE0!>RUNiNEW[FORWRITEFOR+
  34. 7680  <UNK! {0005}><UNK! {0001}>LISTDEFDBLRETURNLLISTFORKEYACC2()FORKEY16/5(=3.2)FORXORLIST<UNK! {00FC}>FOR-FOR+
  35. 1320  <UNK! {0001}>ARCCONFORKEY25FORXORPRINT<0xE3!>LIST<UNK! {00FC}>
  36. 1330  <UNK! {0001}>ARCVARFORKEY3FORXORPRINT<0xE3!>LIST<UNK! {00FC}> 
  37. 1340  <UNK! {0001}>ARCTANNEXTTNEXTuNEXTIFEND[NEXT`NEXTLISTONGOTOSTOPNEWNEXTGNEXTLISTNEXTgNEXTRUNNEXTREND[NEXTIF
  38. 1350  <UNK! {0001}>-------STEP 2------4*(ARCTAN(1/239))FORTOSTOPNEWCLEARlSTOPOFFCLEAR<----------
  39. 1360  <UNK! {0001}>GOSUBBEEPREMGOTOFORKEYACC2()FORKEY4*239FORXORLIST<UNK! {00FC}>FOR-FOR+ELSE
  40. 1370  <UNK! {0001}>ARCCONFORKEY239^2FORXORLIST<UNK! {00FC}>FOR-FOR+
  41. 25600  <UNK! {0005}><UNK! {0001}>ARCVARFORKEY1FORXORPRINT<0xE3!>LIST<UNK! {00FC}>
  42. 28160  <UNK! {0005}><UNK! {0001}>ARCTANNEXTTNEXTuNEXTIFEND[NEXT`NEXTLISTONGOTOSTOPNEWNEXTGNEXTLISTNEXTgNEXTRUNNEXTREND[NEXTIF
  43. 1400  <UNK! {0001}>-------STEP 3------RESTOREIFGOTOLOCATEON\RETURNEDIT------USER INTERFACE--------- 
  44. 33280  <UNK! {0005}><UNK! {0001}>NEXTDIMEND[NEXTUEND[FORTODEFvIFENDFORWRITEFOR+NEXTfEND[NEXT^FORXORON\RETURNEDITFOR<0xB5!>FORSOUNDREMIDEFRANDOMIZEFORWRITEFOR+ELSE
  45. 35840  <UNK! {0005}><UNK! {0001}>-------STEP 4------ARCTAN NEXTTNEXTuNEXTIFEND[NEXT`NEXTLIST-------------------
  46. 38400  <UNK! {0005}><UNK! {0001}>ONGOTOSTOPNEWFORDELETEFOR=FORTORUNJRETURNnNEXTGNEXTLISTNEXTgNEXTRUNEND[
  47. 1440  <UNK! {0001}>   ACC2()/ARCCON->ACC2()
  48. 1450  <UNK! {0001}>   ACC2()/ARCVAR->ACC1()
  49. 1460  <UNK! {0001}>   ANS()-ACC1() ->ANS()
  50. 48640  <UNK! {0005}><UNK! {0001}>   ARCVAL=ARCVAL+2
  51. 1480  <UNK! {0001}>STOPCALLSTOPNEWFORDELETEFOR=FORTORUNJRETURNnNEXTGNEXTLISTNEXTgNEXTRUNEND[
  52. 1490  <UNK! {0001}>   ACC2()/ARCCON->ACC2()
  53. 1500  <UNK! {0001}>   ACC2()/ARCVAR->ACC1()
  54. 1510  <UNK! {0001}>   ANS()+ACC1() ->ANS()
  55. 61440  <UNK! {0005}><UNK! {0001}>   ARCVAL=ARCVAL+2
  56. 1530  <UNK! {0001}>ONGOTOSTOPNEWNEXTGNEXTLISTNEXTgNEXTRUNEND[FORSTRING$NEXTWNEXTNEXTNEXTLISTNEXTv
  57. 1540  <UNK! {0001}>(NEXTRUNNEXT^END[NEXTLISTFORTHENACC1(LAST)FORTOLIST<0xE0!>DEFeFORAUTO0FORKEYFORSCREENFORMOTORFORMERGERETURNLLISTLIST_)
  58. 3584  <UNK! {0006}><UNK! {0001}>
  59. 1560  <UNK! {0001}>------------------ONtIFL-----------------------
  60. 8704  <UNK! {0006}><UNK! {0001}>FORWHILEFORTONEXTvNEXTGOSUBNEXTONEXTGOTONEXT<UNK! {0080}>FORXORGOSUB/FOR+FORRENUMFORMOTORFORDELETEFORDEFDBLFORTHEN
  61. 1580  <UNK! {0001}>NIFTY-SERVE FORTOTOWNS FORUM FORBEEPENDA
  62. 1590  <UNK! {0001}>NEXTTAB(FORTORESTOREvRETURNZRETURNDEFSNGFORXORBASIC FORBEEPPRINTgFOREQVFORBEEPFOROFFFORMERGEFOR=
  63. 1600  <UNK! {0001}>RETURNCLSSTOPNEWFORTOSTOPOPTIONLISTxFORBEEPFORWIDTHFOR+15RESTOREINPUTFORPOINTFORBEEPFOR<0xB5!>FORDELETEIFENDFOR<0xDF!>FOR=FOR-FORSCREENFORDELETEFORMOTORFORMERGEFORPSETFORTRONFORSWAPENDA
  64. 1610  <UNK! {0001}>NEWDEFINTRESTORESAVEFORKEYPRINTTAB(FOR<0xB5!>FORSOUNDFOR<0xB5!>FOREQVFORMERGEFOR*ENDiFORWHILEFOR-FORMOTORFORSOUNDNEXTnNEXTLISTNEXThNEXTIFENDENDNEXTyNEXTLISTNEXTlEND[NEXT<UNK! {0080}>FORBEEPFORWRITEENDjFORCALLFOREQVFORAUTO
  65. 1620  <UNK! {0001}>NEXT}NEXT`NEXTLISTFORTORETURNDEFSNGFORTORESTORE<0xB4!>RESTORE^NEXTTAB(END^FORSFORXORIFENDFOR<0xDF!>FOR+NEXTvNEXTGOSUBNEXTONEXTGOTONEXT<UNK! {0080}>FORXORNEWDEFINTON\FOR<0xB5!>FORMERGEFORWHILEFORPSETFORBEEPFORWRITEENDB
  66. 1630  <UNK! {0001}>
  67. 1640  <UNK! {0001}>RETURNCLSFORTHENFORcFORcFORsFOR<0xE0!>LISTDEFDBLFOR<0xB6!>NEWDEFINTRESTORESAVEFORXORLISTPRESETFOREQVFORBEEPGOSUB/FOR<RETURNnFOR<0xDF!>FORMERGEFORTOFORBEEPFORWRITEFORAUTOENDA
  68. 1650  <UNK! {0001}>LET-REMTRUNERLRESTORE<0xE3!>FORKEYPRINT<0xE5!>RUNwFORTOPRINTWENDIFPSETRETURNRETURNRESTOREWHILEFORAUTORETURNnFORPOINTFOR+FORMERGEFOR<0xDF!>FORKEYENDARESTORE<0xB4!>RESTORE^FORTOFOROFFFOR<0xB5!>FORDELETEFORBEEPFORRENUMFOROPTIONENDA
  69. 1660  <UNK! {0001}>RETURNRETURNRESTOREWHILEFORAUTOREMIFOR^FOR+GOSUBWIDTHFORKEYFORTHENFOR<0xB5!>FOREQVFORMERGEFOR*FORCALLFOREQVFORAUTONIFTY-SERVEFORKEYNEWDEFINTON\FOR<0xB5!>FORSOUNDFORTRONFORPOINTFOR<0xB5!>FORMERGEENDB
  70. 34304  <UNK! {0006}><UNK! {0001}>RESTORE<0xE3!>FORDELETEFOR=NEWDEFINTON\FORWRITEFOR+FORTOFORSCREENFOR=ENDAFORPSETRETURNvFORTRONENDA
  71. 1680  <UNK! {0001}>NEXTTAB(END^FORSFORBEEPFORTHENFORSCREENFORDEFINTFORSOUNDENDANEXTTAB(FORCLOSEFORTOFOR<0xE0!>FORTOFORXORIFENDFOR<0xDF!>FOR+FOR>FORSWAPFORKEYFOR<0xB5!>FORMERGEFOR<ENDA
  72. 1690  <UNK! {0001}>NEXTDIMEND[NEXTUEND[NEXTCNEXTLISTNEXT^END[NEXTtNEXTFEND[NEXTXENDiFORPSETFORTRONFORMOTORFORSOUNDFOR<0xE0!>PRINT<0xE5!>FOR<0xB5!>FORMERGEFORWHILEFORPSETFORTHENWAITCALLFORTRONFORAUTOENDjFORTOGOTO<UNK! {00FC}>DEFPRESETENDA
  73. 1700  <UNK! {0001}>GOSUBFORPRINTDEFSTRGOTOCLOSEENDiFORPSETFORTRONFORMOTORFORSOUNDFOR<0xE0!>ENDAFORaFOR`FORrFORhFORbFORBEEPFORTHENFORMERGEFORDELETEFORAUTOFOR<0xB5!>FOR-FORSOUNDFORTRONFOR+FORAUTOENDjFORXOR
  74. 1710  <UNK! {0001}>FORTHENFORDELETEFOR<FORPOINTFOR<0xB5!>FORMERGEENDB
  75. 1720  <UNK! {0001}>
  76. 1730  <UNK! {0001}>FOR<0xE0!>FORSWAPREMDEFINTFOR<0xB5!>RETURNLLISTRUNERLFORAUTOFORWIDTHFOR-FORTAB(ENDANEXTGNEXTGOTOEND[REMLETDEFLPRINTENDiDEF<0xE1!>FOREDITFORTAB(LISTDEFDBLFOR<0xB6!>WAITLOADPRINTOFORTONEXTtNEXT@NEXTCNEXTIFFORAUTO
  77. 1740  <UNK! {0001}>FORWIDTHFORMOTORFORMERGERETURNLLISTFORTOREMLETDEFLPRINTENDENDGOSUBELSEFORTHENFORPOINTFORSAVENEXTGNEXTGOTOEND[NEXTXNEXTgNEXTbNEXTvFORWRITEFOR+ENDjFORSCREENFORPRESETFOR<0xE2!>ENDA
  78. 1750  <UNK! {0001}>LISTrCLEARDIMCLEARDIMCLEARfFOR<0xB5!>FORSOUNDNEXTfEND[NEXT^NEXTZEND[NEXTuENDRESUMERESTORE<0xE3!>GOSUBREMGOSUBSOUNDRUNJFORWRITEFOR+FORPSETFORTRONFORSWAPIF@NEW\FORXORENDA
  79. 1760  <UNK! {0001}>FORWHILEFORTONEXTRNEXTRESTORENEXTNNEXTVNEXTREADNEXTLISTFORKEYNEXToNEXTOLIST<UNK! {00FC}>FOR<FORTOFOR<0xE0!>FORTOFORXORLIST<UNK! {00FC}>FOR-FORMERGEFORDEFINTFORSCREENFORDELETEFORMOTORFORMERGEFORTOFORBEEPENDA
  80. 1770  <UNK! {0001}>GOSUBELSEGOTOEQVFORTHENCLEARfNEWOFOR<0xB5!>FORPOINTFOR<0xB5!>FORMERGEENDB
  81. 1780  <UNK! {0001}>ENDiRETURNDELETEONAUTOFORBEEPFOR<0xE2!>FOR<FORMERGEFORTRONON<UNK! {00FB}>FORTOLETUSINGFORKEYENDRESUME1100GOSUBsFORDELETEFOR=FORWIDTHFOR+ONSTEPSTOPNEWFORAUTOPRINTTAB(REMCSRLINFORBEEPFORWRITEENDj
  82. 1790  <UNK! {0001}>
  83. 1800  <UNK! {0001}>STEP 0FORTOFORQGOSUBsWAITVARPTRFORBEEPRETURNgDEFpONpLISTxREMREADLISToPOKE^FORSCREENFORPRESETFORPSETFORTRONFORSWAPNEXTZNEXTRNEXTCFORPOINTFOR<0xCB!>FORXORFORWRITEFOR+NEWMERGEWAITLOCATEENDA
  84. 1810  <UNK! {0001}>FORWHILEFORTOFOR>FORSWAPFORSCREENIFSTOPPRINT<0xE5!>FORSCREENNEXThNEXTLNEXTINPUTNEXTENDNEXTLISTNEXTgFORXORLISTAUTOFORKEYFORRESUMEFORTRONFORMERGEFOR<
  85. 1820  <UNK! {0001}>LET-NEWERLONKDEFvFORSCREENFORTHENFOROPTIONFORTORESTOREvRETURNZNEXTIFEND[NEXT`NEXTLISTFORXORGOSUBBEEPRESTORE<0xE3!>NEW<UNK! {00F6}>FORKEYFOR<0xE0!>FORMOTORFORSOUNDFORRENUMFORMERGEFOR<ENDA
  86. 1830  <UNK! {0001}>STOP<0xDF!>PRINT<UNK! {0080}>WAITCALLFORCALLFORAUTOFOROFFFOREDITFOROFFFOREDITFORTONEXTvNEXTGOSUBNEXTONEXTGOTONEXT<UNK! {0080}>FORBEEPFORWRITEFORAUTOENDA
  87. 1840  <UNK! {0001}>DEFWRITEGOSUBsFORWRITEFOR+FORPSETFORRENUMFORSCREENFORPRESETFORKEYFORBEEPFOR<0xE0!>RETURNCLSGOSUBsFOR<0xB5!>FORSOUNDFOROFFFORSOUNDGOTOOPENFORCALLFORTRONENDB
  88. 1850  <UNK! {0001}>
  89. 1860  <UNK! {0001}>RESTOREvRETURNZRETURNLLISTRUNERLFORTOWAITVARPTRLETCLSFORTHENENDANEXTvNEXTGOSUBNEXTONEXTGOTONEXT<UNK! {0080}>FORTOWAIT`LISTAUTOFORBEEPFOR<0xE0!>ON\RETURNEDITFORCALLFOR-FORPOINTFORWRITEFORAUTOENDA
  90. 1870  <UNK! {0001}>PRINT<0xE5!>PRINTTO1000RESTOREINPUTFORBEEP12ONAUTOENDAFORPWAITOUTRESTOREINPUTFORBEEP20RETURNLLISTRUNERLENDA
  91. 1880  <UNK! {0001}>RESTOREINPUTSTOPNEWFORAUTOFORmNEW{FORKEYFORSCREENFOR+FORPSETENDARETURNLLISTRUNERLFORTHENFORmENDOFORQNEW{FORDELETEFORDELETEFOR+FORPSETRETURNvFORMOTORFORSOUNDFORDEFINTFORSAVEFORCALLFORTRONENDB
  92. 1890  <UNK! {0001}>10WAITOUTRESTOREINPUTFORBEEPFORQFOROFOROFORORETURNLLISTRUNERLENDENDFORWFOROLIST<UNK! {00FA}>FORPSETFORSCREENFOR<FORPOINTFORWRITEENDB(^_^;)
  93. 1900  <UNK! {0001}>FORSCREENFORRESUMEENDAFORaFOR`FORrFORhFORbFORTONEXTtNEXTRUNEND[NEXTGNEXTRUNNEXTAFORTORUNSTRING$RESTOREWFORBEEP
  94. 1910  <UNK! {0001}>12WAITOUTRESTOREINPUTLETLOCATEFORPOINTFORBEEPFOR<0xB5!>FORDELETERESTOREvRETURNZFORBEEPFORRENUMFORPOINTFORRANDOMIZEFOREQVENDiFORWHILEFOR-FORBEEPFOR<0xE0!>WAITEQVFORSNEXTWAITRESTORERETURNFORDELETEFORDELETEFOR+ENDj(^_^;)
  95. 1920  <UNK! {0001}>GOTOMERGEFORDELETEFORWIDTHFOR<FORPOINTFOR<0xB5!>FORMERGEFOR=ENDANIFTY-SERVE NAA00710 FORPOINTFORBEEPNEXTENDEND[NEXTIFFORXORFORPRESETFORSWAPFORLOAD
  96. 35328  <UNK! {0007}><UNK! {0001}>---------------NEXTvNEXTGOSUBNEXTONEXTGOTONEXT<UNK! {0080}>ONNEWONAUTO------------------
  97. 37888  <UNK! {0007}><UNK! {0001}>
  98. 1950  <UNK! {0001}>------------------STEP 0-----------------------
  99. 43008  <UNK! {0007}>TROFF <UNK! {0009}><UNK! {0002}>A
  100. 23042  
  101. 12851  NEXTrNEXTbNEXTgSTOPDEFSNGSTOPNEWENDA2MNEXTFORNEXTfNEXTIFFORBEEPMAX 12WAITOUTRESTOREINPUTLETLOCATEFORPOINTFORBEEP
  102. 1970  <UNK! {0009}><UNK! {0005}>COUNTRETURN<UNK! {0009}><UNK! {0005}>CARRYREAD<UNK! {0009}><UNK! {0006}>ARCCONREAD<UNK! {0009}><UNK! {0006}>ARCVALREAD<UNK! {0009}><UNK! {0003}>MAXREAD<UNK! {0009}><UNK! {0003}>TOPREAD<UNK! {0009}><UNK! {0004}>LAST <UNK! {0001}>RETURNgDEFpONpLISTxREMREADLISToPOKE^
  103. 48128  <UNK! {0007}>WEND 71NEXTTAB(FORXORGOTOMERGERESTOREINPUTFORPOINTFORBEEPIFENDFOR<0xDF!>FORPOINTFORWRITEFORDELETEENDH GOTOMERGERESTOREINPUTFORDELETEDEF]ONAUTOFORKEYRESTOREvRETURNZFOR<0xB5!>FORPOINTFORWRITEELSE ,<UNK! {0009}><UNK! {0003}>MAX
  104. 1990  SCREEN<UNK! {0004}><UNK! {0009}><UNK! {0003}>MAXRETURN<UNK! {FF80}>(<UNK! {0009}><UNK! {0003}>MAX) <UNK! {0001}>LET-GOTOLLISTNEWOFORTOFORMERGEFOR<0xDF!>
  105. 2000  SCREEN 73RESTORECLOSEGOSUBOFFFORTONEXTtNEXTRUNEND[NEXTGNEXTRUNNEXTAFORTHENCINT(2<UNK! {0003}>)7<UNK! {0009}>NEXToNEXTCNEXTgFORBEEPSWAP
  106. 2010  SCREEN 730348RETURNZFORKEYONKDEFvFORSCREENNEXTENDNEXTFORNEXTRUNEND[FORTHENFORRESUMEFOR>FORCLOSESTRIG(<UNK! {0009}><UNK! {0003}>MAXNEXT2<UNK! {0003}>)7&H6F83NEXTCNEXTgFORBEEPFORWRITEENDB
  107. 58368  <UNK! {0007}><UNK! {0009}><UNK! {0007}>CALTIMERETURNSTRIG(3SCREEN<UNK! {0002}>NEXT2<UNK! {0004}>FOR(<UNK! {FFB1}>((<UNK! {0009}><UNK! {0003}>MAXREAD2<UNK! {000A}>)DATA3<<UNK! {0003}>)DATA<UNK! {FFB1}>(2<UNK! {0002}>))) <UNK! {0001}>FB386 L20FORTONEXTXNEXTsEND[NEXTh
  108. 2030  SCREEN 77RESTOREvRETURNZFORKEYDEFvFORWRITEFOR+RETURNLLISTRUNERLFORTHENFORRESUMEFOR>FORCLOSE<UNK! {0009}><UNK! {0007}>CALTIME7<UNK! {0007}>ONbFORBEEPFORWRITEELSE<UNK! {0004}>SCREEN
  109. 63488  <UNK! {0007}>16642
  110. 38660  pLETNOT
  111. 2050  STOP
  112.