10 REM ***************************** 20 REM * * 30 REM * NOTONLY * 40 REM * Ver 3.7 * 50 REM * Kodat 1982-01-03 * 60 REM * Erik Nilsson * 70 REM * * 80 REM ***************************** 90 ; CHR$(12)CUR(2,2); 100 ; "HAR DU FLYTTAT BOFA (J/N) "; : GET T$ : IF T$="N" THEN STOP 110 ; : ; : ; 120 A1=PEEK(65053) : A=A1*256 130 POKE A+0,245,219,56,254,131,32,3,50,7,254,62,128,211,6,50,245,253,62,70 140 POKE A+19,50,247,253,229,33,37,254,203,174,225,241,251,237,77 150 POKE A+33,62,A1,237,71,201 160 POKE A+52,0,A1,148,5 170 U=CALL(A+33) 180 ; : ; : ; : ; "GE NU KOMMANDOT ' NEW ' OCH" 190 ; "GE KOMMANDOT ' RUN CAS:filnamn '" 200 ; "K\R PROGRAMMET S] L]NGT ATT MINST " 210 ; "EN TANGENTNEDTRYCKNING G\RS UNDER" 220 ; "K\RNING. PROGRAMMET KAN NU LISTAS" 230 ; "OCH SAVAS P] VANLIGT VIS"