Sharp PC1360 |
Dokumentation ansehen
Programmspeicher-Image laden
| 10 | "G"CLS :CLEAR :WAIT 0:F=1:A=1 |
| 15 | INPUT "Spalten : ";G,"Zeilen : ";H:CLS |
| 16 | IF INT (H/8)<>H/8 LET H=8*INT (H/8)+8 |
| 17 | IF H>32 LET H=32 |
| 18 | IF G>150 LET G=150 |
| 19 | LINE (0,H)-(G,H):LINE -(G,0) |
| 20 | P=POINT (X,Y) |
| 30 | I$=INKEY$ :IF I$ GOTO 90 |
| 40 | PSET (X,Y),X |
| 50 | ON P+1 GOTO 60 ,70 |
| 60 | PRESET (X,Y):GOTO 80 |
| 70 | PSET (X,Y) |
| 80 | GOTO 30 |
| 90 | BEEP 1,8,40:ON VAL I$GOTO 110 ,140 ,160 ,190 ,470 ,210 ,230 ,260 ,280 |
| 100 | GOTO 310 |
| 110 | IF X>=A LET X=X-A |
| 120 | IF Y<H-A LET Y=Y+A |
| 130 | GOTO 300 |
| 140 | IF Y<H-A LET Y=Y+A |
| 150 | GOTO 300 |
| 160 | IF X<G-A LET X=X+A |
| 170 | IF Y<H-A LET Y=Y+A |
| 180 | GOTO 300 |
| 190 | IF X>=A LET X=X-A |
| 200 | GOTO 300 |
| 210 | IF X<G-A LET X=X+A |
| 220 | GOTO 300 |
| 230 | IF X>=A LET X=X-A |
| 240 | IF Y>=A LET Y=Y-A |
| 250 | GOTO 300 |
| 260 | IF Y>=A LET Y=Y-A |
| 270 | GOTO 300 |
| 280 | IF X<G-A LET X=X+A |
| 290 | IF Y>=A LET Y=Y-A |
| 300 | IF M GOSUB 540 :GOTO 20 |
| 310 | I=ASC I$ |
| 320 | IF I=13 GOSUB 500 :GOTO 20 |
| 330 | IF I=75 GOSUB 1410 :GOTO 20 |
| 340 | IF I=77 LET M=NOT M+2:X0=X:Y0=Y:GOTO 20 |
| 350 | IF I=87 LET F=2:GOTO 20 |
| 360 | IF I=83 LET F=1:GOTO 20 |
| 370 | IF I=88 LET F=3:GOTO 20 |
| 380 | IF I=73 LINE (0,0)-(G-1,H-1),X,BF:GOTO 20 |
| 390 | IF I=70 GOSUB 590 :GOTO 20 |
| 400 | IF I=82 GOSUB 660 :GOTO 20 |
| 410 | IF I=84 GOSUB 720 :GOTO 20 |
| 420 | IF I=69 WAIT :GPRINT :CLS :END |
| 430 | IF I=67 GOTO 790 |
| 440 | IF I=76 GOSUB 1010 :GOTO 20 |
| 450 | IF I=66 GOTO 1200 |
| 460 | IF I=43 LET A=A+1:GOTO 20 |
| 470 | A=1:GOTO 20 |
| 480 | IF I=45 LET A=A-1:IF A<1 LET A=1 |
| 490 | GOTO 20 |
| 500 | "PSET" ON FGOTO 510 ,520 ,530 |
| 510 | PSET (X,Y):RETURN |
| 520 | PRESET (X,Y):RETURN |
| 530 | PSET (X,Y),X:RETURN |
| 540 | "SPUR" ON F GOTO 550 ,560 ,570 |
| 550 | LINE (X0,Y0)-(X,Y):GOTO 580 |
| 560 | LINE (X0,Y0)-(X,Y),R:GOTO 580 |
| 570 | LINE (X0,Y0)-(X,Y),X |
| 580 | X0=X:Y0=Y:RETURN |
| 590 | "FELD" IF D=0 LET D=1:U=X:V=Y:RETURN |
| 600 | D=0 |
| 610 | ON F GOTO 620 ,630 ,640 |
| 620 | LINE (U,V)-(X,Y),S,BF:RETURN |
| 630 | LINE (U,V)-(X,Y),R,BF:RETURN |
| 640 | LINE (U,V)-(X,Y),X,BF |
| 650 | RETURN |
| 660 | "RAHMEN" IF D=0 LET D=1:U=X:V=Y:RETURN |
| 670 | D=0 |
| 680 | ON F GOTO 690 ,700 ,710 |
| 690 | LINE (U,V)-(X,Y),S,B:RETURN |
| 700 | LINE (U,V)-(X,Y),R,B:RETURN |
| 710 | LINE (U,V)-(X,Y),X,B:RETURN |
| 720 | "TEXT" CURSOR INT (X/6),INT (Y/7) |
| 730 | I$=INKEY$ |
| 740 | IF I$="" THEN 730 |
| 750 | IF ASC I$=13 BEEP 1,39,50:RETURN |
| 760 | PRINT I$; |
| 770 | BEEP 1,39,50 |
| 780 | GOTO 730 |
| 790 | "C" ERASE C |
| 800 | H=H/8-1:G=G-1:DIM C(H,G) |
| 810 | FOR I=0 TO H |
| 820 | FOR J=0 TO G |
| 830 | FOR K=0 TO 7 |
| 840 | IF POINT (J,I*8+K) LET C(I,J)=C(I,J)+2^K |
| 850 | NEXT K:GCURSOR (J,I*8+7):GPRINT NOT C(I,J)+256 |
| 860 | NEXT J:NEXT I |
| 870 | BEEP 2:CLS |
| 880 | PRINT "A (usgabe des Codes)":PRINT "S (peichern)":PRINT "H (ardcopy)" |
| 890 | INPUT "D (isplaybild) ? ";S$ |
| 900 | IF S$="D" OR S$="S" OR S$="A" OR S$="H" GOTO S$ |
| 910 | GOTO 880 |
| 920 | "D" WAIT 0:CLS :PRINT "N (eues Bild)":INPUT "A (ltes Bild) ? ";S$ |
| 930 | IF S$="N" CLS :GOTO 10 |
| 940 | "H"CLS :FOR I=0 TO H:FOR J=0 TO G |
| 950 | GCURSOR (J,I*8+7) |
| 960 | GPRINT C(I,J) |
| 970 | NEXT J:NEXT I |
| 980 | IF S$="H" GOTO 1270 |
| 990 | WAIT :GPRINT |
| 1000 | WAIT 0:GOTO 20 |
| 1010 | "LINIE"IF L=0 LET L=1:W=X:Z=Y:RETURN |
| 1020 | L=0 |
| 1030 | ON F GOTO 1040 ,1050 ,1060 |
| 1040 | LINE (W,Z)-(X,Y),S:RETURN |
| 1050 | LINE (W,Z)-(X,Y),R:RETURN |
| 1060 | LINE (W,Z)-(X,Y),X:RETURN |
| 1070 | "A" PRINT =LPRINT :WAIT 0 |
| 1080 | FOR I=0 TO H:FOR J=0 TO G |
| 1090 | PRINT STR$ C(I,J)+";"; |
| 1100 | IF ASC INKEY$ =13 GOTO 1100 |
| 1110 | NEXT J:NEXT I |
| 1120 | PRINT =PRINT |
| 1130 | GOTO 880 |
| 1140 | "S" INPUT "Filename : ";N$ |
| 1150 | WAIT :PRINT "CE-140F o.k.? |
| 1160 | OPEN "X:"+N$+".DG4" FOR OUTPUT AS #2 |
| 1170 | PRINT #2,H,G,C(*) |
| 1180 | CLOSE |
| 1190 | GOTO 880 |
| 1200 | "BILD" CLS :INPUT "Filename : ";N$ |
| 1210 | WAIT :PRINT "CE-140F o.k.? |
| 1230 | OPEN "X:"+N$+".DG4" FOR INPUT AS #3 |
| 1235 | INPUT #3,H,G |
| 1236 | ERASE C:DIM C(H,G) |
| 1240 | INPUT #3,C(*) |
| 1250 | CLOSE #3 |
| 1260 | GOTO 880 |
| 1270 | "DRUCK" H=H*8+8:ERASE A$:DIM A$(0)*H |
| 1280 | LPRINT CHR$ &1B+"@" |
| 1290 | GRAPH :CSIZE 1 |
| 1300 | FOR I=0 TO G |
| 1310 | GLCURSOR (0,-I*6) |
| 1320 | FOR J=H TO 0STEP -1 |
| 1330 | IF POINT (I,J) LPRINT "P"+A$(0)+"@":A$(0)="":GOTO 1350 |
| 1340 | A$(0)=A$(0)+" " |
| 1350 | NEXT J |
| 1360 | A$(0)="" |
| 1370 | NEXT I |
| 1380 | LTEXT :LF 5 |
| 1390 | LPRINT CHR$ &1B+"@" |
| 1395 | H=H/8-1 |
| 1400 | CLS :GOTO 880 |
| 1410 | "KOOR" X0=X:Y0=Y:X$="":Y$="" |
| 1420 | I$=INKEY$ :IF I$="" GOTO 1420 |
| 1430 | BEEP 1,39,40:K=ASC I$ |
| 1440 | IF K<>13 AND (K<48 OR K>57) GOTO 1420 |
| 1450 | IF K=13 LET E=E+1:I$="":IF E=2 GOTO 1490 |
| 1460 | IF E=1 GOTO 1480 |
| 1470 | X$=X$+I$:GOTO 1420 |
| 1480 | Y$=Y$+I$:GOTO 1420 |
| 1490 | E=0:X=VAL X$ |
| 1500 | Y=VAL Y$ |
| 1510 | IF X<0 LET X=0 |
| 1520 | IF X>G LET X=G |
| 1530 | IF Y<0 LET Y=0 |
| 1540 | IF Y>H LET Y=H |
| 1550 | IF M GOTO 1570 |
| 1560 | RETURN |
| 1570 | ON F GOTO 1580 ,1590 ,1600 |
| 1580 | LINE (X0,Y0)-(X,Y):GOTO 1610 |
| 1590 | LINE (X0,Y0)-(X,Y),R:GOTO 1610 |
| 1600 | LINE (X0,Y0)-(X,Y),X |
| 1610 | X0=X:Y0=Y:RETURN |
Dokumentation ansehen
Programmspeicher-Image laden
|
|
Falls diese Seite ohne Navigationsleiste angezeigt wird, aktivieren Sie Javascript oder klicken Sie hier!