10 REM ++++++++++++++++++++++++++++++++
11 REM ! Program .... LINDA.BAS
12 REM ! Datum...... 85-03-13
13 REM ! konverterat av Taco Pronto
14 REM ! ABC80 i grundutf|rande
15 REM ! Ins{nt av <10>
16 REM ++++++++++++++++++++++++++++++++
17 REM P} sk{rmen ritas en l{cker tjej
18 REM med namnet Linda.
19 REM
20 REM ===============================
21 REM
22 REM Detta {r progr. LINDAPIC.800
23 REM fr}n kasset #12 konverterat
24 REM till ABC80-basic och -grafik.
25 REM Bl.a f|r att f} plats i 16K RAM
26 REM ligger data-satserna i en
27 REM separat fil; LINDA.DAT
28 REM
29 REM Ursprunglig f|rfattare {r
30 REM Jan Gustafsson (medlem 4443).
31 REM
32 REM ===============================
33 REM
34 REM C$() MAPPAS P] BILDMINNET, M]STE LIGGA F\RST I VARIABELLISTAN.
35 DIM C$(23%)=80%
36 C0%=PEEK(65065%)+SWAP%(PEEK(65066%))
37 C1%=PEEK(C0%+4%)+SWAP%(PEEK(C0%+5%))
38 L%=PEEK(590%) : REM 40 ELLER 80 TECKENS SK[RM
39 FOR C2%=0% TO 23%
40 POKE C1%+C2%*6%+2%,PEEK(884%+C2%*2%),PEEK(885%+C2%*2%)
41 NEXT C2%
42 A9%=96% : REM rader i scroll minnet
43 DIM A$(A9%)=L%*.9
44 FOR A%=0% TO A9% : A$(A%)=CHR$(23%)+SPACE$(L%*.9-1%) : NEXT A%
45 A0%=0% : ; CHR$(12%) : GOSUB 82
46 REM
47 X8%=-7% : X9%=82% : Y8%=-60% : Y9%=225%
48 OPEN 'LINDA.DAT' ASFILE 1%
49 REM big loop
50 INPUT #1%,M$,X%,Y%
51 IF M$='L' GOSUB 93 : GOTO 49
52 IF M$='D' GOSUB 88 : GOTO 49
53 IF M$='C' C%=X% : GOTO 49
54 GOSUB 85
55 REM end loop
56 CLOSE 1%
57 ; CUR(10%,L%/2%-10%)'7###################k'
58 ; CUR(11%,L%/2%-10%)'5 j'
59 ; CUR(12%,L%/2%-10%)'5 SCROLLA BILDEN j'
60 ; CUR(13%,L%/2%-10%)'5 MED j'
61 ; CUR(14%,L%/2%-10%)'5 PILTANGENTERNA j'
62 ; CUR(15%,L%/2%-10%)'5 j'
63 ; CUR(16%,L%/2%-10%)'upppppppppppppppppppz'
64 REM
65 ; CUR(21%,0%); : GET A$
66 IF A$=CHR$(8%) IF A0%>0% A0%=A0%-1% : GOSUB 82
67 IF A$=CHR$(9%) IF A0%+23%=A0%*3% AND Y3%=A0%*3%+72% LET A%=A0%+1% ELSE 80
78 A0%=A% : IF A0%<0% A0%=0% ELSE IF A0%+23%>A9% A0%=A9%-23%
79 GOSUB 82 : GOTO 77
80 SETDOT Y3%-A0%*3%,X3%
81 RETURN
82 REM SKRIV A$() TILL SK[RM
83 FOR Z%=0% TO 23% : C$(Z%)=A$(Z%+A0%) : NEXT Z%
84 RETURN
85 REM SPARA SK[RM I A$()
86 FOR Z%=0% TO 23% : A$(Z%+A0%)=C$(Z%) : NEXT Z%
87 RETURN
88 REM SET DOT X%,Y%
89 GOSUB 70
90 X3%=X% : Y3%=Y% : GOSUB 74
91 X0%=X% : Y0%=Y%
92 RETURN
93 REM LINE TO X%,Y%
94 GOSUB 70
95 IF X%=X0% AND Y%=Y0% THEN X3%=X% : Y3%=Y% : X0%=X% : Y0%=Y% : GOTO 74
96 IF ABS(X%-X0%)