home *** CD-ROM | disk | FTP | other *** search
/ AppleDisk 6 / AppleDisk_006.dsk / TURBO COPIATORE.bas < prev   
Encoding:
BASIC Source File  |  1986-01-01  |  1.7 KB  |  29 lines

  1. 10  TEXT : HOME :T$ = "ISTRUZIONI TURBO COPIATORE": HTAB 21 - LEN(T$)/2: INVERSE : PRINT T$
  2. 15  POKE 768,169: POKE 769,0: POKE 770,141: POKE 771,0: POKE 772,8: POKE 773,32: POKE 774,88: POKE 775,252: POKE 776,76: POKE 777,211: POKE 778,3: POKE 779,0
  3. 20  PRINT : PRINT 
  4. 30  INVERSE : PRINT "TURBO COPIATORE";: NORMAL : PRINT " E' UN COPIATORE VELOCE"
  5. 40  PRINT "CHE VISUALIZZA LA MAPPA DEL DISCO MENTRE";
  6. 50  PRINT "VIENE EFFETTUATA LA COPIATURA."
  7. 60  PRINT : PRINT "COPIA SOLO I SETTORI CHE CONTENGONO DATI";
  8. 70  PRINT "E SOLO I DISCHI IN DOS 3.3. NON COPIA"
  9. 80  PRINT "DISCHI IN PASCAL O IN CP/M."
  10. 90  PRINT : PRINT "NECESSITA DI DUE DISK DRIVE."
  11. 100  VTAB 23: PRINT "PREMI UN TASTO QUALSIASI PER CONTINUARE";: GET A$
  12. 110  CALL  -936: VTAB 1: HTAB 14: INVERSE : PRINT "TURBO COPIATORE": NORMAL 
  13. 120  VTAB 10: PRINT "INSERIRE IL DISCO SUL QUALE VOLETE": PRINT : PRINT "TRASFERIRE I PROGRAMMI, NEL DRIVE 2": PRINT : PRINT "E PREMERE <RETURN>."
  14. 122  VTAB 16: PRINT "IL DISCO VERRA' COSI' FORMATTATO.";
  15. 125  POKE 34,5
  16. 130  GET A$: PRINT A$: IF A$ < > CHR$(13)  THEN 130
  17. 132  CALL  -936: VTAB 8: HTAB 12: CALL  -1059: CALL  -1059: FLASH : PRINT "A T T E N Z I O N E": NORMAL 
  18. 133  VTAB 10: PRINT "SIETE SICURI CHE IL DISCO INSERITO NEL"
  19. 134  PRINT : PRINT "DRIVE 2 NON CONTENGA DATI IMPORTANTI?"
  20. 135  PRINT : PRINT "CON LA FORMATTAZIONE ESSI VERRANNO"
  21. 136  PRINT : PRINT "IRRIMEDIABILMENTE PERSI."
  22. 137  VTAB 20: PRINT "<C> CONTINUARE  <F> FINIRE";:
  23. 138  GET A$: IF A$ < >"C"  AND A$ < >"F"  THEN 138
  24. 139  IF A$ < >"C"  THEN  POKE 34,0: CALL  -936: END 
  25. 140  CALL  -936: VTAB 10: HTAB 10: FLASH : PRINT " STO FORMATTANDO ": NORMAL 
  26. 150  PRINT  CHR$(4)"INIT HELLO,D2"
  27. 160  POKE 34,0
  28. 190 D$ =  CHR$(13) + CHR$(4)
  29. 200  PRINT D$;"BRUN DISK COPY,D1"