home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib22a.dsk / OCTOBER.1984 / HOUDINI.DRIVER.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  38 lines
  1. 10  REM ************************
  2. 20  REM *    HOUDINI.DRIVER    *
  3. 30  REM *  BY SCOTT ZIMMERMAN  *
  4. 40  REM *  COPYRIGHT (C) 1984  *
  5. 50  REM *  BY MICROSPARC, INC  *
  6. 60  REM *  CONCORD, MA. 01742  *
  7. 70  REM ************************
  8. 80 D$ =  CHR$(4)
  9. 90  ONERR  GOTO 360
  10. 100  HOME : VTAB 2: HTAB 10: INVERSE : PRINT "HI-RES HOUDINI DRIVER": NORMAL 
  11. 110  VTAB 12: CALL  -958: VTAB 22: PRINT "'?' FOR DISK CATALOG": PRINT "<RETURN> TO SKIP": VTAB 12: PRINT "FILE NAME FOR PAGE 1 PICTURE:": INPUT "";P1$
  12. 120  IF P1$ = "?"  THEN  HOME : PRINT D$"CATALOG": PRINT "PRESS ANY KEY TO CONTINUE": GET K$: PRINT : HOME : GOTO 110
  13. 130  IF P1$ = ""  THEN 150
  14. 140  PRINT D$;"BLOAD";P1$;",A$2000"
  15. 150  VTAB 12: CALL  -958: VTAB 22: PRINT "'?' FOR DISK CATALOG": PRINT "<RETURN> TO SKIP": VTAB 12: PRINT "FILE NAME FOR PAGE 2 PICTURE:": INPUT "";P2$
  16. 160  IF P2$ = "?"  THEN  HOME : PRINT D$"CATALOG": PRINT "PRESS ANY KEY TO CONTINUE": GET K$: PRINT : HOME : GOTO 150
  17. 170  IF P2$ = ""  THEN 190
  18. 180  PRINT D$;"BLOAD";P2$;",A$4000"
  19. 190  PRINT D$;"BLOAD HI.RES.HOUDINI"
  20. 200  CALL 36608: TEXT : HOME 
  21. 210  HOME : VTAB 12: PRINT "DO YOU REALLY WANT TO QUIT? (Y/N)";: GET K$: PRINT : IF K$ = "N"  THEN  CALL 36608: GOTO 210
  22. 220  IF K$ < >"Y"  THEN 210
  23. 230  HOME : VTAB 12: PRINT "LOAD NEW PICTURES AND RE-START? (Y/N)";: GET K$: PRINT : IF K$ = "Y"  THEN 100
  24. 240  IF K$ < >"N"  THEN 230
  25. 250  ONERR  GOTO 380
  26. 260  HOME : VTAB 12: PRINT "SAVE PICTURE ON PAGE 1? (Y/N)";: GET K$: PRINT : IF K$ = "N"  THEN 300
  27. 270  IF K$ < >"Y"  THEN 260
  28. 280  VTAB 12: CALL  -958: PRINT "ENTER FILE NAME:": INPUT "";F$: IF  LEN(F$) >15  OR  VAL(F$) >0  THEN  PRINT "ILLEGAL FILE NAME. TRY AGAIN.": FOR I = 1 TO 1000: NEXT : GOTO 280
  29. 290  PRINT D$"BSAVE";F$;",A$2000,L$2000"
  30. 300  HOME : VTAB 12: PRINT "SAVE PICTURE ON PAGE 2? (Y/N)";: GET K$: PRINT : IF K$ = "N"  THEN 340
  31. 310  IF K$ < >"Y"  THEN 300
  32. 320  VTAB 12: CALL  -958: PRINT "ENTER FILE NAME:": INPUT "";F$: IF  LEN(F$) >15  OR  VAL(F$) >0  THEN  PRINT "ILLEGAL FILE NAME. TRY AGAIN.": FOR I = 1 TO 1000: NEXT : GOTO 320
  33. 330  PRINT D$"BSAVE";F$;",A$4000,L$2000"
  34. 340  HOME : END 
  35. 350  REM  ERROR TRAP #1
  36. 360  VTAB 22: PRINT "ERROR NUMBER "; PEEK(222): PRINT "PRESS ANY KEY TO START AGAIN";: GET K$: GOTO 100
  37. 370  REM  ERROR TRAP #2
  38. 380  VTAB 22: PRINT "ERROR NUMBER "; PEEK(222): PRINT "PRESS ANY KEY TO TRY AGAIN";: GET K$: GOTO 260