home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 74 / 074.d81 / me (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  34 lines
  1. 1 poke53280,0:poke53281,0:poke53265,11:poke198,0:s$=""
  2. 2 a$(1)=""+s$+"[193][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][211]"
  3. 3 a$(1)=a$(1)+""+s$+"[180]\\\ dungeon \\\[170]"
  4. 4 a$(1)=a$(1)+""+s$+"[218][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][216]":co$="[158][129][159][156][149][156][159][129][158]"
  5. 5 print"[147][151]";a$(1):print""+s$+"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  6. 6 a$=s$+"[194]"+s$+s$+"[194]"
  7. 7 prints$;"[194]by dave caruso ii[194]":prints$;"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  8. 8 print"";s$;"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]":printa$
  9. 9 prints$;"[194] [154][1[154]] guild           [194]":printa$
  10. 50 prints$;"[194] [154][2[154]] dungeon maker   [194]":printa$
  11. 55 prints$;"[194] [154][3[154]] treasure maker  [194]":printa$
  12. 60 prints$;"[194] [154][4[154]] monster maker   [194]":printa$
  13. 61 prints$;"[194] [154][5[154]] lost world      [194]":printa$
  14. 62 prints$;"[194] [154][m[154]] more            [194]":printa$
  15. 65 prints$;"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]";:poke53265,27:c=1
  16. 67 c=c+1:ifc<>2then75
  17. 70 c=0:b=b+1:printmid$(co$,b,1);a$(1):ifb=16thenb=0
  18. 75 geta$:ifa$=""then67
  19. 76 ifx=1then135
  20. 77 ifa$="m"then100:poke53265,11:open15,8,15:print#15,"i":close15:sys64738
  21. 80 ifval(a$)<1orval(a$)>5then67
  22. 85 forg=1toval(a$):readd$:nextg:data"gu","dm","tm","mm","rd"
  23. 90 print"[147][144]load";chr$(34);d$;chr$(34);",8r[213][145][145][145][145][154]d u n g e o n[144]"
  24. 95 poke631,13:poke632,13:poke633,13:poke198,3:end
  25. 100 print"":forg=1to6:prints$;"                  ":next
  26. 110 print"[145][145][145][145][145][145][145][145][145][145][145]":prints$;"[194] [154][1[154]] utilities"
  27. 120 prints$;"[154][2[154]] print data disk":prints$;"[154][3[154]] leave game"
  28. 130 prints$;"[154][m[154]] more":x=1:goto67
  29. 135 ifa$="m"thenrun
  30. 137 ifa$="1"thend$="ut":goto90
  31. 138 ifa$="2"thend$="pd":goto90
  32. 139 ifa$<>"3"then67
  33. 140 poke53265,11:open15,8,15:print#15,"i":close15:sys64738
  34.