home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 89xx / 8902b.d64 / font-eprom-gen. (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  3KB  |  123 lines
  1. 10 REM *** PRG ZUM ZUSAMMENSTELLEN ***
  2. 20 REM **** DER FONT-EPROM-BAENKE ****
  3. 30 REM ********* 23.04.1988 **********
  4. 40 :
  5. 200 POKE53280,0:POKE53281,11:POKE646,1
  6. 220 GN=PEEK(186):IF GN=0 THEN GN=8
  7. 240 OPEN 15,GN,15
  8. 250 DIMFT$(100),FL(100),EF(100),NR(100)
  9. 260 BA=16384
  10. 390 :
  11. 1200 OPEN 2,GN,2,"FONT-LISTE,S,R"
  12. 1220 GOSUB9000:IF A THEN GOSUB8850:RUN
  13. 1230 INPUT#2,AF:FOR X=1TOAF
  14. 1240 INPUT#2,FL(X),FT$(X):NR(X)=X:NEXT
  15. 1260 CLOSE2
  16. 1300 PRINT"   FONT-NAME      BYTES";
  17. 1320 PRINTTAB(26)"BRENNEN (J/N)
  18. 1340 [129]X[178]0[164]39:[153]"TAN";:[130]
  19. 1350 [153]
  20. 1400 Y[178]0:[129] X[178]1[164]AF
  21. 1440 [153]" "[202](FT$(X),1,13);
  22. 1450 [153]"    "FL(X);[163]32);
  23. 1460 [151]204,0:[151]198,0:[146]203,63
  24. 1470 [161]A$:[151]204,1
  25. 1480 [139]A$[178]"N"[167][153]"NEIN":[137]1600
  26. 1490 [139] A$[179][177]"J"[167]1460
  27. 1500 Y[178]Y[170]1:[153]" JA ":NR(Y)[178]NR(X)
  28. 1520 FL(Y)[178]FL(X):FT$(Y)[178]FT$(X):EF(Y)[178]0
  29. 1600 [130]
  30. 1700 AF[178]Y:[139] Y[178]0 [167] [128]
  31. 1720 [133]"  WIEVIELE 16K-BANKS ";BN
  32. 1740 [139] BN[179]1 [176] BN[177]4 [167] 1720
  33. 1760 [133]" ALLES RICHTIG (J/N) ";A$
  34. 1780 [139] [202](A$,1,1)[179][177]"J" [167] [138]
  35. 1900 :
  36. 2000 [143] *** PASS 1
  37. 2200 BZ[178]1:R[178]BA[171]6
  38. 2260 [141]8400:[139] FO [167] 2260
  39. 2270 BZ[178]BZ[170]1:[139] NF [167] 2450
  40. 2280 R[178]BA:[139] BZ[179][178]BN [167] 2260
  41. 2300 BY[178]0:[129] Y[178]1 [164] AF
  42. 2320 BY[178]BY[171](EF(Y)[178]0)[172]FL(Y):[130]
  43. 2340 [139] BY[178]0 [167] 2450
  44. 2360 [153]" **** ZU VIELE FONTS! ****
  45. 2370 PRINT"BITTE NOCH EINMAL AUSWAEHLEN
  46. 2380 [153]" (UNGEFAEHR";BY;"BYTES MUESSEN":[153]" NOCH EINGESPART WERDEN.)"
  47. 2400 [137]1300
  48. 2420 :
  49. 2430 [143] *** PASS 2
  50. 2450 BN[178]BZ[171]1:BZ[178]1:UA[178]BA[170]6:R[178]BA[171]6
  51. 2460 [129] X[178]1 [164] AF:EF(X)[178]0:[130]
  52. 2500 A$[178]"CHR$(null)ASC88"[170][199](BN)
  53. 2520 [129] X[178]1 [164] 6
  54. 2540 [151] BA[170]X[171]1,[198]([202](A$,X,1))
  55. 2560 [130]
  56. 2600 [141]8400:[139] FO [167] 2700
  57. 2620 [141] 8200:[143] *** ABSPEICHERN
  58. 2640 UA[178]BA:R[178]BA
  59. 2650 BZ[178]BZ[170]1:[139] BZ[177]BN [176] NF [167] 3100
  60. 2660 [137]2600
  61. 2700 [151] UA,(FL(FO)[170]6)[175]255
  62. 2720 [151] UA[170]1,(FL(FO)[170]6)[173]256
  63. 2740 UA[178]UA[170]2
  64. 2760 [153]FT$(FO)" WIRD GELADEN."
  65. 2800 [158]57812 (FT$(FO)[170]",S"),GN
  66. 2840 [151] 781,UA[175]255:[151] 782,UA[173]256
  67. 2860 [151] 780,0:[158]65493:[143] *** LADEN
  68. 2870 [151] UA[170]2,NR(FO)
  69. 2880 [141]9000:[139] A[178]0 [167] 3000
  70. 2900 [141]8860:[137]2800
  71. 3000 UA[178]UA[170]FL(FO)[170]4
  72. 3050 [137] 2600
  73. 3100 [141] 8600 ;[172][172][172] F[145]T[171]AUSGABE
  74. 3120 [133]" DRUCKERAUSGABE (J/N) ";A$
  75. 3140 [139] A$[179][177]"J" [167]3240
  76. 3160 [159] 4,4,7:[157]4:[141]8600
  77. 3180 [152]4:[160]4
  78. 3240 [160]15:[128]
  79. 8000 :
  80. 8200 [143] *** BANK ABSPEICHERN
  81. 8202 [153]" UEBRIGGEBLIEBEN:";R;"BYTES"
  82. 8205 [129] X[178]UA [164] UA[170]R:[151]X,255:[130]
  83. 8210 F$[178][199](BZ[170]48)[170]". BANK"
  84. 8215 [153]"BANK"BZ"WIRD ABGESPEICHERT."
  85. 8220 [158]57812(F$),GN
  86. 8230 [151]781,0:[151]782,128
  87. 8240 [151]250,0:[151]251,64
  88. 8260 [151]780,250:[158]65496
  89. 8280 [141]9000:[139] A[179]20 [167] [142]
  90. 8300 [153]"FEHLER! - NEUER VERSUCH ";
  91. 8320 [133] A$
  92. 8340 [139] [202](A$,1,1)[178]"J" [167] 8210
  93. 8360 [142]
  94. 8380 :
  95. 8390 [172][172][172] OPTIMA[195] F[145]T AUSWAEH[195]
  96. 8400 NF[178]1:FO[178]0:MB[178]0
  97. 8420 [129] X[178]1 [164] AF:NF[178]NF [175] EF(X)
  98. 8450 [139] EF(X)[176](FL(X)[170]6[177]R) [167]8500
  99. 8470 [139] FL(X)[177]MB [167] MB[178]FL(X):FO[178]X
  100. 8500 [130]
  101. 8520 [139] FO [167] EF(FO)[178]1:R[178]R[171]FL(FO)[171]6
  102. 8540 [142]
  103. 8580 :
  104. 8600 [153]"NUMERIERUNG DER FONTS:"
  105. 8620 [129]X[178]0[164]39:[153]"TAN";:[130]:[153]
  106. 8640 [153][163]6)"00"[163]13)"(RAMFONT)"
  107. 8660 [129]X[178]1[164]AF:[153][163]6);
  108. 8680 [153] [201]([196](NR(X)[170]100),2);
  109. 8700 [153][163]15)FT$(X)
  110. 8720 [130]:[142]
  111. 8800 :
  112. 8850 A$[178]"FONT-LISTE":[137] 8900
  113. 8860 A$[178]"FONT"
  114. 8900 [153]"LOAD"A$" NICHT GEFUNDEN!
  115. 8920 PRINT"BITTE RICHTIGE DISKETTE":PRINT"EINLEGEN UND TASTE DRUECKEN.
  116. 8930 [151]198,0:[146]203,63:[161]A$
  117. 8940 [142]
  118. 8990 :
  119. 8995 [172][172][172] FEHLERKANAL
  120. 9000 [132]15,A,B$,C,D
  121. 9060 [153] A;B$;C;D
  122. 9080 [142]
  123.