home *** CD-ROM | disk | FTP | other *** search
/ FreeWare Collection 2 / FreeSoftwareCollection2pd199x-jp.img / fbasic / bowling / bowling.bas (.txt) next >
Encoding:
GW-BASIC  |  1990-06-14  |  7.5 KB  |  36 lines
  1. 52479  0
  2. 4096  '<UNK! {0001}>NEXT{END[NEXTRUNNEXTLISTNEXTONEXTXNEXTRNEXTAREMWRESTOREvNEXTvNEXTGOSUBNEXTONEXTGOTONEXT<UNK! {0080}>     BY RETURNRSTOP/ PRINTGOSUBRETURNi
  3. 6656  '<UNK! {0001}>
  4. 10020  <UNK! {0001}>RESTOREBSAVESTOPlNEXTfEND[NEXT^
  5. 10030  <UNK! {0001}>WAITLOADPRINTO                NAM$(n)
  6. 14336  '<UNK! {0001}>NEXTANEXTxNEXTRESTOREEND[NEXTW          PRM(n,7)
  7. 10050  <UNK! {0001}>GOSUBBEEPGOSUBFORNEXTXNEXTRNEXTA          PRM(n,8)
  8. 10060  <UNK! {0001}>NEXTQEND[NEXT<UNK! {0080}>STOPNEW            PRM(n,9)
  9. 10070  <UNK! {0001}>NEXTgEND[NEXT^NEXTIFNEXTXNEXTRNEXTA      PRM(n,0)
  10. 10080  <UNK! {0001}>NEXTXNEXTgNEXTGOTONEXTCNEXTNSTOPNEW        PRM(n,1)
  11. 10090  <UNK! {0001}>NEXT_NEXTuNEXTIF              PRM(n,2)
  12. 10100  <UNK! {0001}>NEXT^END[NEXTLEND[            PRM(n,3)
  13. 10110  <UNK! {0001}>NEXTXNEXTyNEXTASTOPNEW            PRM(n,4)
  14. 10120  <UNK! {0001}>NEXTXNEXTvNEXTRUNNEXTbNEXTgSTOPNEW        PRM(n,5)
  15. 10130  <UNK! {0001}>REMGOTOIFINPUTNEXTKNEXT^END[STOPNEW        PRM(n,6)
  16. 10140  <UNK! {0001}>    NEXTQEND[NEXT<UNK! {0080}>NEXTfEND[NEXT^    PRINT>mNEXTQEND[NEXT<UNK! {0080}>
  17. 42496  '<UNK! {0001}>    NEXTgEND[NEXT^NEXTIF        GPRM(n,m,0)
  18. 45056  '<UNK! {0001}>    NEXTXNEXTgNEXTGOTONEXTCNEXTN      GPRM(n,m,1)
  19. 47616  '<UNK! {0001}>    NEXT_NEXTuNEXTIF          GPRM(n,m,2)
  20. 50176  '<UNK! {0001}>    NEXT^END[NEXTLEND[        GPRM(n,m,3)
  21. 52736  '<UNK! {0001}>    NEXTXNEXTyNEXTA          GPRM(n,m,4)
  22. 55296  '<UNK! {0001}>    NEXTXNEXTvNEXTRUNNEXTbNEXTg      GPRM(n,m,5)
  23. 57856  '<UNK! {0001}>    REMGOTOIFINPUTNEXTKNEXT^END[      GPRM(n,m,6)
  24. 60416  '<UNK! {0001}>
  25. 10230  <UNK! {0006}><UNK! {0005}>ENTRY
  26. 10240  <UNK! {0001}>for TOWNS
  27. 2560  (<0x9A!><UNK! {0004}>CSRLIN 2P,28<UNK! {0004}><0x9F!> 4426,2<UNK! {0002}>
  28. 10260  <UNK! {0001}>
  29. 10270  TRON <UNK! {0009}><UNK! {0002}>A
  30. 23042  
  31. 10240  (EDIT <UNK! {0007}>19971AM(23.6E-16(20,2<UNK! {0009}>)
  32. 12800  (EDIT <UNK! {0007}><UNK! {0009}><UNK! {0004}>GPRM(20,2<UNK! {000A}>,2<UNK! {0006}>)
  33. 10300  EDIT <UNK! {0007}><UNK! {0009}><UNK! {0003}>SRT(20241
  34. 17920  (<UNK! {0006}><UNK! {0004}>MAIN
  35. 20480  (TAB( 0
  36.