home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug078.ark / TESTPROT.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-02-10  |  896 b   |  7 lines
  1. 5716  PRESETFORMODY=17014OR>9FARETURN7<0xE1!>}qHMOTOR{sLOCATEDEFDBL9<0x9A!>a;RETURN#<UNK! {0004}>UX*LET
  2. 3002  <UNK! {0080}>H]xXORWRITE<0xE4!>A<0xE4!>DEFINT<0xDF!>AUTO<0x9A!>ZBSAVESAVESTRING$<UNK! {FF4F}>3V-9.02778E-09<UNK! {007F}>H?PNEW{RESTORE=<UNK! {00FA}>LET<UNK! {00F8}>C;35SAVEw3REM5.50908E+13}yGOSUBb_WHILE<UNK! {00F6}>BEEPBSAVE
  3. 35217  JM/RUNLPRINTnO<0xE4!>^3GOTORETURN0r\-WENDm:U_USING<0x9B!>2f@{\<UNK! {0009}>=CSRLINELSE<0xDF!>&k<UNK! {0009}>JcCXOR_/4 NEWw/<UNK! {0006}>8uKEY>'BLOADDEFSTR!WRITE2<UNK! {000A}>LETtEQVbgLINELETOUT9<UNK! {00F6}>SPC(D?<UNK! {0006}><UNK! {0002}>4M<UNK! {0001}><UNK! {00FC}><0xE4!>EQVDEFINTDEFSNGWRITEELSE.BSAVESAVE*READc']7^rLLISTTERRHUSR'>6y5POKE9<UNK! {0005}>5CLSRUNSTRING$OFORVIELSEE2ERL@MDIM3XORMz<0xE0!>10<UNK! {001E}>\ELSE<UNK! {0008}>BSAVECOLORh"ERLRANDOMIZEZ)IFKEYLPRINTdLOR<0xE3!>3
  4. 56732  <0xE5!>-%?17603<UNK! {0009}>@PLPRINTSTOP=SJawUSINGRESTORE<0xE0!>ELSE^(qoCXySTEP{<UNK! {FDFD}>aCALL\RESUMEG<UNK! {001E}>WKEY<UNK! {0080}><UNK! {0004}>OUT<UNK! {00FA}>DIM<0xB4!>5GSPC(tIF-0.000177988Zok7MKDIRINKEY$-1.61692E+31TROFFfCLOSESTOPWAITFN#g8<0x9A!>.5;<0xE4!><mCOLORRENUMWIDTHTAB(2_v0POPTIONbTAB(<0xE5!>&?<UNK! {0009}>.~EINPUTQ[6^DIMNEW<UNK! {007F}>pMOD#ERASEOFF<UNK! {FDAD}>PSETDEFL2LLISTGOTODCERASEXLPRINTNEWn<UNK! {0005}>VARPTR7LOCATELOCATEY<0xE1!>ELSECLEARC2.09958READY%DEFSTRPRESETf<UNK! {000D}>c<UNK! {0004}>E<UNK! {0009}>WRITEOPENERL^"[10k2<UNK! {0001}><0xB5!>t'$ <0xE1!>7RESUME<UNK! {0006}>q,KEY<UNK! {0006}>s<UNK! {0006}><UNK! {00FA}>d^aK<UNK! {00FC}>tIFsQPRESET<0xCB!>PSETWWAIT^.READC>[<UNK! {00F8}>BLOADONsv&=RESTORESTRING$<UNK! {000D}>TRONINKEY$RESTOREFN6|DEFDBLz2v<UNK! {FDDF}>INSTRDIMDEFINTWRITE-8.06671E+089lW<0xE2!>POINTcC\<UNK! {007F}>9PSETVARPTRdRESUMENEXTm?/sINPUTp6#8<UNK! {0001}>ZCSRLIN<0xE5!>DEF;<UNK! {0008}><0xB4!>VARPTR>-KNOTTROFFRESTORED<0x9B!>CALLHSCREENDELETEYWAITERASEPRINT`-74.6924T7_
  5. 23607  4;<UNK! {0009}>BSAVECSRLIN<0x9F!>USING<UNK! {0009}>DELETE4p0<UNK! {0001}>D<UNK! {0004}>3.9886E+27USING>fLOCATE<UNK! {000A}>CLSDEFa"&H8B55<UNK! {00F9}>8SOUNDLET{'PENk5L<0x9B!>ECOLOR8INKEY$w<UNK! {00F8}>LINEPOKE8ORAMOD'9<0xE5!>6^e`0M48LOADSTEPdTAB(G"=_<0VnA<UNK! {00F5}><UNK! {00FB}>7+R5BEEPyhDEFSNG^<UNK! {00FC}>jLISTSTOPVK&F&H490>PSETBLOAD;10>YvDDIM<0xE2!>TROFFv<EQV'6RENUM
  6. 64391  m;OUT-<0xB4!>07BK\R:U<UNK! {00F8}>I\GLLIST^R^MOTORY/P30INPUT\'} NOT<UNK! {0008}>L>$XSTEP9<UNK! {FE06}><UNK! {00F8}>dDEFSNGREADI<0xDF!>SOUNDOUT30MERGEOPENTROFF'<0x9B!>THENy5k-1.18234E+280OFFPRINTm^Q42&ERRORJERR<UNK! {000D}>BLOAD%<UNK! {000A}><UNK! {0009}>~<<UNK! {0005}>8CLSt-26647<UNK! {000A}>-9,PSET<UNK! {0008}>^MOTORNEXT6aDIMTAB(<0x9F!>FORKEY<UNK! {00F9}>4'2(BSAVE<0xB5!>nQ<UNK! {00F9}><0xE0!>eCCLOSE`LPRINTRq2C\(LPRINTDEFDBL0ONV~kTHENSWAPSTOPGDEFINTLOAD=MERGE<0x9A!><UNK! {001E}>MXOR<UNK! {000A}>oOFF6.14286E+30THENWRITE=uLPRINT}j<UNK! {00F6}>XOR&<UNK! {007F}>E<0xB6!>RUN6<UNK! {FFB7}>-&O37777716734#7vSOUND:<UNK! {001E}>3DATAINPUT
  7.