1 REM TOOL-BASIC.OBJ
10 POKE 53281,15:PRINT"[144][147]"
20 SYS57812 "TOOL-BASIC.OBJ",8,1
30 POKE 780,0:SYS 65493
40 OPEN 1,8,15
50 INPUT# 1,A:CLOSE 1
60 IF A<1 GOTO 200
70 PRINT " LEGEN SIE BITTE DIE DISKETTE MIT"
80 PRINT "'TOOL-BASIC.OBJ' EIN UND DRUECKEN SIE"
85 PRINT TAB(14);"<<< SPACE >>>"
90 GET A$:IF A$<>" " GOTO 90
100 GOTO 10
200 PRINT "BITTE LEGEN SIE DIE ZIELDISKETTE"
210 PRINT "EIN UND DRUECKEN SIE  <<< SPACE >>>"
220 GET A$:IF A$<>" " GOTO 220
230 POKE 193,0  :POKE 194,192
240 POKE 174,0  :POKE 175,208
250 POKE 187,7  :POKE 188,8
260 POKE 183,14
270 POKE 186,8  :POKE 185,0
280 SYS 62954
290 OPEN1,8,15
300 INPUT# 1,A,B$,C,D
310 PRINT A;B$;C;D
320 CLOSE 1