home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V3D12.D64 / prob2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.2 KB  |  45 lines
  1. 10 REM ********************************
  2. 20 REM *  COPYRIGHT CDU OCTOBER 1990  *
  3. 30 REM *  PROGRAM WRITTEN BY J.FINCH  *
  4. 40 REM *    (CDU TECHNICAL DEPT.)     *
  5. 50 REM *                              *
  6. 60 REM * DISPLAYS I.S. PICTURE FILES  *
  7. 70 REM ********************************
  8. 80 :
  9. 90 A=A+1:IFA=2THEN180
  10. 100 POKE53280,14:POKE53281,6:PRINT"[147][142]PLEASE ENTER NAME OF PICTURE FILE",":";
  11. 110 OPEN1,0:INPUT#1,A$:CLOSE1:PRINT:PRINT"IS THIS PICTURE HI-RES OR MULTICOLOUR?"
  12. 120 PRINT"PRESS 'H' OR 'M'":POKE198,0:T=0
  13. 130 GETZ$:IFZ$="M"THENT=1
  14. 140 IFZ$<>"H"ANDZ$<>"M"THEN130
  15. 150 OPEN2,8,0,A$:CLOSE2:OPEN15,8,15:INPUT#15,E,E$:CLOSE15
  16. 160 IFE=0THEN LOAD A$,8,1
  17. 170 PRINT"[147]DISK ERROR: "E$:PRINT"PRESS ANY KEY":POKE198,0:WAIT198,1:POKE198,0:RUN
  18. 180 IF T=1 THEN 340
  19. 190 :
  20. 200 REM **********
  21. 210 REM * HI-RES *
  22. 220 REM **********
  23. 230 :
  24. 240 POKE 53270,200: POKE 53272,128
  25. 250 POKE 53265,59:  POKE 56576,194
  26. 260 POKE 53280,0
  27. 270 GOTO400
  28. 280 :
  29. 290 :
  30. 300 REM *******************************
  31. 310 REM * MULTICOLOUR (VERY SIMILAR!!)*
  32. 320 REM *******************************
  33. 330 :
  34. 340 POKE 53270,216: POKE 53272,128
  35. 350 POKE 53265,59:  POKE 56576,194
  36. 360 POKE 53280,0
  37. 370 FOR C=0 TO 999: POKE 55296+C,PEEK(15360+C): NEXT
  38. 380 :
  39. 390 :
  40. 400 POKE 198,0: WAIT 198,1: POKE198,0: REM ** WAIT FOR A KEY TO BE PRESSED
  41. 410 :
  42. 420 POKE 53272,21: POKE 53265,27
  43. 430 POKE 53270,200:POKE 56576,195
  44. 440 PRINT CHR$(147)
  45.