home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 51 / 051.d81 / ps.image.viewer (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  67 lines
  1. 11 poke53280,2:poke53281,.:poke650,128:ifx=.thenprintchr$(142)"[147][153]    welcome to the print shop viewer
  2. 15 [139]x[178].[167]x[178]1:[147]"bload.o",8,1
  3. 20 [151]56,120:[156]:[151]2,1:[158]828,50759,"text/dot/wipe.o":[158]828,51456,"unpacker":[158]828,32768,"ps.combo2.o":[141]1500:[141]1000:[141]2000
  4. 60 [141]2500:ri[178]cs[170](cp[171]1)[172]28:tf[178].:fl[178].:[139]a$[178]"input"[167][141]3000:[158]51459:[137]60
  5. 75 [139]a$[178]"dim"[167][141]5000:[158]51459:[137]60
  6. 80 [139]a$[178]"read"[167]cp[178]cp[170]1:[139]cp[177]np[167]cp[178]1
  7. 81 [139]a$[178]"read"[167][141]2040:[139]np[177]1[167]cs[178]1
  8. 82 [139]a$[178]"read"[167]60
  9. 85 [139]a$[178]"let"[167][141]60000:[141]2100:[137]60
  10. 90 [158]828,22528,im$(ri):di[178]ri:[141]4000:[137]60
  11. 990 [144]
  12. 1000 [159]3,8,3,"ps.image.names":co[178].:np[178]1:[132]3,ni::[134]im$(ni),by$(ni),me$(ni):[129]a[178]1[164]ni:[139]by$(a)[178]"*"[167]by$(a)[178]by$(a[171]1)
  13. 1030 [132]3,im$(a),by$(a):me$(a)[178]im$(a):co[178]co[170]1:[139]by$(a)[178]"*"[167]by$(a)[178]by$(a[171]1)
  14. 1050 ni(np)[178]ni(np)[170]1:[139]co[178]28[167]co[178].:np[178]np[170]1
  15. 1060 b[178][195](me$(a)):[139]b[179][177]16[167]me$(a)[178]me$(a)[170][200](sp$,16[171]b)
  16. 1070 [130]:[160]3:[142]
  17. 1500 tp$[178]"(NULL)tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanright$":si$[178]"(NULL)                                      (NULL)":di$[178]"-tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan<":bo$[178]"mid$tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan(NULL)":bt$[178]"mid$tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan(NULL)cmdsavetan
  18. 1550 sp$="                ":cs=1:jo=56320:cp=1:return
  19. 2000 print"[147][153][146]"tp$si$si$di$;:fora=1to14:printsi$;:next:printdi$si$si$si$si$si$bt$;:fora=217to242:pokea,peek(a)or128:next
  20. 2040 print"[146]        [158]print shop viewer v2":print"[150]by a. gardner, j. weiler, & m. maynard":print"";:mi=int(ni(cp)/2):if(np>1)and(cp<>np)thenmi=14
  21. 2085 si=(cp-1)*28:fora=si+1tosi+mi:printtab(1)"][154]"me$(a)"[  ][154]"me$(a+mi)"[":next:ifsi+14=si+mithen2100
  22. 2096 fora=si+13tosi+mistep-1:print"                                      ":next
  23. 2100 print"[154]number of pages:"np;:printtab(23)"[154]current page:"cp:print"f1 [154]- auto mode":print"f3 [154]- quick look       [158]crsr keys move ":print"f5 [154]- next page          [158]highlight":print"f7 [154]- quit           [158]return selects it.":return
  24. 2500 b=cs:ifb>mithenb=b-mi
  25. 2510 print"";:fora=1tob:print:next:printtab(2);:ifcs>mithenprinttab(19)"->";
  26. 2530 print""me$(si+cs);:poke198,.:ifcs<mi+1thenprint"[146]<-";
  27. 2540 geta$:gosub2700:ifa$=""then2540
  28. 2545 if(a$=chr$(13))or(a$="[133]")or(a$="[134]")or(a$="[135]")or(a$="[136]")thenreturn
  29. 2550 b=cs:ifb>mithenb=b-mi
  30. 2560 print"";:fora=1tob:print:next:printtab(2);:ifcs>mithenprinttab(19)"  ";
  31. 2580 print"[154]"me$(si+cs);:ifcs<mi+1thenprint"  ";
  32. 2590 ifa$=""thencs=cs+1:ifcs>ni(cp)thencs=ni(cp)
  33. 2600 ifa$="[145]"thencs=cs-1:ifcs<1thencs=1
  34. 2610 ifa$=""thencs=cs+mi:ifcs>ni(cp)thencs=cs-mi*2
  35. 2620 ifa$="[157]"thencs=cs-mi:ifcs<1thencs=cs+mi*2
  36. 2640 goto2500
  37. 2700 if(peek(jo)and16)=.thena$=chr$(13):return
  38. 2710 a=(peek(jo)and15):ifa=15thenreturn
  39. 2720 ifa=14thena$="[145]
  40. 2730 [139]a[178]07[167]a$[178]"
  41. 2740 ifa=13thena$="
  42. 2750 [139]a[178]11[167]a$[178]"cmd
  43. 2760 return
  44. 3000 fordi=ritoni:tf=1:sys828,22528,im$(di):gosub4000:poke249,224:poke250,204:sys50765:ifa$="q"ora$="[209]"thenreturn
  45. 3030 fl=1:next:ifri=1thenreturn
  46. 3040 fordi=1tori-1:tf=1:sys828,22528,im$(di):gosub4000:poke249,224:poke250,204:sys50765:ifa$="q"ora$="[209]"thenreturn
  47. 3080 fl=1:next:return
  48. 4000 iffl=.thenpoke249,224:poke250,204:sys51459:sys50765
  49. 4007 n$=im$(di):poke53270,200:sys50759,n$,(240-len(n$)*8/2),72:n$="created by":sys50759,n$,200,88:n$="edward nichols":sys50759,n$,(250-len(n$)*8/2),104:poke53270,200:poke33057,8:poke33058,212:sys32776:poke33057,8:poke33058,1:sys32768
  50. 4060 sys50759,"press a key",112,172:iftf=1thensys50759,"[q to quit]",112,180
  51. 4062 poke198,.
  52. 4065 geta$:gosub2700:ifa$=""then4065
  53. 4070 iftf=.thensys51459
  54. 4080 return
  55. 5000 px=.:py=.:tf=1:poke249,224:poke250,204:sys51459:sys50765:poke53270,200:gosub7000:forx=1toni:sys828,22528,im$(x):poke53270,200:poke33057,py:poke33058,px:sys32776:px=px+45:ifpx>224thenpx=.:py=py+46
  56. 5080 geta$:ifa$="q"ora$="[209]"thenreturn
  57. 5090 fl=.:ifx/20=int(x/20)thengosub6000:iffl=1thenreturn
  58. 5100 next:fl=1:syste,"[press a key]",118,188:poke198,.:wait198,1:return
  59. 6000 syste,"[press a key]",118,188:poke198,.:wait198,1:geta$:poke198,.:ifa$="q"ora$="[209]"thenfl=1:return
  60. 6020 poke249,224:poke250,204:sys50765:gosub7000:px=.:py=.:return
  61. 7000 te=50759:syste,"print shop",244,40:syste,"is a",268,48:syste,"trademark",244,56:syste,"of",276,64:syste,"broderbund",244,72:syste,"software",252,80:syste,"q to quit",244,110:return
  62. 60000 print"[146]";:fora=1to2:print"                                      ":next:print"[154] are you sure you want to quit? (y[154]/n[154])":poke198,.:fora=1to2:print"                                      ":next
  63. 60040 a=peek(203):ifa<>25anda<>39then60040
  64. 60050 ifa=39thenreturn
  65. 60060 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15:ifer<>63thenprint"";:poke198,.:end
  66. 60080 load"hello connect",8
  67.