home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 89xx / 8902b.d64 / ram-font-lader (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  97 lines
  1. 100 REM *** RAM-FONT-LADER ***
  2. 120 REM ***** 12.5.1988 ******
  3. 130 :
  4. 1100 GN=PEEK(186):IF GN<8 THEN GN=8
  5. 1130 CB=64:CT=66:CI=68:CO=70:EF=72
  6. 1200 OPEN 4,4,15:OPEN2,4,0
  7. 1210 OPEN 8,GN,15
  8. 1220 REM *** FONT-LISTE EINLESEN
  9. 1230 OPEN1,GN,2,"FONT-LISTE,S,R"
  10. 1240 GOSUB7000:IF A THEN GOSUB7200:RUN
  11. 1260 INPUT#1,FA
  12. 1300 DIM FT$(FA),FL(FA)
  13. 1340 FOR X=1 TO FA
  14. 1360 INPUT#1,FL(X),FT$(X) :NEXT
  15. 1400 :
  16. 1420 REM *** FONT-NR ERFRAGEN
  17. 1450 PRINT"":FOR X=1 TO FA
  18. 1470 PRINTX"[157].",FT$(X) :NEXT
  19. 1500 PRINT"WELCHER FONT SOLL
  20. 1530 [133]"GELADEN WERDEN (NR.) ";N$
  21. 1550 N[178][197](N$):[139] N[178]0 [167] 1450
  22. 1560 AD[178]CT:[141]6600
  23. 1570 [139] FL(N)[177]WO[171]2048[171]100 [167] [153]"  DIE FONT-DATEI IST ZU LANG !":[137]1500
  24. 1590 :
  25. 1595 [143] *** FONT LADEN
  26. 1600 [158] 57812 (FT$(N)[170]",S"),GN
  27. 1620 [151]781,0:[151]782,48
  28. 1640 [151]780,0:[158]65493:[141]7000
  29. 1660 [139] A [167][141]7220:[137]1600
  30. 1680 :
  31. 1690 [143] *** EMPTY-FLAG ABFRAGEN
  32. 1700 AD[178]EF:[141]6200:[139] BY [167] 1900
  33. 1720 [153]"  DER DRUCKPUFFER IST NOCH NICHT LEER.
  34. 1750 INPUT"   SOLL DAS ENDE DES DRUCKVORGANGS ABGE-  WARTET WERDEN (J/N) ";A$
  35. 1780 IF A$="N" THEN 1900
  36. 1800 IF A$<>"J" THEN 1700
  37. 1820 AD=EF:GOSUB6200:IF BY=0 THEN1820
  38. 1850 :
  39. 1890 REM *** PUFFERANFANG AUF $0800
  40. 1900 PRINT#4,"U:"
  41. 1940 PRINT#4,"P0"
  42. 1980 :
  43. 1990 REM *** FONT SENDEN
  44. 2000 A$="[199][211][198]88-":FOR X=1 TO 6
  45. 2020 PRINT#2,MID$(A$,X,1);:NEXT
  46. 2030 CMD2
  47. 2070 FOR X=3*4096 TO X+FL(N)+4
  48. 2100 PRINTCHR$(PEEK(X));:NEXT
  49. 2110 PRINT#2:CLOSE2
  50. 2130 :
  51. 2160 REM *** NEUEN PUFFER-ANFANG SETZEN
  52. 2200 AD=CI:GOSUB6600
  53. 2230 AD=CB:GOSUB6800
  54. 2260 PRINT#4,"C"
  55. 2280 PRINT#4,"P1"
  56. 2300 PRINT" DER [198]ONT IST UEBERTRAGEN."
  57. 2320 INPUT"   PROBEAUSDRUCK (J/N) ";A$
  58. 2350 IF A$<>"J" THEN 3000
  59. 2380 OPEN 6,4,6:PRINT#6,"F00";
  60. 2400 FOR X=32 TO 127
  61. 2430 PRINT#6,CHR$(X);:NEXT:PRINT#6
  62. 2460 CLOSE6
  63. 3000 CLOSE4:CLOSE8
  64. 3030 END
  65. 5900 :
  66. 6190 *** BYTE (AD) AUS INTERFACE LESEN
  67. 6200 H=INT(AD/256):L=AD-256*H
  68. 6230 PRINT#4,"M-R"CHR$(L)CHR$(H)CHR$(1)
  69. 6260 GET#4,B$:BY=ASC(B$+CHR$(0))
  70. 6290 RETURN
  71. 6350 :
  72. 6390 *** BYTE (AD) SCHREIBEN
  73. 6400 H=INT(AD/256):L=AD-256*H
  74. 6430 PRINT#4,"M-W"CHR$(L)CHR$(H)CHR$(1)CHR$(BY):RETURN
  75. 6550 :
  76. 6590 *** WORT AUSLESEN
  77. 6600 GOSUB6200:WO=BY:AD=AD+1
  78. 6630 GOSUB6200:WO=WO+256*BY
  79. 6650 RETURN
  80. 6700 :
  81. 6750 *** WORT SCHREIBEN
  82. 6800 WH=INT(WO/256):BY=WO-WH*256
  83. 6830 GOSUB6400:BY=WH:AD=AD+1
  84. 6860 GOTO6400
  85. 6900 :
  86. 7000 INPUT#8,A,B$,C,D
  87. 7030 PRINT ""A;B$;C;D
  88. 7060 RETURN
  89. 7090 :
  90. 7200 A$="FONT-LISTE":GOTO7300
  91. 7220 A$="FONT"
  92. 7300 PRINT"   "A$" NICHT GEFUNDEN !
  93. 7330 [153]"BITTE RICHTIGE DISKETTE
  94. 7360 PRINT"EINLEGEN & TASTE DRUECKEN.
  95. 7380 [151]198,0:[146]203,63:[161]A$
  96. 7400 [142]
  97.