home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 14 / 14.iso / s / s023 / 5.ddi / LP.BAS (.txt) < prev   
Encoding:
GW-BASIC  |  1989-08-01  |  1.8 KB  |  43 lines
  1. 10  CLS:KEY OFF:DEFINT A-Z:DIM A$(100):WIDTH"LPT1:",255
  2. 20  PRINT"<0xB4!>IMPNOTELSEWRITEMERGELOCATEMERGE:TROFFRESUMECLOSEINSTRCALL<0xB5!>-WRITESTRING$SPC(CALL , COLORERROPTIONEQV-ERRCSRLINSPC(CALLTROFFDELETE";:P$=INPUT$(1):IF P$=" " THEN 190
  3. 30  CLS:PRINT"     WRITESTRING$  SPC(CALL  <0xB4!>IMP  NOTELSE":PRINT"DELETESWAPDELETESWAPDELETESWAPDELETESWAPDELETESWAPDELETESWAPDELETESWAPDELETESWAPDELETESWAPDELETESWAPDELETESWAPDELETESWAP"
  4. 40  INPUT"TAB(SOUND LOAD<UNK! {FE20}>BLOAD<UNK! {00FB}>: ",F$:IF F$="" THEN END ELSE OPEN"I",#1,F$
  5. 50  INPUT"SPC(CALL    CALLSWAP(CLOSEINSTRCALL<0xB5!>=55): ",K:IF K=0 THEN K=55
  6. 60  INPUT"SPC(CALLLOAD<0xE4!>COLORERRUSRUSR(CLOSEINSTRCALL<0xB5!>=10): ",OO:IF OO=0 THEN OO=10
  7. 70  INPUT"USINGMODWHILE<0xDF!>COLORERRMOTORUSR(CLOSEINSTRCALL<0xB5!>=10): ",O:IF O=0 THEN O=10
  8. 80  INPUT"COLORAUTOLOCATELOAD<0xB4!>IMPNOTELSESPC(CALLOPENBEEP(CLOSEINSTRCALL<0xB5!>=1):",N:IF N THEN FOR I=1 TO N*K-K:GOSUB 160:NEXT ELSE N=1
  9. 90  INPUT"<0xB4!>IMPNOTELSETHEN-SPC(CLOSESPC(CALLERLOFFTHENTROFF(Y/N)? ",O$:IF O$="y" THEN O$="Y"
  10. 100  INPUT"LINE<0xB4!>CLOSEINSTRCALL<0xB5!>LOAD<UNK! {00FC}>COLORAUTOLOCATELOAD<0xB4!>IMPNOTELSE...",OO$:I=0
  11. 110  I=I+1:IF EOF(1) THEN 120 ELSE GOSUB 160:LPRINT A$:IF I<K THEN 110
  12. 120  IF I<K THEN FOR J=1 TO K-I:LPRINT:NEXT
  13. 130  LPRINT SPC(O+37)"DELETESWAP"N"DELETESWAP":N=N+1
  14. 140  IF I=K THEN FOR J=1 TO OO:LPRINT:NEXT:I=0 ELSE CLOSE:GOTO 40
  15. 150  IF O$="Y" THEN 100 ELSE 110
  16. 160  A$=""
  17. 170  Z=ASC(INPUT$(1,1)):IF Z=141 OR Z=13 THEN 170
  18. 180  IF Z=138 OR Z=10 THEN RETURN ELSE A$=A$+CHR$(Z):GOTO 170
  19. 190  CLS:PRINT"     ERRCSRLIN  SPC(CALL  <0xB4!>IMP  NOTELSE":PRINT"DELETESWAPDELETESWAPDELETESWAPDELETESWAPDELETESWAPDELETESWAPDELETESWAPDELETESWAPDELETESWAPDELETESWAPDELETESWAPDELETESWAP"
  20. 200  A=10:B=80:C=20:D=50:E=16:FF$="`&20`"
  21. 210  PRINT"<0xB4!>IMPNOTELSEWENDTAB(LOCATE<UNK! {FD3A}> 1-USINGMODWHILE<0xDF!>COLORERR:"A",2-SPC(CALLCOLOR^:"B",3-STRING$USRCOLORERR:"C",4-SPC(CALLCALLSWAP:"D",5-SPC(CALLLOAD<0xE4!>COLORERR:"E",6-USRUSRSAVE<0xE0!>:"FF$"7-STRING$INSTRSTEPERLWENDTAB(LOCATE<UNK! {FD2C}>8-<0xB6!>MOTORWENDTAB(LOCATE<UNK! {FDCE}>SOUNDLOAD<UNK! {FE2C}>9-<0xB4!>>WENDTAB(LOCATE<UNK! {FDCE}>SOUNDLOAD<UNK! {FE22}>
  22. 220  INPUT"USRINKEY$OPTIONSOUNDWENDTAB(LOCATE<UNK! {FD3F}> (WHILE<0xE0!>OPENBEEP/RETURN)",H:IF H=0 THEN 320
  23. 230  ON H GOTO 240,250,260,270,280,290,210,300,310
  24. 240  INPUT"    USINGMODWHILE<0xDF!>COLORERR=",A:GOTO 220
  25. 250  INPUT"    SPC(CALL  COLOR^=",B:GOTO 220
  26. 260  INPUT"    STRING$USR  COLORERR=",C:GOTO 220
  27. 270  INPUT"    SPC(CALL  CALLSWAP=",D:GOTO 220
  28. 280  INPUT"    SPC(CALLLOAD<0xE4!>COLORERR=",E:GOTO 220
  29. 290  INPUT"    USRUSR  SAVE<0xE0!>=",F:FF$="`&"+RIGHT$(STR$(F),LEN(STR$(F))-1)+"`":GOTO 220
  30. 300  OPEN"I",#1,"LP.DAT":INPUT#1,A,B,C,D,E,FF$:CLOSE:GOTO 220
  31. 310  OPEN"O",#1,"LP.DAT":WRITE#1,A,B,C,D,E,FF$:CLOSE:GOTO 220
  32. 320  INPUT"TAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>: ",F$:IF F$="" THEN END ELSE OPEN"I",#1,F$
  33. 330  INPUT"COLORAUTOLOCATELOAD<0xB4!>IMPNOTELSESPC(CALLOPENBEEP(CLOSEINSTRCALL<0xB5!>=1):",N:IF N THEN FOR I=1 TO N*D-D:GOSUB 160:NEXT ELSE N=1
  34. 340  INPUT"LINE<0xB4!>CLOSEINSTRCALL<0xB5!>LOAD<UNK! {00FC}>COLORAUTOLOCATELOAD<0xB4!>IMPNOTELSE...",OO$:LPRINT FF$;
  35. 350  FOR I=1 TO D:IF EOF(1) THEN K=1 ELSE GOSUB 160:A$(I)=A$:NEXT
  36. 360  FOR J=1 TO I-1:LPRINT TAB(A+1)A$(J);:LPRINT TAB(A+B+C+1);
  37. 370  IF EOF(1) THEN K=1:LPRINT ELSE GOSUB 160:LPRINT A$
  38. 380  NEXT:IF K=1 THEN FOR J=I TO D:LPRINT:NEXT
  39. 390  LPRINT TAB(A+B/2-3)"DELETESWAP"N"DELETESWAP";
  40. 400  IF K=1 THEN LPRINT ELSE LPRINT TAB(A+B+C+B/2-3)"DELETESWAP"N+1"DELETESWAP"
  41. 410  IF K=1 THEN END ELSE FOR L=1 TO E-1:LPRINT:NEXT
  42. 420  N=N+2:BEEP:BEEP:INPUT"LINE<0xB4!>CLOSEINSTRCALL<0xB5!>LOAD<UNK! {00FC}>LOADTOUSR<UNK! {00F8}><0xB4!>IMPNOTELSE...",O$:GOTO 350
  43.