home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 42 / Tiger_Disk_042_1997-09_Tiger-Crew-Disk_de_Side_B.d64 / signcreator-conv (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  38 lines
  1. 0 rem                                   * signconvert v1.0 by mark l. fletcher *
  2. 1 ifpeek(2)=127thenpoke2,0:goto170
  3. 10 poke53281,0:poke53280,0:poke788,52
  4. 20 print"[147]      [153]signcreator screen convertor"
  5. 30 print"     by mark l. fletcher    10/2/88"
  6. 40 print"  [150]converts a signcreator sign file to a"
  7. 50 print"   print shop [tm] screen magic file"
  8. 60 print" to allow signs to be loaded into print"
  9. 70 print" shop and printed with the appropriate"
  10. 80 print"            printer driver."
  11. 81 forl=23552to24575:pokel,1:next
  12. 85 print"[158]insert disk containing sign and enter"
  13. 90 print"filename without 's>' :";
  14. 100 open1,0:input#1,f$:close1
  15. 105 print"[147][153][158]now reading s>"f$"..."
  16. 115 poke631,13:poke198,1:print"[144]goto120[145][145][145]";
  17. 116 poke56576,202:poke53272,124:poke53265,59:load"^",8,1
  18. 120 open1,8,0,"s>"+f$+",u,r":get#1,y$:get#1,z$
  19. 130 open15,8,15:input#15,a$,b$
  20. 140 ifval(a$)<>0then1000
  21. 145 close1:poke2,127:load"s>"+f$+",u",8,1
  22. 170 print:print"[158]read complete."
  23. 175 poke56576,199:poke53272,21:poke53265,27
  24. 180 print"insert target disk and hit return[146][158].":poke198,0:close15
  25. 190 geta$:ifa$<>chr$(13)then190
  26. 200 open15,8,15,"s:"+f$:close15
  27. 203 zk=peek(53)+256*peek(54)-len(f$)
  28. 204 poke782,zk/256
  29. 205 poke781,zk-peek(782)*256:poke780,len(f$)
  30. 210 sys65469:poke780,1:poke781,8:poke782,1:sys65466
  31. 220 poke254,96:poke253,0:poke780,253:poke782,128:poke781,0:sys65496
  32. 240 print:print"save complete.":close1:close15
  33. 250 open15,8,15:input#15,a$,b$,c$,d$:close15
  34. 260 print""a$","b$","c$","d$
  35. 270 end
  36. 1000 print"[150]error: "a$","b$""
  37. 1010 poke56576,199:poke53272,21:poke53265,27:end
  38.