Taste -T- Neues Zeichen Taste -S- dient zum Steuern Taste -Z- dient zum Zeichnen Taste -@- Ende Taste -X- Load von Kassette Taste -$- Save auf Kassette

Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß)

  100 RESTORE 10000
  110 FOR I=16128 TO 16158:READ A:POKE I,A:NEXT I
  900 REM Erklaerung!!
  905 WINDOW:CLS
  910 PRINT "     Zeichenprogramm"
  915 PRINT "     ~~~~~~~~~~~~~~~"
  920 PRINT:PRINT
  930 PRINT "  Bedeutung der Tasten:"
  940 PRINT:PRINT "   -E- links oben"
  950 PRINT "   -F- oben"
  960 PRINT "   -G- rechts oben"
  970 PRINT "   -O- rechts"
  980 PRINT "   -W- rechts unten"
  985 PRINT "   -V- unten"
  990 PRINT "   -U- links unten"
  995 PRINT "   -M- links"
  996 PRINT:PRINT  
  997 PRINT "   \   |   /" 
 1000 PRINT "    E  F  G"
 1001 PRINT "     \ | / "
 1002 PRINT "   -M--N--O-"
 1003 PRINT "     / | \" 
 1004 PRINT "    U  V  W"
 1005 PRINT "   /   |   \":PRINT:PRINT:PRINT:PAUSE 100
 1006 INPUT "Alles begriffen ? *ENTER*"; :CLS:PRINT:PRINT "FUNKTIONSTASTEN:"
 1007 PRINT:PRINT:PRINT " Taste -T- Neues Zeichen"
 1009 PRINT:PRINT " Taste -S- dient zum Steuern" 
 1010 PRINT:PRINT " Taste -Z- dient zum Zeichnen"
 1011 PRINT:PRINT " Taste -@- Ende"
 1012 PRINT:PRINT " Taste -X- Load von Kassette"
 1014 PRINT:PRINT " Taste -$- Save auf Kassette"
 1015 PAUSE 60:PRINT:PRINT:PRINT:PRINT
 1016 PRINT "Ich wuensche Dir viel Spass":PAUSE 40 
 1017 PRINT:PRINT:PRINT:PRINT:INPUT "                *ENTER*";
 1020 REM ZEICHENPROGRAMM
 1040 X=-5086:CLS:S=1:PRINT AT(0,0);CHR$(32) 
 1050 REM RAHMEN DES BILDSCHIRMES
 1060 REM IN UP PUNKTSTEUERUNG EINFUEGEN
 1070 FOR I=0 TO 31:POKE(-5120+I),46 :POKE(-4192+I),46
 1080 POKE(-4192-(32*I)),46 :POKE(-4161-(32*I)),46 :NEXT I
 1090 GOTO 1120
 1100 IF PEEK(Y)=46 THEN Y=X
 1110 RETURN
 1112 T$=INKEY$
 1115 IF T$="T"THEN GOSUB 1360
 1116 IF T$="X"THEN CALL*3F10
 1117 IF T$="$"THEN CALL*3F00
 1120 P=V:POKE X,P
 1140 IF T$="U"THEN Z=31
 1150 IF T$="V"THEN Z=32
 1160 IF T$="W"THEN Z=33
 1170 IF T$="M"THEN Z=-1
 1180 IF T$="N"THEN Z=0
 1190 IF T$="O"THEN Z=1
 1200 IF T$="E"THEN Z=-33
 1210 IF T$="F"THEN Z=-32
 1220 IF T$="G"THEN Z=-31
 1230 Y=X+Z
 1250 GOSUB 1100
 1260 IF T$="@" THEN 1350:REM ENDE
 1270 IF T$="S" THEN S=1:REM STEUERN
 1280 IF T$="Z" THEN S=2:REM  ZEICHNEN 
 1290 IF S=1 THEN 1310
 1300 IF S=2 THEN 1320
 1310 Z=0:POKE Y,P:POKE X,32:GOTO 1330
 1320 Z=0:POKE Y,P 
 1330 X=Y
 1340 GOTO 1112
 1350 WINDOW:END
 1360 WINDOW 30,31,0,31:CLS
 1370 INPUT "Neues Zeichen:";V:PRINT AT(30,20);CHR$(V)
 1380 RETURN: WINDOW:
10000 DATA 33,0,236,34,27,0,33,255,239,34,29,0,231,8,201,0
10010 DATA 33,0,236,34,27,0,33,255,239,34,29,0,231,9,201