home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 121 / Tiger_Disk_121_20xx_Tiger-Crew-Disk_de_Side_B.d64 / fraktur (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  76 lines
  1. 1000 dim l(122),p1$(122),p2$(122)
  2. 1010 dim o1$(2),o2$(2)
  3. 1020 data 120,169,51,133,1,169,0,133,95,133,90,133,88,169,208,133,96,169,240
  4. 1030 data 133,89,169,224,133,91,32,191,163,169,55,133,1,88,169,8,141,24,208,173
  5. 1040 data 0,221,41,252,141,0,221,169,192,141,136,2,96
  6. 1050 for i=828 to 879
  7. 1060 read d
  8. 1070 poke i,d
  9. 1080 next i
  10. 1090 sys 828
  11. 1100 for i=1 to 11
  12. 1110 read z
  13. 1120 for j=0 to 7
  14. 1130 read d
  15. 1140 poke 59392+8*z+j,d
  16. 1150 next j
  17. 1160 next i
  18. 1170 data 0,102,0,60,102,102,102,60,0
  19. 1180 data 19,28,48,48,48,48,48,48,48
  20. 1190 data 28,102,0,0,102,102,102,62,0
  21. 1200 data 30,0,0,0,0,0,102,102,102
  22. 1210 data 31,0,60,54,60,54,54,60,48
  23. 1220 data 42,102,0,60,6,62,102,60,0
  24. 1230 data 64,102,24,60,102,126,102,102,0
  25. 1240 data 94,102,102,102,0,0,0,0,0
  26. 1250 data 105,102,0,102,102,102,102,60,0
  27. 1260 data 110,0,0,62,96,60,6,124,0
  28. 1270 data 122,102,60,102,102,102,102,60,0
  29. 1280 :
  30. 1290 rem zeichen einlesen
  31. 1300 print chr$(14);chr$(147)
  32. 1310 print "[194]itte etwas [199]eduld !"
  33. 1320 print "[196]ie [218]eichendaten werden eingelesen."
  34. 1330 open 2,8,2,"daten (fraktur),s,r"
  35. 1340 for i=1 to 72
  36. 1350 input# 2,zn
  37. 1360 input# 2,l(zn)
  38. 1370 input# 2,p1$(zn)
  39. 1380 input# 2,p2$(zn)
  40. 1390 next i
  41. 1400 close 2
  42. 1410 :
  43. 1420 rem text-editor
  44. 1430 open 4,4
  45. 1440 print chr$(147);chr$(5)
  46. 1450 print "[197]ine [212]extzeile eingeben:"
  47. 1460 t$="":input t$:ift$=""thensys64738
  48. 1465 ift$="0"thenprint#4:goto1440
  49. 1470 print chr$(147);
  50. 1480 poke 646,peek(53281)
  51. 1490 print t$
  52. 1500 lt=0
  53. 1510 o1$(1)="":o2$(1)=""
  54. 1520 o1$(2)="":o2$(2)=""
  55. 1530 for i=1 to len(t$)
  56. 1540 z=peek(49151+i)
  57. 1550 lt=lt+l(z)
  58. 1560 if lt>480 goto 1690
  59. 1570 if len(o1$(1))>240 goto 1660
  60. 1580 o1$(1)=o1$(1)+p1$(z)
  61. 1590 o2$(1)=o2$(1)+p2$(z)
  62. 1600 next i
  63. 1610 print# 4,chr$(8);
  64. 1620 print# 4,o1$(1);o1$(2)
  65. 1630 print# 4,o2$(1);o2$(2)
  66. 1640 print# 4,chr$(15)
  67. 1650 goto 1440
  68. 1660 o1$(2)=o1$(2)+p1$(z)
  69. 1670 o2$(2)=o2$(2)+p2$(z)
  70. 1680 goto 1600
  71. 1690 print chr$(147);
  72. 1700 print "[196]er [212]ext ist zu lang !"
  73. 1710 print spc(2);t$
  74. 1720 print chr$(19);chr$(17);
  75. 1730 goto 1460
  76.