Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-08-14 10:29:46 +00:00
Code Issues Projects Releases Wiki Activity

ksp: more commenting

Browse Source
This commit is contained in:
Vince Weaver 2016-05-31 13:35:37 -04:00
parent ef8a9cdb5c
commit 49fc192288
1 changed files with 31 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
ksp/ksp.bas
View File

@ -318,23 +318,40 @@
8080 NEXT I 8080 NEXT I
8085 AD(W)=1 8085 AD(W)=1
8090 GOTO 9000 8090 GOTO 9000
8100 REM *** KERBAL EYES *** '**************************
8105 HCOLOR=3:HPLOT 258,150 TO 263,150:HPLOT 265,150 TO 270,150 '*** Astronaut Eyes ***
'**************************
'*** Erase old ones
8100 HCOLOR=3:HPLOT 258,150 TO 263,150:HPLOT 265,150 TO 270,150
'*** Randomly pick new ones
8110 KE=INT(RND(1)*3) 8110 KE=INT(RND(1)*3)
'*** Draw new ones
8120 HCOLOR=0:HPLOT 258+(2*KE),150 TO 259+(2*KE),150 8120 HCOLOR=0:HPLOT 258+(2*KE),150 TO 259+(2*KE),150
8125 HPLOT 265+(2*KE),150 TO 266+(2*KE),150 8125 HPLOT 265+(2*KE),150 TO 266+(2*KE),150
8130 RETURN 8130 RETURN
8200 REM *** KERBAL FROWN *** '**************************
8205 HCOLOR=1:HPLOT 259,155 TO 271,155:HPLOT 259,156 TO 271,156 '*** Astronaut Frown ***
8206 HCOLOR=0:HPLOT 261,155 TO 269,155:HPLOT 259,156 TO 271,156 '**************************
'**** Erase old mouth
8200 HCOLOR=1:HPLOT 259,155 TO 271,155:HPLOT 259,156 TO 271,156
'**** Draw frown
8205 HCOLOR=0:HPLOT 261,155 TO 269,155:HPLOT 259,156 TO 271,156
8207 RETURN 8207 RETURN
8210 REM *** KERBAL NEUTRAL *** '**************************
8215 HCOLOR=1:HPLOT 259,155 TO 271,155:HPLOT 259,156 TO 271,156 '*** Astronaut Neutral ***
8216 HCOLOR=0:HPLOT 259,155 TO 271,155 '**************************
'**** Erase old mouth
8210 HCOLOR=1:HPLOT 259,155 TO 271,155:HPLOT 259,156 TO 271,156
'**** Draw new mouth
8215 HCOLOR=0:HPLOT 259,155 TO 271,155
8217 RETURN 8217 RETURN
8220 REM *** KERBAL SMILE *** '**************************
8225 HCOLOR=1:HPLOT 259,155 TO 271,155:HPLOT 259,156 TO 271,156 '*** Astronaut Smile ***
8226 HCOLOR=0:HPLOT 259,155 TO 271,155:HPLOT 261,156 TO 269,156 '**************************
'**** Erase old mouth
8220 HCOLOR=1:HPLOT 259,155 TO 271,155:HPLOT 259,156 TO 271,156
'**** Draw new mouth
8225 HCOLOR=0:HPLOT 259,155 TO 271,155:HPLOT 261,156 TO 269,156
8227 RETURN 8227 RETURN
'***************************** '*****************************
'*** CONTRACT COMPLETE *** '*** CONTRACT COMPLETE ***