100  REMark ===========================
110  REMark ****** boot *******
120  REMark ===========================
130  :
140  REMark QUASAR 40
150  :
160  dev$="flp1_": REMark Hier device seiner Wahl eingeben
170 :
180  m=RESPR(1526)
190  LBYTES dev$ & "RAMdisk_bin",m
200  CALL m
210 REMark Falls Ihr bereits eine RAMDISK installiert habt,
220 REMark dann m‡śt Ihr die Zeilen 170-190 l„schen
230 :
240  WINDOW#0,256,20,0,236
250  CLOSE#2:CLOSE#1
260  OPEN#2,'con_'
270  OPEN#1,'con_'
280  PAPER#2,7:INK#2,0
290  PAPER#1,0:INK#1,7
300  WINDOW#2,256,236,0,0
310  WINDOW#1,252,236,256,20
320  CLS#2:CLS#1:CLS#0
330  BORDER#1,1,255:BORDER#2,1,255
340  MODE 4
350 :
360 :
370  DIR dev$
380  PRINT#2\\\\\"Mit Dr‡cken von F1 startet das Entkompri- mieren. Einfach ein File mit Endung _arq  eingeben und danach das Device wo die     Files hinsollen."\"Beispiel: QUELLDATEI: flp1_unzip_ARQ      ZIELDEVICE: RAM1_ ... Danach befinden sichdie Programme auf RAM1_!"
390 PRINT #2;"Da die Programme die auf der Diskette ent-halten sind, zu groś f‡r einen normalen QLsind, habe ich alle Programme 'gezippt'.  Dadurch passen mehr Programme drauf. Das  Programm UNZIP, liegt als ARQ vor."
400 PRINT #2;"UNZIP ben„tigt allerdings viel Speicher.  Die Programme aber ja auch."
410 PRINT#2;'UNZIP SYNTAX: EX unzip;"flp1_xxxx_zip"'
420 PRINT#2;"Entpackt wird immer ins DATA_USE Verzeich-nis!!!"
430  EXEC dev$&'arc_exe'
440  PAUSE 50
450 DLINE 180 TO 200
460 DLINE 440 TO