home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Geos / GEOS128 / GeosD81 / CS98.D81 / diskleaf1250 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.5 KB  |  70 lines
  1. 1 GOTO 3
  2. 2 OPEN 15,8,15:PRINT#15,"S0:DISKLEAF1250":CLOSE 15:SAVE"DISKLEAF1250",8:LIST
  3. 3 REM SAVE AND REPLACE
  4. 4 :
  5. 5 OPEN 1,4,7
  6. 10 PRINT#1,CHR$(27);CHR$(48);"1/8 INCH LINE SPACING"
  7. 15 PRINT#1,CHR$(27);CHR$(126);CHR$(52);CHR$(49);"SLASHED ZERO 0"
  8. 20 PRINT#1,CHR$(27);CHR$(88);CHR$(49);"NLQ MODE MPS1250"
  9. 30 PRINT#1,CHR$(27);CHR$(197);"EMPHAISED PRINT"
  10. 40 PRINT#1,CHR$(27);CHR$(199);"DOUBLESTRIKE PRINT"
  11. 50 REM PRINT#1,CHR$(27);CHR$(215);CHR$(1);"EXPANDED DOUBLE WIDTH PRINT"
  12. 60 REM PRINT#1,CHR$(27);CHR$(109);"ELITE STANDARD PITCH 12CPI / 96 CPLINE"
  13. 70 REM PRINT#1,CHR$(27);CHR$(15);"COMPRESSED PRINT ELITE TO 20CPI / 160 CPLINE"
  14. 80 CLOSE 1
  15. 90 :
  16. 100 DIMFX$(256),FT$(256),FL(256),TT(256):N=-1:FORI=1TO256:FX$(I)="":NEXT:X=221
  17. 110 BL$=" ":FORI=1TO40:BL$=BL$+"[160]":NEXT
  18. 120 CLOSE15:OPEN15,8,15:OPEN1,8,0,"$0":GOSUB480:GET#1,A$,B$
  19. 130 W=51:L$="":INPUT"LABEL STRING";L$
  20. 135 IFLEN(L$)>22THEN PRINT"LABEL STRINT TOO LONG-MAX IS 22 CHARACTERS.":GOTO130
  21. 140 GET#1,A$,B$:GET#1,A$,B$:C=0:IFA$<>""THENC=ASC(A$)
  22. 150 IFB$<>""THENC=C+ASC(B$)*256
  23. 160 N=N+1:FL(N)=C
  24. 170 GET#1,B$:IFST<>0THEN260
  25. 180 IFB$<>CHR$(34)THEN170
  26. 190 N$=""
  27. 200 GET#1,B$:IFB$<>CHR$(34)THENN$=N$+B$:GOTO200
  28. 210 FX$(N)=N$
  29. 220 GET#1,B$:IFB$=CHR$(32)THEN220
  30. 230 C$=""
  31. 240 C$=C$+B$:GET#1,B$:IFB$<>""  THEN240
  32. 250 FT$(N)=LEFT$(C$,3):IFST=0THEN140
  33. 260 CLOSE1:BF=FL(N):N=N-1:GOSUB580
  34. 270 CLOSE3:OPEN3,4
  35. 280 PRINT#3,CHR$(176);:FORI=1TO51:PRINT#3,CHR$(192);:NEXT:PRINT#3,CHR$(174)
  36. 290 PRINT#3,CHR$(X);SPC(51);CHR$(X)
  37. 300 T2$=FX$(0):IFL$<>""THENT2$=T2$+"[160][160]("+L$+")"
  38. 310 T$=CHR$(X)+"     >>>"+FX$(0)
  39. 315 IFL$=""THENT$=T$+MID$(BL$,1,W-LEN(T$)-1):GOTO330
  40. 320 K=W-2-LEN(T$)-LEN(L$):T$=T$+MID$(BL$,1,K-1)+"("+L$+")"
  41. 330 T$=T$+"  "+CHR$(X):PRINT#3,T$
  42. 340 PRINT#3,CHR$(X);SPC(51);CHR$(X)
  43. 350 PRINT#3,CHR$(171);:FORI=1TO51:PRINT#3,CHR$(192);:NEXT:PRINT#3,CHR$(179)
  44. 360 PRINT#3,CHR$(X);SPC(51);CHR$(X)
  45. 370 L=9:K=INT((N+1)/2):FORI=1TOK
  46. 380 T$=CHR$(X):J=I:GOSUB520:T$=T$+" ":J=K+I:GOSUB520:T$=T$+"  "+CHR$(X)
  47. 390 PRINT#3,T$:L=L+1:NEXT
  48. 400 PRINT#3,CHR$(X);SPC(51);CHR$(X)
  49. 410 P=INT((BF*100/664)+.5):P$=MID$(STR$(P),2)
  50. 420 T$=CHR$(X)+MID$(BL$,1,14)+STR$(BF)+"BLOCKS("+P$+"%)FREE"
  51. 430 T$=T$+MID$(BL$,1,W-LEN(T$)+1)+CHR$(X):PRINT#3,T$
  52. 440 FORI=LTO27:PRINT#3,CHR$(X);SPC(51)CHR$(X)
  53. 450 NEXT
  54. 460 PRINT#3,CHR$(173);:FORI=1TO51:PRINT#3,CHR$(192);:NEXT:PRINT#3,CHR$(189)
  55. 470 PRINT#3:CLOSE3:CLOSE15:END
  56. 480 INPUT#15,ER,ER$:IFER<20THENRETURN
  57. 490 IFER=74ORER=21THENER$=ER$+"--IS DISK INSERTED?":GOTO510
  58. 500 ER$="DISK ERROR"+STR$(ER)+":"+ER$
  59. 510 PRINTER$:END
  60. 520 T=TT(J):IFT=0THENT$=T$+MID$(BL$,1,24):RETURN
  61. 530 IFFL(T)<100THENT$=T$+"[160]"
  62. 540 IFFL(T)<10THENT$=T$+"[160]"
  63. 550 T$=T$+MID$(STR$(FL(T)),2)+"[160]"+FX$(T)
  64. 560 IFLEN(FX$(T))<16THENT$=T$+MID$(BL$,1,16-LEN(FX$(T)))
  65. 570 T$=T$+"[160]"+LEFT$(FT$(T),3):RETURN
  66. 580 FORI=1TON:TT(I)=I:NEXT
  67. 590 FORI=1TON-1:S=I:FORJ=I+1TON:IFFX$(TT(J))<FX$(TT(S))THENS=J
  68. 600 NEXTJ:IFS<>ITHENT=TT(I):TT(I)=TT(S):TT(S)=T
  69. 610 NEXTI:RETURN
  70.