1 REM Ins{nt av 837
10 REM (C) KALLE LINDSTR\M,1982-01-12
11 REM VER 1.0,16K,DISK,ED,40 TKN
12 REM _________________________
13 REM ! THE COMPUTER PHANTOME !
14 REM =========================
15 REM 
16 REM 
17 REM 
18 REM 
19 REM 
20 DIM D$=1%,A$=32%,B$=120%
21 ; CHR$(12%)' ABC80 - RENSA'
22 ; CHR$(23%)'#############'
23 ; CUR(6%,1%)'Vilken drive vill du ';
24 ; 'rensa (0/1)'; : GET D$
25 IF D$<>'0' AND D$<>'1' 23 ELSE ; D$
26 POKE 64769%,VAL(D$)
27 Z%=CALL(24678%)
28 FOR I%=62944% TO 62975%
29 X%=PEEK(I%)
30 IF X%<32% OR X%>127% X%=32%
31 A$=A$+CHR$(X%) : NEXT I%
32 ; CUR(9%,0%)' Skivans gamla namn'
33 ; ' >'A$'<'
34 ; : ; ' Skivans nya namn'
35 ; ' (RETURN ger samma namn)' : ; 
36 ; ' >'TAB(33%)'<'CUR(15%,2%);
37 INPUTLINE B$
38 B$=LEFT$(B$,LEN(B$)-2%)
39 IF B$='' B$=A$ : ; CUR(15%,2%)A$'<'
40 FOR I%=62720% TO 62975%
41 POKE I%,32% : NEXT I%
42 FOR J%=0% TO 5%
43 Z%=CALL(24675%,J%*32%) : NEXT J%
44 FOR I%=62944% TO 62943%+LEN(B$)
45 POKE I%,ASC(B$) : B$=RIGHT$(B$,2%)
46 NEXT I% : Z%=CALL(24675%)
47 FOR I%=62720% TO 62735%
48 POKE I%,0% : NEXT I%
49 FOR I%=62736% TO 62975%
50 POKE I%,255% : NEXT I%
51 FOR J%=8% TO 23%
52 Z%=CALL(24675%,J%*32%) : NEXT J%
53 Z%=CALL(24678%,224%)
54 Z%=CALL(24675%,192%)
55 ; : ; : ; CHR$(7%)'Klart !'