home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 September / Simtel20_Sept92.cdr / msdos / statstcs / epistatx.arc / EPISTAT.MRG < prev    next >
Text File  |  1985-07-03  |  1KB  |  15 lines
  1. 8 'DEF SEG=64:A=PEEK(23):IF NOT(A AND 32) THEN POKE 23,(A OR 32) ===Jim (suppres Set NumLock)
  2. 11 FOR Z=1 TO 4:PLAY "MB O=Z; L18 CEGB-":NEXT:FOR Z=4 TO 2 STEP -1:PLAY "MB O=Z; L14 AFC.":NEXT:PLAY "MB O1 L16 B L6 B-A L2 F" '===Jim (linenr changed)
  3. 40 PRINT TAB(8);STRING$(61,178) '===Jim (statements moved)
  4. 45 'deleted by Jim (EPISTAT now starts faster playing backgroud music while printing to screen)
  5. 50 CLR1=7:CLR2=0:CLR3=0:SCRN=0:ON ERROR GOTO 5000 '===Jim (statements moved)
  6. 213 print tab(15);"0.)  Exit from EPISTAT to DOS.":print '===Jim
  7. 225 PRINT TAB(15);"3.)  Exit to run a specific test program.":print '===Jim
  8. 227 print tab(15);"4.)  Exit from EPISTAT to BASIC." '===Jim
  9. 230 LOCATE 20,20:INPUT "Enter choice:    ",ASUB:IF ABS(2-ASUB)>2 THEN BEEP:GOTO 230 '===Jim
  10. 235 CLS:ON ASUB GOTO 240,340,600,655 '===Jim
  11. 238 system '===Jim 
  12. 240 PRINT TAB(25);"TESTS AVAILABLE IN EPISTAT":PRINT TAB(25);STRING$(26,205) '===Jim (statements moved)
  13. 655 key 1,"LIST ":key 2,"RUN"+chr$(13):key 3,"LOAD"+chr$(34):key 4,"SAVE"+chr$(34):key 5,"CONT"+chr$(13):key 6,","+chr$(34)+"LPT1:"+chr$(34)+chr$(13) '===Jim
  14. 656 key 7,"TRON"+chr$(13):key 8,"TROFF"+chr$(13):key 9,"KEY ":key 10,"SCREEN 0,0,0"+chr$(13):key on:cls:end '===Jim (reset function keys)
  15.