10 REM ++++++++++++++++++++++++++++++++
11 REM ! Program ....   NOTONLY
12 REM ! Utg}va  3.7    1982-01-03
13 REM ! av (c) Erik Nilsson
14 REM ! Minne 16 Kbytes
15 REM ! Ins{nt av ???
16 REM ++++++++++++++++++++++++++++++++
17 REM 
18 REM Screened by )TCP(
19 REM 
20 ; CHR$(12)CUR(2,2);
21 ; "HAR DU FLYTTAT  BOFA  (J/N) "; : GET T$ : IF T$="N" THEN STOP 
22 ; : ; : ; 
23 A1=PEEK(65053) : A=A1*256
24 POKE A+0,245,219,56,254,131,32,3,50,7,254,62,128,211,6,50,245,253,62,70
25 POKE A+19,50,247,253,229,33,37,254,203,174,225,241,251,237,77
26 POKE A+33,62,A1,237,71,201
27 POKE A+52,0,A1,148,5
28 U=CALL(A+33)
29 ; : ; : ; : ; "GE NU KOMMANDOT  ' NEW ' OCH"
30 ; "GE KOMMANDOT ' RUN CAS:filnamn '"
31 ; "K\R PROGRAMMET S] L]NGT ATT MINST "
32 ; "EN TANGENTNEDTRYCKNING G\RS UNDER"
33 ; "K\RNING. PROGRAMMET KAN NU LISTAS"
34 ; "OCH SAVAS P] VANLIGT VIS"