API tools faq
paste
Advertisement
plirof2

BASIC Spectrum CSSCGC Design Bath -SEND ok

plirof2
Mar 19th, 2022 (edited)
2,493
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ZXBasic 8.58 KB | None | 0 0
raw download clone embed print report
  1. 6 REM UPDATE 1 LOADER
  2. 9910 BEEP 1,2: PRINT FLASH 1;"10D BATHROOM DESIGN "'"UPDATE CATALOGUE 1"; FLASH 0
  3. 9920 BEEP 1,1: PRINT '; INVERSE 1;"PLEASE INSERT"'"ORIGINAL PROGRAM TAPE"'"AND PRESS PLAY"
  4. 9930 LOAD "" SCREEN$
  5. 9940 MERGE "10dBath  "
  6. 9950 BEEP 1,1: PRINT '; INVERSE 1;"PLEASE INSERT"'"CATALOGUE UPDATE 1 TAPE"'"AND PRESS PLAY"
  7. 9960 MERGE "BATHUPDAT1"
  8. 9970 RUN
  9.  
  10.  
  11. UPDATE :
  12. 1 REM UPDATE 1 CATALOGUE LOADED
  13. 5 LET DIFFITEMS=15: LET INTROTEXT=6000: REM DIFFERENT ITEMS
  14. 5010 LET p$(1,1)="Bathtub": LET p$(1,2)="7200"
  15. 5020 LET p$(2,1)="Toilet": LET p$(2,2)="2100"
  16. 5030 LET p$(3,1)="Towel Hang": LET p$(3,2)="50"
  17. 5040 LET p$(4,1)="Mirror": LET p$(4,2)="50"
  18. 5050 LET p$(5,1)="Basin": LET p$(5,2)="2650"
  19. 5060 LET p$(6,1)="Shower": LET p$(6,2)="8800"
  20. 5070 LET p$(7,1)="Bidet": LET p$(7,2)="1900"
  21. 5080 LET p$(8,1)="Waste Basket": LET p$(8,2)="625"
  22. 5090 LET p$(9,1)="Jakuzi": LET p$(9,2)="7200"
  23. 5100 LET p$(10,1)="Bathtub B": LET p$(10,2)="51"
  24. 5110 LET p$(11,1)="Towel Heat Rack": LET p$(11,2)="50"
  25. 5120 LET p$(12,1)="Toilet B": LET p$(12,2)="1050"
  26. 5130 LET p$(13,1)="Wash Machine": LET p$(13,2)="3600"
  27. 5140 LET p$(14,1)="Drier Machine": LET p$(14,2)="3600"
  28. 5150 LET p$(15,1)="Laundry Basket": LET p$(15,2)="2000"
  29. 6070 PAPER 5: INK 1
  30.  
  31. UPDATE instructions:
  32. 10D Bathroom Design Update 1 - May 2022
  33. Updating is very simple:
  34. 1. Make sure there is no tape in your Tape Deck
  35. 2. Insert Catalogue Update Tape in your Tape Deck
  36. 3. Type LOAD "" AND press ENTER
  37. 4. Press Play in your Tape Deck
  38. 5. Wait UNTIL you see a message on screen
  39. 6. Press Stop in your Tape Deck
  40. 7. Remove Catalogue update tape from your Tape Deck
  41. 8. Insert Main Program Tape in the Tape Deck
  42. 9. Press Play in your Tape Deck
  43. 10. Wait UNTIL you see a message on screen
  44. 11. Press Stop in your Tape Deck
  45. 12. Remove Main Program Tape from your Tape Deck
  46. 13. Insert Catalogue Update tape in your Tape Deck
  47. 14. Press Play in your Tape Deck
  48.  
  49.  
  50.  
  51. ==============
  52.  
  53. Bathroom 10D Design!
  54. --------------------
  55. By Firelord Quality Products
  56.  
  57. Introduction
  58. ------------
  59. Each one of us have spend much time in the bathroom!
  60. According TO many scientific papers most of the creative thinking takes place during the time we spend in the bathroom!
  61. According TO these researches there are 3 stages of thinking inside the bathroom
  62. -1) Practical thinking: We entered the specific room with ONE goal. How can we accomblish that without making a mess.
  63. -2) After some seconds of facing one of the walls -OR the EXIT door of the bathroom the creative thinking takes place!
  64. -3) LONG term memory recall : During exiting the room we recall what we were doing before the need TO enter the room.
  65.  
  66. Stage 2 -when we are happy- is the most creative one. Sitting AND fulfilling your goal in the bathroom make the brain work much better so thats when you find ways TO become more productive AT various aspects of your life!
  67. The problem is when we are in stage 2 AND we are NOT happy with the internal design of the bathroom!
  68.  
  69. Thats when Bathroom 10D Design comes in place!!!
  70.  
  71. Description
  72. -----------
  73. This program takes the 3D design AND adds the 7 more missins 'D''s .
  74. The 7Ds are our imagination! There is NOT a single one design program that can compete with your imagination!
  75. In 'Firelord Quality Applications" we are very proud because we use algorithms that no other company in the field dares to use. We have a unique approach to the bathroom design problem that the final result will be as close to your imagination as possible.
  76.  
  77. Manual
  78. ------
  79. First you are asked FOR the dimensions of your room/bathroom.
  80. THEN the program creates AND downloads a unique list of available items that you can use TO make your own bathroom.
  81. You select the items you want AND the program in the END will give you a list with what you can fit in your bathroom!
  82.  
  83. LEGAL ISSUES
  84. ------------
  85. You should note that this is the free/demo version. You are NOT allowed TO use this program TO design more than one bathrooms without buying the appropriate licence.
  86.  
  87. Licence cost:
  88. ------------
  89. Designs  price
  90.     1     free
  91.     2       5$
  92.     5      10$
  93.    10      20$
  94.   100      50$
  95. unlim.   1000$
  96.  
  97. Full 10D Design Suite (that also includes that program) : 100$
  98.  
  99. Opinions/Scores
  100. ---------------
  101. Design Magazine : 101% - "Best software award"
  102. Bill Torvald : "Amazing"
  103. Linux Gates : "Great"
  104. Windows User : 99% " 99% Crap "
  105. Sinclair User : 99.8% "Ohhh. New spectrum Product!!"
  106. Commodore user : 1% "This doesn't run in my C64!"
  107.  
  108. ____________________________________________
  109. 5 LET DIFFITEMS=10: LET INTROTEXT=6000: REM DIFFERENT ITEMS
  110. 10 DIM p$(DIFFITEMS*2,2,10): DIM q(DIFFITEMS*2)
  111. 20 GO SUB INTROTEXT: GO SUB 4500: GO SUB INITITEMS
  112. 80 CLS
  113. 90 GO SUB SHOWINV
  114. 100 PRINT INK 5;"You Have ";(cm2-usedcm2)/10000;"m2 available"
  115. 110 PRINT "What else do you want to put in your ";r$;
  116. 120 INPUT "? ";n
  117. 130 IF (n<1 OR n>DIFFITEMS) THEN PRINT "OPTION NOT AVAILABLE": PAUSE 30: GO TO 80
  118. 140 LET tmp=VAL (p$(n,2))
  119. 150 IF (tmp+usedcm2)>cm2 THEN PRINT INK 2;"FULL": GO SUB ENDGAME
  120. 170 LET usedcm2=usedcm2+tmp
  121. 180 LET q(n)=q(n)+1
  122. 600 REM PRINT "usedcm2=";usedcm2 ,"q="; q
  123. 900 GO TO 80
  124. 1000 STOP
  125. 4500 REM VARIABLES
  126. 4510 LET cm2=40000: REM square meter of bathroom
  127. 4520 LET usedcm2=0
  128. 4530 LET r$="Bathroom"
  129. 4540 FOR i=1 TO DIFFITEMS
  130. 4550 LET q(i)=0
  131. 4560 NEXT i
  132. 4570 INPUT "Give me the Width of the room : ";w
  133. 4580 INPUT "Give me the Depth of the room : ";d
  134. 4590 LET cm2=w*100*d*100
  135. 4600 LET INITITEMS=5000: LET SHOWINV=5500: LET ENDGAME=8000
  136. 4900 RETURN
  137. 5000 REM INITITEMS initialize items
  138. 5005 PRINT "Design 10d Suite"
  139. 5010 LET p$(1,1)="Bathtub": LET p$(1,2)="7200"
  140. 5020 LET p$(2,1)="TOILET": LET p$(2,2)="2100"
  141. 5030 LET p$(3,1)="TOWEL HANG": LET p$(3,2)="50"
  142. 5040 LET p$(4,1)="Mirror": LET p$(4,2)="50"
  143. 5050 LET p$(5,1)="Basin": LET p$(5,2)="2650"
  144. 5060 LET p$(6,1)="Shower": LET p$(6,2)="8800"
  145. 5070 LET p$(7,1)="Bidet": LET p$(7,2)="1900"
  146. 5080 LET p$(8,1)="Waste Basket": LET p$(8,2)="625"
  147. 5090 LET p$(9,1)="Jakuzi": LET p$(9,2)="7200"
  148. 5100 LET p$(10,1)="Bathtub B": LET p$(10,2)="50"
  149. 5110 LET p$(11,1)="BATHTUB": LET p$(11,2)="50"
  150. 5120 LET p$(12,1)="Wastebasket": LET p$(12,2)="50"
  151. 5130 LET p$(13,1)="BATHTUB": LET p$(13,2)="50"
  152. 5140 LET p$(14,1)="BATHTUB": LET p$(14,2)="50"
  153. 5150 LET p$(15,1)="BATHTUB": LET p$(15,2)="50"
  154. 5400 RETURN
  155. 5500 REM SHOWINV Show inventory
  156. 5510 FOR i=1 TO DIFFITEMS
  157. 5520 PRINT i;") ";p$(i,1);"(";VAL p$(i,2);"cm2) q=";q(i)
  158. 5540 NEXT i
  159. 5900 RETURN
  160. 6000 REM INTROTEXT
  161. 6050 REM PAPER 5:INK 2:CLS
  162. 6060 PRINT INVERSE 1; FLASH 1;"10D Design Suite!"'"--Bathroom Design--": INVERSE 0: FLASH 0
  163. 6065 PRINT "By Firelord Quality Programs"
  164. 6070 PAPER 5: INK 2:
  165. 6100 PRINT "Each one of us have spend much  time in the bathroom!"'" According to many scientific   papers most of the creative     thinking takes place during the time we spend in the bathroom! "'"According to the researches     there are 3 stages of thinking   inside the bathroom: "
  166. 6102 PRINT INVERSE 1;"-1) Practical thinking: "'"We entered the specific room    with ONE goal. How can we       accomblish that without making a mess. "'"-2) After some seconds of facing one of the walls -or the exit door of the bathroom the creative thinking takes place! "'"-3) Long term memory recall :"'" During exiting the room we recall what we were doing before the need to enter the room. "; INVERSE 0''; FLASH 1;"Stage 2 -when we are happy- is  the most creative stage. Sitting and fulfilling your goal in the bathroom make the brain work   much better so then you find ways to become more productive at various aspects of your life!"; FLASH 0'"The problem is when we are in stage 2 and we are not happy with the internal design of the bathroom! Thats when Bathroom 10D Design comes in place!!! ": PAUSE 0
  167. 6110 PRINT "Instructions : First you are asked for the dimensions of your room/bathroom. Then the program creates and downloads a unique list of available items that you can use to make your own bathroom. You select the items you want and the program in the end will give you a list with what you can fit in your bathroom! ": PAUSE 0
  168. 6200 PAPER 7: INK 0
  169. 6500 RETURN
  170. 8000 REM ENDGAME
  171. 8005 CLS : PRINT "CONGRATULATIONS!!!": PRINT "YOU CAN FIT IN YOUR BATHROOM :"
  172. 8510 FOR i=1 TO DIFFITEMS
  173. 8520 IF (q(i)>0) THEN PRINT q(i);" pieces of : ";p$(i,1)
  174. 8540 NEXT i
  175. 8600 PAUSE 0: PRINT "Do you want to design another ";r$
  176. 8610 INPUT "Type Y/N :";i$
  177. 8620 IF (i$="y" OR i$="Y") THEN PRINT FLASH 1; PAPER 2;"The Demo version does NOT allow multiple designs!": PRINT "Please support the author and pay mucho money to get the registered/licenced version!"'"Paid version allows unlimited number of designs!": STOP
  178. 8630 GO TO 1
  179. 8800 REM GOSUB SHOWINV
  180. 8900 STOP : RETURN
  181.  
  182.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!