home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 3 #12 / Commodore_Disk_User_Vol.3_12_1990_-.d64 / prob2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  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.