home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 138 / 138.d81 / freezer (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  44 lines
  1. 10 poke56,16:clr:print"[147]"
  2. 20 dv=peek(186):ifdv<8ordv>29thendv=8
  3. 30 sys57812"toolkit 1000",dv,0:poke780,0:poke781,0:poke782,16:sys65493
  4. 40 mt=4096:box=mt+3
  5. 50 sysbox,0,39,0,20,95,12:sysbox,5,33,5,13,255,11:sysbox,6,34,4,12,160,12
  6. 60 sysbox,1,38,1,1,160,15:print"[155]";:sysmt+18,1,"[208][160][210] [207] [199] [210] [193] [205]   [198] [210] [197] [197] [218] [197] [210]"
  7. 70 print"[152]";:fori=1to7:reada$:sysmt+18,4+i,a$:next
  8. 75 fori=1to5:readl(i):next
  9. 80 print"[146][158]";:sysmt+18,23,"[208]lease select area to install freezer"
  10. 90 sysmt,5,6,34,7,12+128,1+128,asc("q")
  11. 100 geta$:a=val(a$):ifa=0ora=7then40000
  12. 110 ifa<6thena=l(a):goto200
  13. 120 sysbox,0,39,23,23,32,0:sysmt+15,2,23,"[146][197]nter address:[158]":li=5:gosub50000
  14. 130 ifval(w$)=0then80
  15. 140 a=val(w$)
  16. 200 sysbox,0,39,23,23,32,0:sysmt+18,23,"[204][207][193][196]ing [198]reezer [195]ode...
  17. 210 h[178][181](a[173]256):l[178]a[171]h[172]256
  18. 220 [158]57812"freeze.o",dv,0:[151]780,0:[151]781,l:[151]782,h:[158]65493
  19. 230 [158]a,a:[151]56,160:[156]:[153]"loadascreezer installed. (NULL)val(NULL)(NULL)(NULL)(NULL)val to freeze":[162]
  20. 5000 [131]"lenassette peekuffer","(NULL)ow len000","left$igh len000","left$igh peekatn(NULL)right$len","(NULL)id peekatn(NULL)right$len"
  21. 5010 [131]"valnter atnddress (NULL)anually","(NULL)eturn (NULL)o (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)
  22. 5020 data828,49152,52992,40704,20480
  23. 30000 stop
  24. 40000 fori=0to21:poke828+i,8+i:next
  25. 40010 ifdv<8ordv>29ordv=8then40030
  26. 40020 a=peek(828):b=peek(828+dv-8):poke828,b:poke828+dv-8,a
  27. 40030 a$="hello connect":forj=8to29:i=peek(828+j-8):ifi=14thennext
  28. 40040 close2:open2,i,2:close2:ifstthen40060
  29. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  30. 40060 next:print"[147]":poke53272,23:poke186,8:poke2048,0:poke56,160:clr:end
  31. 40070 q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  32. 40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  33. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  34. 50000 w$="":t=0:lw=0:ifli=0thenli=35
  35. 50010 geta$:as=asc(a$+chr$(0)):ifti>15thengosub50090
  36. 50020 if(a$<" "ora$>"z")and(a$<"[193]"ora$>"[218]")andas<>13andas<>20then50010
  37. 50030 lw=len(w$):ifas=13thent=-1:gosub50090:return
  38. 50040 iflw=lithenifas<>20andas<>13then50010
  39. 50050 ifas=20theniflw=0then50010
  40. 50060 ifas=20thenw$=left$(w$,len(w$)-1):t=0:gosub50090:gosub50090:print"[146][157] [157]";:goto50010
  41. 50070 w$=w$+a$:lw=len(w$):poke212,0:print"[146]"a$;:gosub50090
  42. 50080 goto50010
  43. 50090 t=nott:poke199,-t:print" [157]";:ti$="000000":return
  44.