home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 61 / 061.d81 / bytes (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  62 lines
  1. 10 dimfi$(100),bl(100),ft$(100):poke53281,0:poke53280,0:print"[147][159]":it=1
  2. 20 gosub40010:bx=2:ex=38:by=1:bd=9:bc=4:gosub40040
  3. 30 print"[158]      ?.[198][201][204][197][211] on this disk[160]       ":gosub5010
  4. 40 rem***** menu ******
  5. 50 gosub170:gosub260:poke214,21:print:printtab(11)"[209] to quit to [204][207][193][196][211][212][193][210]"
  6. 60 geta$:ifti>15thent=nott:gosub140
  7. 70 ifa$=""then60
  8. 80 ifa$=""thent=0:gosub140:it=it+1:t=-1:ifit>10thenit=1:gosub200
  9. 90 ifa$="[145]"thent=0:gosub140:it=it-1:t=-1:ifit<1thenit=10:gosub220
  10. 100 ifa$=""thenifit<6thent=0:gosub140:it=it+5:t=-1:gosub140
  11. 110 ifa$="[157]"thenifit>5thent=0:gosub140:it=it-5:t=-1:gosub140
  12. 120 ifa$="q"thengoto60000
  13. 130 gosub140:gosub240:gosub260:goto60
  14. 140 x=4:l=it:ifit>5thenx=21:l=it-5
  15. 150 poke211,x:poke214,3+l:sys58732:poke199,-t:printfi$(pa+it):ti$="000000"
  16. 160 return
  17. 170 print"":fori=1to5:print"                                  ":next
  18. 180 fori=1+patopa+5:poke211,4:poke214,3+i-pa:sys58732:poke646,3
  19. 190 printfi$(i);tab(21)fi$(i+5):next:return
  20. 200 gosub240:ifpa>+10<nfthenpa=pa+10:gosub170
  21. 210 return
  22. 220 gosub250:ifpa>=10thenpa=pa-10:gosub170
  23. 230 return
  24. 240 ifit+pa>int(nf)thenit=it-1:goto240
  25. 250 return
  26. 260 poke214,9:print:printtab(4)"[153][194]lock size:     [157][157][157][157][157]"bl(it+pa)tab(22);
  27. 270 print"[212]ype:    [157][157][157]"ft$(it+pa)"[159]":return
  28. 5000 rem **** setup ****
  29. 5010 gosub5090:nf=(el-mp)/32-1
  30. 5020 rem ** extract names from memory **
  31. 5030 a$="":i=mp+32:forx=1tonf:fori=itoi+31:a$=a$+chr$(peek(i)):next
  32. 5040 fi$(x)=mid$(str$(asc(mid$(a$,2,1))*256+asc(mid$(a$,1,1))),2):a$=mid$(a$,2)
  33. 5050 fi$(x)=fi$(x)+" "+mid$(a$,1,29-len(fi$(x))):a$="":print"[144]"fi$(x)
  34. 5060 print",,,";
  35. 5070 open3,3:input#3,bl(x),fi$(x),ft$(x):close3:next
  36. 5080 fori=nf+2to100:fi$(i)="":ft$(i)="":bl(i)=0:next:return
  37. 5090 close15:open15,8,15,"i0:":gosub5150:print#15,"i0:":input#15,a$,a$,b$,c$
  38. 5100 ifa$<>"ok"thenend
  39. 5110 ifnd$<>od$thengosub5170
  40. 5120 rem ** find end of load **
  41. 5130 el=peek(175)*256+peek(174):return
  42. 5140 rem*** get disk name ****
  43. 5150 print#15,"m-r";chr$(144);chr$(7);chr$(20):nd$="":fori=1to20:get#15,a$:nd$=nd$+a$:next:a$="":return
  44. 5160 rem ** bload directory into mp **
  45. 5170 mp=49152:fi$="$?.*":le=0:t=0:hi=int(mp/256):lo=mp-(hi*256):fori=1tolen(fi$)
  46. 5180 poke678+i,asc(mid$(fi$,i,1)):next:le=i-1:poke780,le:poke781,167:poke782,2:sys65469:poke780,2:poke781,8
  47. 5190 poke782,0:sys65466:poke780,0:poke781,lo:poke782,hi:sys65493:return
  48. 40000 rem*******generate variables**********
  49. 40010 ba$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  50. 40020 a$="[221][157][221][157][221][157][221][157][221][157][221][157][221][157]":fori=1to6:bd$=bd$+a$:next:return
  51. 40030 rem*********print box*************
  52. 40040 oc=peek(646):poke646,bc:rv$="":ifrvthenrv$=""
  53. 40050 poke211,bx:poke214,by:sys58732:printrv$"[176]"left$(ba$,ex-bx-2)"[174][157]";
  54. 40060 printrv$left$(bd$,bd*3):printrv$spc(bx)"[145][173]"left$(ba$,ex-bx-2)"[189]"
  55. 40070 poke211,bx:poke214,by+1:sys58732:printrv$left$(bd$,bd*3)"":poke646,oc
  56. 40080 rv=0:return
  57. 60000 close15: open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  58. 60010 if er<>63 then print"[147]":end
  59. 60020 a$="hello connect":q$=chr$(34):poke53281,7:poke53280,7:print"[147]"
  60. 60030 print"[158]load"q$a$q$",8"
  61. 60040 print"run":poke631,13:poke632,13:poke198,2:end
  62.