home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 42 / Tiger_Disk_042_1997-09_Tiger-Crew-Disk_de_Side_B.d64 / graphic-hardcopy (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  802b  |  11 lines
  1. 10 poke53280,5:poke53281,5:ifa=0then1000
  2. 20 ifa=1thengr$="":input"name der grafik ";gr$:ifgr$=""thenend
  3. 30 ifa=1thena=2:gr$=gr$+"*":loadgr$,8,1
  4. 40 ifa=2then2000
  5. 1000 print"[147]bitte zunaechst die":print" dezimale adresse ":print"feststellen, an die die zu druckende";:print"    grafik geladen wird!":print"wenn o.k.,  f1 [146] druecken!":printtab(6)" ladeprogramm und anleitung ":printtab(12)" by tigercrew 
  6. 1005 [161]a$:[139]a$[178]""[167]1005
  7. 1006 [139]a$[178][199](133)[167]a[178]1:[137]20
  8. 1007 [128]
  9. 2000 [153]"load  das druck-programm wird jetzt nach      tastendruck nachgeladen!":[153][163]10)"dessen bedienung:":[153]"f1/f3 : adresse der grafik einstellen":[153]" f7  bildanzeige ein-/ausschalten":[153]" f5  screen invertieren":[153]" f8  (im menue) bild drucken
  10. 2004 print"    programm-disk einlegen + taste ! ":poke198,0:wait198,1:poke198,0:print"load"chr$(34)"hardcopy*"chr$(34)",8[145][145][145]":poke631,13:poke632,82:poke633,85:poke634,78:poke635,13:poke198,5:end
  11.