home *** CD-ROM | disk | FTP | other *** search
/ A.N.A.L.O.G. Magazine 1987 January / 87_jan.atr / picture.stb < prev    next >
Text File  |  2023-02-26  |  2KB  |  37 lines
  1. 10 REM **********************
  2. 20 REM **  SHOWPIC   DEMO  **
  3. 30 REM **        --        **
  4. 40 REM ** By Mathew Spolin **
  5. 50 REM **********************
  6. 60 REM 
  7. 70 REM This is the demo driver.
  8. 80 REM The actual program starts at line 6400.
  9. 90 REM
  10. 100 FULLW 2:CLEARW 2
  11. 110 COLOR 2:?"VALID EXTENDERS:":COLOR 3:?"   .NEO - Neochrome Image"
  12. 120 ?"   .PI? - Degas Image":COLOR 1
  13. 130 ?:INPUT" File to load --> ",FILE$:IF FILE$="QUIT" THEN END
  14. 140 GOSUB SHOWPIC:GOTO 100
  15. 59997 '
  16. 59998 ' The SHOWPIC Subroutine Follows.
  17. 59999 '
  18. 64000 SHOWPIC:
  19. 64010 COLOR$=SPACE$(32):ERASE PAL%:DIM PAL%(15):IGNORE=0:A#=GB
  20. 64020 SCREENREG#=&H44E:SCREENRAM#=PEEK(SCREENREG#):PALREG#=&H45A
  21. 64030 GINTIN=PEEK(A#+8):SAVEP=16745024:COUNT=0:FOR REGISTER=0 TO 15
  22. 64040 PAL%(REGISTER)=PEEK(SAVEP+COUNT):COUNT=COUNT+2:NEXT REGISTER
  23. 64050 IF RIGHT$(FILE$,3)="NEO" THEN IGNORE=128:FORGET=4
  24. 64060 IF LEFT$(RIGHT$(FILE$,3),2)="PI" THEN IGNORE=34:FORGET=2
  25. 64070 IF IGNORE=0 THEN RETURN
  26. 64080 POKE CONTRL,123:POKE CONTRL+2,0:POKE CONTRL+6,0:VDISYS(0)
  27. 64090 CLOSE #1:OPEN "I",#1,FILE$:A$=INPUT$(FORGET,1)
  28. 64100 COLOR$=INPUT$(32,1):CLOSE #1:NEWC#=VARPTR(COLOR$)
  29. 64110 POKE PALREG#,NEWC#:GOSUB 64180
  30. 64120 BLOAD FILE$,SCREENRAM#-IGNORE
  31. 64130 POKE GINTIN,1:POKE GINTIN+2,1:POKE GINTIN+4,1:GEMSYS(21)
  32. 64140 POKE PALREG#,VARPTR(PAL%(0))
  33. 64150 GOSUB 64180:POKE CONTRL,122:POKE CONTRL+2,0:POKE CONTRL+6,1
  34. 64160 POKE INTIN,0:VDISYS(0)
  35. 64170 RETURN
  36. 64180 POKE CONTRL,3:POKE CONTRL+2,0:POKE CONTRL+6,0:VDISYS(0):RETURN
  37. ə