home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 February / 64er_Magazin_89-02_1989_Markt__Technik_de_Disk_1_of_2_Side_B.d64 / font-eprom-gen. (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.