home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 181
/
181.d81
/
inf2.pt4
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
8KB
|
196 lines
0 rem ***** save"@0:inf2.pt4",8
1 dv=peek(186):ifdv<8thendv=8
2 poke53272,29:goto690
5 poke198,0
6 getk$:ifk$=""then6
7 ifk$="s"andpeek(49152)=7thenpoke49152,0:sys49897:return
8 ifk$="s"andpeek(49152)=0thenpoke781,0:poke782,150:sys49664:poke49152,7
9 return
100 rem *** cityscape
101 print"[147][154] .[155] ";
102 print" [154] .[155] ";
103 print" [154] [151][167][155] ";
104 print" [151] [154]. [151][217][165] [154].[155] ";
105 print" [154] [151][164] [200][212] ";
106 print"[176][192][174][176][192][174] [154].[155] [154] [151][206][165] [186][167] [194][194] ";
107 print" [154].[151][194][158].[151][194][194][158].[151][194][155] [151] [180][205][164][165][158].[151][163][205] ";
108 print"[176][207][183][183][208][174] [151][194][158].[151][194][194][158].[151][194][155] [151][164][180][158]";
109 print".....[151][167] [164][206] [158].... [151][205] [151][194][158].[151][194][194][158].[151]";
110 print"[173][174][155] [151] [158].....[151][167][164][165][158]. [158].. [158] .[151][208] ";
111 print" [151][176][192][189] [151][173][189] [151][194][155] [151] ";
112 print" [158].. [151][170] [151][207][177][208][220][158]... [158]. [158].[151][221] [151][176][174]";
113 print"[155] [153] [158] [153] [151][183][183] [153]";
114 print" [151][221][164][155] [151][180][155] [151][165] ";
115 print" [153] [158].[151][205][164][206][155] [151][205] "
116 print"[156][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][155]":return
200 rem *** options table
201 print""spc(16)"[155]options":print" [156] 1 [146] [155]"a$
202 print" [156] 2 [146] [155]"b$:print" [156] 3 [146] [155]"c$:c=0
203 ifx=1thenprint"[145][145][145][145][145][155] 1 [156]"a$
204 ifx=2thenprint"[145][145][145][155] 2 [156]"b$
205 ifx=3thenprint"[145][155] 3 [156]"c$
206 gosub5:ifk$=""andx<3thenx=x+1
207 ifk$="[145]"andx>1thenx=x-1
208 ifk$=chr$(13)thenc=x:return
209 goto200
286 f$="inf2.main":goto291
289 f$="inf2.pt3":goto291
290 f$="inf2.pt2"
291 syssa+3:poke53280,0:poke53281,0:poke49152,0:sys49935
293 print"[144]load"chr$(34)f$chr$(34)","dv:print"run"
294 poke631,13:poke632,13:poke198,2:end
690 sys49615:poke781,0:poke782,150:sys49664
716 rem *** setup variables
717 vi=53248:pg=64:sa=pg*256:sp=248
718 ss=49152:pokevi+32,0:pokevi+33,0
719 pokevi+29,255:forzd=39to47:pokevi+zd,4:next:goto840
730 rem *** cityscape4
731 print"[147][155][172][162][162] [151] [150] [151] [154] [151] [154] [151] ";
732 print" [151] [150] [155][161][190] [146][192][192][192][174][159].[151] [150] [151] [150] [154]";
733 print" [150] [154] [155]. [151] [150] [155][161][190] [158][146][188] [155]";
734 print" [221][151] +[151] [150] [155].[150] [154] [155].[154] . ";
735 print"[151] [175][175][175][150] [155][161][190][190][158][146][188] [155] [221][151] [159].[149] +[149]";
736 print" [159].[149] [151][180][158][172] [151][180][155][161][190][190][151][146] [158][188][188][155][221][151] ";
737 print" [150] [149] [155]+[149] [151] .[151] [175][180][158][187] [151]";
738 print"[204][155][161][190] [158][146][188] [188][155][221][152]...[149][146] [159].[129] [149] [151] [155] [172]";
739 print" [172] [146] .[151] [165][158] [172] [150] [155][161][190][190][158][146][188] [155][221][152].. [149]";
740 print"[146] [151] [152][172][172][172][155][172][172][172][172] [146] [151] [165][158] [150] ";
741 print"[155][161][190][190][151][146] [158][188][155][221][152]...[151][168][168][168][182][146] [159].[151] [152][172][191][191][155] [162][162]";
742 print"[162][162][146][174][152][166][166][166][146][186][207][204][151] [165] [158][172] [150] [155][161][190][190][158][146][188] [155][221][152]..";
743 print".[151][168][168][168][182][146] [155][172][158][146] :::[155][221][152][166][166][166][146][180][158][220][220][152][180][151][165]";
744 print"[158] [187] [150] [155][161][190][190][158][146][172] [155][221][152]...[151][168][168][168][182][146] [155][164][164][164][151] [190]";
745 print"[190][190][155][172][158][146]::::[155][221][152][166][166][166][146][165][158][220][220][152][165][151][165][158] [187][150] [155][161][190][190][146] ";
746 print" [155][221][152]. .[151][168][168][168][182][152][146][170][158][168]::[151] [190][158][146]:[168][155][172][158][146]:: :[155][221]";
747 print"[152][166][166][166][146][165][158] [220][152][165][151][165][158] [150] [155][161][190][190][146] [155][221][152].[155][146][207][208]";
748 print"[151][168][155][146][207][208][151][182][152][146][170][158][168] :[151] [190][158][146]:[168][155] [158][146]::::[155][221][152][166][166]";
749 print"[166][146][165][158][220][220][152][165][151][180][158] [187] [150] [155][161] [190][146] [158][191][155][221][152].[155][146][180][170][151][168]";
750 print"[155][146][165][170][151][182][152][146][170][158][168]::[155] [158]::[168][155][172][158][146]: ::[155][221][152][166][166][166][146][165][158][220]";
751 print"[220][152][165][151][165] [158] [150] [155][161][190][190][146] [158][191] [155][221][152].[155][146][180][170][151][168][155][146][180]";
752 print"[170][151][182][152][146][167][158][168] [155] [158]: [158][168][155][172][158][146]::::[155][221][152][166][166][166][146][165][158][220]";
753 print" [151][178][190][158] [187] [150] [155] [190] [146] [155][221][152].[155][146][180][158][190][155] [158][190] [155][221]";
754 print"[152][167][158][168]:: [158]:: [155][172][158][146]: [158]::[155][221][152][166][166][166][158][146][220][220] [151][221][158]";
755 print"[172] [150] [155] [190][190][146] [158][191][155][221][152].[155][146][180][158][187][190][187][190][155][221][152][167][158][168]: ";
756 print" [158]::[168][155] [146] [158]:::[155][221][152][166][166][166][158][146][220][220][220][151][221] [150] [191][190]";
757 print"[188][155][146] [190][188][152],[155][146][180][190][188][146][187][158][190][155][221][191][191][188][158][146]: [190][191][146]";
758 print"[187][155][172][158][146]:[187] [172][162][162][152][166][166][146][162][158][220][220][191][146][162][185][158][187] [150] [191]";
759 print" [172][188] [146][191] [188][190] [191][184][146][191] [188][146][191] [146][187] [146][191] [188][146] [188][146][191]";
760 print" [146][191][191] [190][146][191] [146][191][191][188][191][188][146][191][191][162][146][191][191][191][191][146][191][188][146][191][190][191][190]";
761 print" [146][191][191][191] [146][191][191][162][146][191] [191][191][190][191][146][191][191][190] [191][191][190][188] [146][191][191] [149][146][182]";
762 print"[172][146][190][191] [149][190][146][188][149][188][172][190][172][162][149][188][162][146][187][191][172][149][146][161][188][188][172][149][190]";
763 print"[146][184][172][149][146][161][187][191][172][146][191][172][149][146][161][191][187][149][190][146][191][172][149][188][146][191] [146][190]";
764 print"[149][182][161][150] [149][182][150] [149][184][161][150] [149][161][150][146] [149][161][150][146] [149][191][150] [149][161]";
765 print"[150] [149][161][150] [149][161][150] [149][188][161][150] [149][186][181][150] [149][182][150][155]":return
770 rem *** cityscape5
771 print"[147][154] .[155] ";
772 print" [154] [145].[155] ";
773 print" [154] [152] [155] ";
774 print" [151] [154]. [152][170][180][151] [154].[155] ";
775 print" [154] [151][16