100 REM ***
110 REM *** GIGA-PRINT V2.01 - PATCH
120 REM ***
130 :
140 PRINT "LEGEN SIE EINE KOPIE (!!!) DER"
150 PRINT "GIGA-PRINT DISKETTE EIN  <TASTE>"
160 WAIT 198,1:GET QQ$
170 :
180 :
200 OPEN 1,8,0,"GIGA-PRINT V2.0"
210 FOR I=8192 TO 8336
220 GET#1,A$:POKE I,ASC(A$+CHR$(0))
240 NEXT
250 CLOSE 1
255 :
260 OPEN 1,8,15,"S:GIGA-PRINT V2.0"
270 CLOSE 1
275 :
280 POKE 8320,47
285 OPEN 1,8,1,"GIGA-PRINT V2.0"
290 FOR I=8192 TO 8299
300 PRINT#1,CHR$(PEEK(I));
310 NEXT
320 PRINT#1,CHR$(32)CHR$(191)CHR$(227);
330 FOR I=8300 TO 8336
340 PRINT#1,CHR$(PEEK(I));
350 NEXT
360 CLOSE 1
365 :
370 :
400 SYS 57812 "PR1",8,0
410 POKE 780,0:POKE 781,0:POKE 782,32:SYS 65493
430 :
440 OPEN 1,8,15,"S:PR1":CLOSE 1
460 :
470 POKE 22100,81:POKE 22104,51:POKE 15770,25
495 :
500 OPEN 1,8,1,"PR1"
510 PRINT#1,CHR$(16)CHR$(8);
520 FOR I=8192 TO 24519
530 PRINT#1,CHR$(PEEK(I));
540 NEXT
550 CLOSE 1