5  REM   ************************
 6  REM   * DISK TRANSFER PROGRAM
 7  REM   * BY GEORGE DRAMCHEFF   
 8  REM   ************************    
 9  HOME 
 10  GOSUB 2000
 20  PRINT  CHR$ (4);"BLOAD NEXT"
 30  INPUT "SLOT: ";SL
 40  INPUT "DRIVE: ";DR
 50 SL = SL * 16: POKE 2,SL: POKE 3,DR
 60  POKE 254,0: POKE 255,65
 65  HOME 
 70  PRINT "<1> SEND DISK TO PC"
 80  PRINT "<2> GET DISK FROM APPLE"
 90  PRINT "<3> EXIT"
 100  PRINT "CHOOSE OPTION"
 120  INPUT A
 130  IF A < 1 OR A > 3 THEN  GOTO 65
 140  IF A = 1 THEN  GOSUB 200
 150  IF A = 2 THEN  GOSUB 400
 160  IF A = 3 THEN  GOTO 600
 170  GOTO 65
 200  REM 
 201  REM  ***********************
 202  REM  * SEND DISK TO APPLE  *
 203  REM  ***********************
 204  HOME 
 210  PRINT "SEND DISK TO APPLE"
 211  PRINT " "
 212  PRINT "START TRANSFER PROGRAM ON PC"
 214  PRINT "CHOOSE AN IMAGE FILE ON PC"
 216  PRINT "CLICK ON THE GET IMAGE BUTON"
 218  PRINT "AND HIT RETURN ON APPLE"
 220  INPUT A$
 222  PRINT "TRANSFERING"
 230  FOR TR = 0 TO 34
 240  FOR SC = 0 TO 15
 250  POKE 4,TR: POKE 5,SC
 260  POKE 6,1: REM  READING FROM DRIVE MODE
 270  POKE 7,0: POKE 8,65: REM  ADDRESS OF THE BUFFER
 280  CALL 768
 290  CALL 16483
 300  NEXT SC: NEXT TR
 310  RETURN 
 320  REM 
 322  REM  ********************
 324  REM  
 400  REM  ***********************
 402  REM  * GET DISK FROM APPLE *
 406  REM  ***********************
 407  PRINT "CHOOSE AN IMAGE FILE ON PC"
 408  PRINT "CLICK ON THE SEND DISK BUTTON ON PC": PRINT "AND HIT RETURN KEY ON APPLE"
 410  FOR TR = 0 TO 34
 420  FOR SC = 0 TO 15
 430  CALL 16423
 440  POKE 4,TR: POKE 5,SC
 450  POKE 6,2: REM  WRITING TO DISK MODE
 460  POKE 7,0: POKE 8,65: REM  ADDRESS OF THE BUFFER
 470  CALL 768
 480  NEXT SC: NEXT TR
 490  INPUT "DONE. HIT RETURN KEY";A$
 500  RETURN 
 600  PRINT "BYE"
 1000  REM ********************
 1005  REM * PROG 6.01        *
 1010  REM * syzdawane na     *
 1020  REM * modul 'RWTS'     *
 1030  REM ********************
 2000  REM --------------------
 2010  DATA 32,227,3,132
 2020  DATA 0,133,1,165
 2030  DATA 2,160,1,145
 2040  DATA 0,165,3,160
 2050  DATA 2,145,0,165
 2060  DATA 4,160,4,145
 2070  DATA 0,165,5,160
 2080  DATA 5,145,0,165
 2090  DATA 6,160,12,145
 2100  DATA 0,165,7,160
 2110  DATA 8,145,0,165
 2120  DATA 8,160,9,145
 2130  DATA 0,169,0,160
 2140  DATA 3,145,0,32
 2150  DATA 227,3,32,217
 2160  DATA 3,169,0,133
 2170  DATA 72,160,13,177
 2180  DATA 00,133,9,96
 3000  REM ---------------
 3010  FOR I = 0 TO 71
 3020  READ P
 3030  POKE 768 + I,P
 3040  NEXT 
 3050  RETURN