home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 14 / 14.iso / s / s009 / 6.ddi / LP.BAS (.txt) < prev   
Encoding:
GW-BASIC  |  1980-01-04  |  1.8 KB  |  44 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 200
  3. 30  CLS:PRINT"     WRITESTRING$  SPC(CALL  <0xB4!>IMP  NOTELSE":PRINT"DELETESWAPDELETESWAPDELETESWAPDELETESWAPDELETESWAPDELETESWAPDELETESWAPDELETESWAPDELETESWAPDELETESWAPDELETESWAPDELETESWAP"
  4. 40  INPUT"SPC(CALL    CALLSWAP(CLOSEINSTRCALL<0xB5!>=55): ",K:IF K=0 THEN K=55
  5. 50  INPUT"SPC(CALLLOAD<0xE4!>COLORERRUSRUSR(CLOSEINSTRCALL<0xB5!>=10): ",OO:IF OO=0 THEN OO=10
  6. 60  INPUT"USINGMODWHILE<0xDF!>COLORERRMOTORUSR(CLOSEINSTRCALL<0xB5!>=10): ",O:IF O=0 THEN O=10
  7. 70  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
  8. 80  INPUT"<0xB4!>IMPNOTELSETHEN-SPC(CLOSESPC(CALLERLOFFTHENTROFF(Y/N)? ",O$:IF O$="y" THEN O$="Y"
  9. 90  INPUT"TAB(SOUND LOAD<UNK! {FE20}>BLOAD<UNK! {00FB}>: ",F$:IF F$="" THEN END ELSE OPEN"I",#1,F$
  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:N=1:GOTO 90
  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 190 ELSE A$=A$+CHR$(Z):GOTO 170
  19. 190  IF A$="" THEN RETURN ELSE IF ASC(A$)=46 THEN 160 ELSE RETURN
  20. 200  CLS:PRINT"     ERRCSRLIN  SPC(CALL  <0xB4!>IMP  NOTELSE":PRINT"DELETESWAPDELETESWAPDELETESWAPDELETESWAPDELETESWAPDELETESWAPDELETESWAPDELETESWAPDELETESWAPDELETESWAPDELETESWAPDELETESWAP"
  21. 210  A=10:B=80:C=20:D=50:E=16:FF$="`&20`"
  22. 220  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}>
  23. 230  INPUT"USRINKEY$OPTIONSOUNDWENDTAB(LOCATE<UNK! {FD3F}> (WHILE<0xE0!>OPENBEEP/RETURN)",H:IF H=0 THEN 330
  24. 240  ON H GOTO 250,260,270,280,290,300,220,310,320
  25. 250  INPUT"    USINGMODWHILE<0xDF!>COLORERR=",A:GOTO 230
  26. 260  INPUT"    SPC(CALL  COLOR^=",B:GOTO 230
  27. 270  INPUT"    STRING$USR  COLORERR=",C:GOTO 230
  28. 280  INPUT"    SPC(CALL  CALLSWAP=",D:GOTO 230
  29. 290  INPUT"    SPC(CALLLOAD<0xE4!>COLORERR=",E:GOTO 230
  30. 300  INPUT"    USRUSR  SAVE<0xE0!>=",F:FF$="`&"+RIGHT$(STR$(F),LEN(STR$(F))-1)+"`":GOTO 230
  31. 310  OPEN"I",#1,"LP.DAT":INPUT#1,A,B,C,D,E,FF$:CLOSE:GOTO 230
  32. 320  OPEN"O",#1,"LP.DAT":WRITE#1,A,B,C,D,E,FF$:CLOSE:GOTO 230
  33. 330  INPUT"TAB(SOUNDLOAD<UNK! {FEC3}><UNK! {00FB}>: ",F$:IF F$="" THEN END ELSE OPEN"I",#1,F$
  34. 340  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
  35. 350  INPUT"LINE<0xB4!>CLOSEINSTRCALL<0xB5!>LOAD<UNK! {00FC}>COLORAUTOLOCATELOAD<0xB4!>IMPNOTELSE...",OO$:LPRINT FF$;
  36. 360  FOR I=1 TO D:IF EOF(1) THEN K=1 ELSE GOSUB 160:A$(I)=A$:NEXT
  37. 370  FOR J=1 TO I-1:LPRINT TAB(A+1)A$(J);:LPRINT TAB(A+B+C+1);
  38. 380  IF EOF(1) THEN K=1:LPRINT ELSE GOSUB 160:LPRINT A$
  39. 390  NEXT:IF K=1 THEN FOR J=I TO D:LPRINT:NEXT
  40. 400  LPRINT TAB(A+B/2-3)"DELETESWAP"N"DELETESWAP";
  41. 410  IF K=1 THEN LPRINT ELSE LPRINT TAB(A+B+C+B/2-3)"DELETESWAP"N+1"DELETESWAP"
  42. 420  IF K=1 THEN END ELSE FOR L=1 TO E-1:LPRINT:NEXT
  43. 430  N=N+2:BEEP:BEEP:INPUT"LINE<0xB4!>CLOSEINSTRCALL<0xB5!>LOAD<UNK! {00FC}>LOADTOUSR<UNK! {00F8}><0xB4!>IMPNOTELSE...",O$:GOTO 360
  44.