home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh27d.d64 / bildzeichened (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  3KB  |  104 lines
  1. 1 REM ********************************
  2. 2 REM *  BILDSCHIRMZEICHENEDITOR     *
  3. 3 REM *    FUER SCHREIBMASCHINE      *
  4. 4 REM *   HAFNER, GROSSAITINGEN      *
  5. 5 REM ********************************
  6. 6 POKE52,56:POKE56,56:CLR:NA=56*256:NB=60*256
  7. 7 FORI=0TO73:READA:POKE49152+I,A:NEXT:SYS49158:REM VERSCH/SAVE
  8. 8 DATA0,160,0,192,0,192,173,0,192,172,1,192,133,95,132,96,173,2,192,172,3
  9. 9 DATA192,133,90,132,91,173,4,192,172,5,192,133,88,132,89,76,191,163,32,32
  10. 10 DATA32,32,32,32,32,32,32,32,32,162,8,32,186,255,169,14,162,64,160,3,32
  11. 11 DATA189,255,169,251,162,0,160,64,32,216,255,96
  12. 12 A$="[145][145][145][145]":FORI=1TO6:POKE41847+I,ASC(MID$(A$,I,1)):NEXT:POKE1,54:REM READY
  13. 15 SYS57812"B-DEUTSCH*",8,1:POKE780,0:SYS65493
  14. 17 POKE53272,(PEEK(53272)AND240)+12
  15. 18 N$="            "
  16. 19 PRINTCHR$(14);:PRINT"[147][194]ILDSCHIRMYEICHEN F. [211][195][200][210][197][201][194][205][193][211][195][200][201][206][197]"
  17. 20 PRINT"  ************************************"
  18. 21 PRINT"  L[146]ADE [217]EICHENSATY"
  19. 22 PRINT"  A[146]ENDERE [217]EICHEN"
  20. 23 PRINT"  S[146]PEICHERE [211]ATY"
  21. 24 POKE198,0:WAIT198,1:GETA$
  22. 26 IFA$="L"THENGOSUB800:GOTO19
  23. 27 IFA$="S"THENGOSUB1000:GOTO19
  24. 28 IFA$<>"A"THEN24
  25. 29 GOSUB701
  26. 30 PRINT"[147]        [170][183][183][183][183][183][183][183][183][180]"
  27. 31 FORI=1TO8:PRINT"A$(";I;")=";CHR$(34);A$(I);CHR$(34):NEXT
  28. 32 PRINT"        [170][175][175][175][175][175][175][175][175][180]":PRINT"GOTO40"
  29. 33 PRINT:PRINT"!";CHR$(34);"#$%&'()0     [209][215][197][210][212][217][213][201][207][208][186][192]"
  30. 34 PRINT"1234567890+-   QWERTYUIOP@*^"
  31. 35 PRINT:PRINT"[193][211][196][198][199][200][202][203][204][]=   [218][216][195][214][194][206][205]<>?"
  32. 36 PRINT"ASDFGHJKL:;=   ZXCVBNM,./":PRINT
  33. 37 PRINT"         BELIEBIGE [212]ASTE VERWENDEN!"
  34. 38 PRINT"         [217]EILEN MIT '[210][197][212][213][210][206]' BEENDEN!"
  35. 39 PRINT"         EBENSO DEN [194]EFEHL'GOTO 40'![145][145][145][145]":END
  36. 40 GOSUB600
  37. 52 PRINT" S[146]PEICHERN IM [211]ATY"
  38. 53 PRINT" N[146]OCHMAL AENDERN"
  39. 54 PRINT" Y[146]URUECK YUM [205]ENUE";
  40. 55 POKE198,0:WAIT198,1
  41. 56 GETA$
  42. 57 IFA$="S"THENGOSUB500:GOTO40
  43. 58 IFA$="N"THEN30
  44. 59 IFA$="Z"THEN19
  45. 60 GOTO56
  46. 399 :
  47. 400 REM ____ DATEN AUSRECHNEN
  48. 410 FORI=1TO8:Z1(I)=0
  49. 411 FORK=1TO8:X%=ASC(MID$(A$(I),K,1))
  50. 412 IF(X%AND127)=32THEN420
  51. 415 Z1(I)=Z1(I)+2^(8-K)
  52. 420 NEXTK,I:RETURN
  53. 499 :
  54. 500 REM ____ ZEICHEN SPEICHERN
  55. 505 GOSUB600
  56. 510 GOSUB651
  57. 511 IFAS>255THENPRINT"[145]";:GOTO510
  58. 530 GOSUB400
  59. 540 FORI=0TO7:POKENA+8*AS+I,Z1(I+1):NEXT
  60. 550 FORI=0TO6:POKENB+8*AS+I,Z1(I+1):NEXT
  61. 560 RETURN
  62. 599 :
  63. 600 REM ____ ZEILEN LOESCHEN
  64. 601 FORI=0TO5:POKE781,18+I:SYS59903:NEXT
  65. 605 POKE211,0:POKE214,18:SYS58640
  66. 610 RETURN
  67. 649 :
  68. 650 REM ____ EINGABE BILDSCHIRMCODE
  69. 651 GOSUB605:PRINT" [212]ASTE? ";
  70. 652 GETA$:IFA$=""THEN652
  71. 653 A1%=ASC(A$):IFA1%<32ORA1%>218ORA1%=95ORA1%=92THEN652
  72. 654 IFA1%>125ANDA1%<192ANDA1%<>186THEN652
  73. 655 PRINTA$:AS=PEEK(1024+8+18*40):RETURN
  74. 699 :
  75. 700 REM ____ ALTES ZEICHEN LESEN
  76. 701 PRINT"[147]";:GOSUB651
  77. 710 FORI=1TO8:Z1(I)=PEEK(56*256+AS*8+I-1):A$(I)="":NEXT
  78. 720 FORI=1TO8:FORK=1TO8:IFZ1(I)AND2^(8-K)THENA$(I)=A$(I)+"O":GOTO725
  79. 722 A$(I)=A$(I)+" "
  80. 725 NEXTK,I
  81. 730 RETURN
  82. 799 :
  83. 800 REM ____ LADE SATZ
  84. 805 PRINT"[147]  ";:GOSUB951
  85. 810 SYS57812N$,8,1:POKE780,0:SYS65493
  86. 820 RETURN
  87. 949 :
  88. 950 REM ____  SCHRIFTNAME
  89. 951 INPUT"[206]AME DER [211]CHRIFT";N$
  90. 952 N$=LEFT$("B-"+N$+"            ",14):RETURN
  91. 999 :
  92. 1000 REM ____ SATZ SPEICHERN
  93. 1005 PRINT"[147] [211]AVE: ([211]CHRIFTNAME)"
  94. 1006 N$=RIGHT$(N$,12)
  95. 1007 PRINT"    ";N$;"[157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:INPUTN$:GOSUB952
  96. 1009 NR%=PEEK(NA+91*8)
  97. 1010 PRINT" [206]UMMER DES [217]EICHENSATYES YUR [197]RKENNUNG"
  98. 1011 PRINT"    ";NR%;"[157][157][157][157][157]";:INPUTNR%
  99. 1012 POKENA+91*8,NR%
  100. 1016 OPEN2,8,15,"S:"+N$:CLOSE2
  101. 1020 FORI=1TO14:POKE13*64+I-1,ASC(MID$(N$,I,1)):NEXT:REM N$ UEBERGEBEN
  102. 1021 POKE251,0:POKE252,56:SYS49202:REM SAVE
  103. 1025 RETURN
  104.