home *** CD-ROM | disk | FTP | other *** search
/ AppleDisk Magazine Miscellaneous Programs / AppleDisk_Misc_Programs_3.dsk / CONFIGURE.bas < prev    next >
Encoding:
BASIC Source File  |  1987-01-01  |  2.2 KB  |  24 lines
  1. 100  REM --------------------
  2. 110  REM  
  3. 120  REM  CONFIGURE
  4. 130  REM  DI KEN MANLY    
  5. 140  REM  BUFFALO CHIP SOFTWARE
  6. 150  REM  COPYRIGHT (C) 1986  
  7. 160  REM  BY APPLICANDO &   
  8. 170  REM  MICROSPARC, INC   
  9. 180  REM ---------------------
  10. 190  DIM FL(2): TEXT : HOME : VTAB 2: PRINT "QUESTO PROGRAMMA AIUTA A IMPOSTARE LE": PRINT : PRINT "SCELTE DISPONIBILI NEL PROGRAMMA DBBOOT."
  11. 200  VTAB 8: PRINT "OCCORRE UN DISCHETTO CON UNA COPIA NON": PRINT : PRINT "PROTETTA DI DBBOOT. QUANDO SEI PRONTO": PRINT : PRINT "PREMI <RETURN> PER CONTINUARE. QUALSIASI": PRINT "ALTRO TASTO METTE FINE AL PROGRAMMA.": PRINT 
  12. 210  GET Q$: PRINT Q$: IF Q$ < > CHR$(13)  THEN 320
  13. 220  VTAB 8: CALL  -958: PRINT "DBBOOT PUO' PRESENTARE UN MENU' DI": PRINT : PRINT "SCELTA O ESEGUIRE AUTOMATICAMENTE PER": PRINT : PRINT "DEFAULT IL PRODOS O IL DOS 3.3."
  14. 230  VTAB 18: PRINT " 1. AUTOMATICO": PRINT " 2. MENU'": PRINT : PRINT "SCEGLI: ";: GET Q$: PRINT Q$: ON Q$ < >"1"  AND Q$ < >"2" GOTO 230:FL(0) = (Q$ = "2"): IF FL(0)  THEN 290
  15. 240  VTAB 8: CALL  -958: PRINT "DBBOOT PUO' ESEGUIRE PER DEFAULT IL": PRINT : PRINT "PRODOS O IL DOS 3.3."
  16. 250  VTAB 18: PRINT " 1. PRODOS": PRINT " 2. DOS 3.3": PRINT : PRINT "SCEGLI: ";: GET Q$: PRINT Q$: ON Q$ < >"1"  AND Q$ < >"2" GOTO 250:FL(1) = (Q$ = "2")
  17. 260  VTAB 8: CALL  -958: PRINT "QUANDO VIENE CARICATO UN SISTEMA PER": PRINT : PRINT "DEFAULT, DBBOOT EFFETTUA UNA PAUSA PER": PRINT : PRINT "RICORDARE CHE AVRESTI POTUTO SCEGLIERE": PRINT : PRINT "L'ALTRO.": PRINT 
  18. 270  PRINT "QUESTO E' UN AIUTO PER I NOVIZI MA SOLO": PRINT : PRINT "UN FASTIDIO PER GLI ESPERTI."
  19. 280  VTAB 20: PRINT " 1. NOVIZIO": PRINT " 2. ESPERTO": PRINT : PRINT "SCEGLI: ";: GET Q$: PRINT Q$: ON Q$ < >"1"  AND Q$ < >"2" GOTO 280:FL(2) = (Q$ = "2")
  20. 290  VTAB 8: CALL  -958: PRINT "NON OCCORRONO ALTRE SCELTE. PREMI <S>": PRINT : PRINT "PER MEMORIZZARE LE SCELTE NELLA COPIA DI"
  21. 295  PRINT "DBBOOT CHE E' SUL DISCHETTO. OGNI ALTRO": PRINT : PRINT "TASTO FARA' TERMINARE IL PROGRAMMA SENZA": PRINT "MODIFICHE.";
  22. 300  GET Q$: PRINT Q$: IF Q$ < >"S"  AND Q$ < >"s"  THEN 320
  23. 310 D$ =  CHR$(4):N$ = "DBBOOT,A$2000": PRINT D$"BLOAD"N$",TSYS": FOR I = 0 TO 2: POKE 8195 +I,128 *FL(I): NEXT : PRINT D$"BSAVE"N$",L$2A0,TSYS"
  24. 320  HOME : PRINT "ARRIVEDERCI": END