home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / geos / programming / geoSplitter.prg (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1998-01-05  |  1.5 KB  |  40 lines
  1. 0 goto35
  2. 5 hi=int(a/256):lo=a-hi*256:print#15,"m-r"chr$(lo)chr$(hi):get#15,a$:a=asc(a$+chr$(.)):return
  3. 10 print#15,"u1:"2;0;tr;sc:return
  4. 15 print#15,"u2:"2;0;tr;sc:return
  5. 20 print#15,"b-p:"2;ps:return
  6. 25 get#2,a$:a$=left$(a$+chr$(.),1):aa=asc(a$):return
  7. 30 print#2,chr$(a);:return
  8. 35 dimdi$(29),ty$(14):poke808,234:poke53280,0:poke53281,0
  9. 40 print"Program to Split";:inputa$:ifa$=""then135
  10. 42 gosub115:print:fori=1to5:reada$,l,h
  11. 45 printa$;:inputb$:e%(i)=val(b$):on-(e%(i)<lore%(i)>h)goto45:print:next
  12. 50 fori=1to14:readty$(i):next
  13. 55 print:print:fori=1to14:printstr$(i)") "ty$(i):next:print:input"What type";ty$
  14. 60 ty=val(ty$):ifty<.orty>14then55
  15. 65 print"Date -"str$(e%(1))"/"mid$(str$(e%(2)),2)"/"right$(str$(e%(3)+100),2);
  16. 70 print"   Time -"str$(e%(4))":"right$(str$(e%(5)+100),2)
  17. 75 print:print"Type - "ty$(ty):print:print"Correct? ";:poke198,.:wait198,7:geta$
  18. 80 printa$:ifa$<>"y"anda$<>"Y"thenrestore:close2:close15:run
  19. 85 tr=asc(di$(1)):sc=asc(di$(2)):gosub10:gosub25:xt=aa:gosub25:xs=aa:gosub10
  20. 90 a=.:gosub30:a=255:gosub30:a=3:gosub30:a=24:gosub30:gosub15
  21. 95 di$(.)=chr$(131):di$(19)=di$(1):di$(20)=di$(2)
  22. 100 di$(1)=chr$(xt):di$(2)=chr$(xs):di$(21)=chr$(.):di$(22)=chr$(ty)
  23. 105 di$(23)=chr$(e%(3)):di$(24)=chr$(e%(1)):di$(25)=chr$(e%(2))
  24. 110 di$(26)=chr$(e%(4)):di$(27)=chr$(e%(5)):goto140
  25. 115 open15,8,15,"i0:":open2,8,2,"#":open3,8,3,a$:close3:input#15,e1$,e2$
  26. 120 ife1$>"19"thenprinte2$:goto135
  27. 125 a=656:gosub5:ds=a:a=660:gosub5:do=a:tr=18:sc=ds
  28. 130 gosub10:ps=do:gosub20:fori=.to29:gosub25:di$(i)=a$:next:return
  29. 135 close2:close15:poke808,237:end
  30. 140 tr=18:sc=ds:gosub10:ps=do:gosub20:fori=.to29:print#2,left$(di$(i),1);:next
  31. 145 gosub15:print:print"Done!":goto135
  32. 150 data"Month (1-12)",1,12
  33. 155 data"Day (1-31)",1,31
  34. 160 data"Year (0-99)",,99
  35. 165 data"Hour (0-23)",,23
  36. 170 data"Minute (0-59)",,59
  37. 175 databasic,assembly,data,system,desk accessory,application,appl. data,font
  38. 180 dataprinter driver,input driver,disk driver,system boot,temp,auto boot
  39. 8224               
  40.