Compucolor.org – Virtual Media

Listing of file='ANDNIM.BAS;01' on disk='vmedia/ncc_23-sector.ccvf'

10 PLOT 27,24,12
12 REM
15 REM  PROGRAMMED BY REX HAHN FOR CCII USERS GROUP 12/28/80
16 REM
20 REM  FOR COLORED NIM ON BLACK BACKGROUND USE FG = 1 TO 7
21 REM  WITH BG = FG * 8.   FOR BLACK NIM ON COLORED BACKGROUND
22 REM  USE BG = 1 TO 7 WITH FG = BG * 8.
23 REM
24 REM
30 FOR FG= 1TO 7
40 BG= FG* 8
50 PLOT 6,FG,12
60 PLOT 3,26,2:PRINT "ANDROID  NIM"
100 PLOT 3,30,13:GOSUB 2000
110 PLOT 3,31,17:GOSUB 2010
111 PLOT 3,29,15:GOSUB 2020
112 PLOT 3,33,15:GOSUB 2030
120 PLOT 3,30,10:GOSUB 1000:PLOT 3,64,0:GOSUB 3000
190 PLOT 3,29,15:GOSUB 2040:PLOT 3,64,0:GOSUB 3000
200 PLOT 3,29,15:GOSUB 2050:PLOT 3,64,0:GOSUB 3000
210 PLOT 3,33,15:GOSUB 2060:PLOT 3,64,0:GOSUB 3000
220 PLOT 3,33,15:GOSUB 2070:PLOT 3,64,0:GOSUB 3000
230 FOR X= 1TO 10
240 R= INT (6* RND (1)+ 1)
250 PLOT 3,30,10
260 ON RGOSUB 1000,1010,1020,1030,1040,1050,1060
265 PLOT 3,64,0
270 GOSUB 3000
280 NEXT X
870 GOSUB 3010
880 NEXT FG
890 GOTO 30
900 PLOT 27,11:END
1000 REM  FACE CENTER
1001 PLOT 2,254,0,12,192,0,255,10,26,26,26,26
1002 PLOT 2,254,224,239,254,14,255,10,26,26,26,26
1003 PLOT 6,BG,32,6,FG,2,254,120,135,255,6,BG,32,6,FG,10,26,26,26
1004 PLOT 2,254,207,252,255
1005 RETURN
1010 REM  FACE UP
1011 PLOT 6,FG,2,254,0,12,192,0,255,10,26,26,26,26
1012 PLOT 2,254,224,227,62,14,255,10,26,26,26,26
1013 PLOT 6,BG,32,6,FG,2,254,30,225,255,6,BG,32,10,26,26,26
1014 PLOT 32,32,6,FG
1015 RETURN
1020 REM  FACE DOWN
1021 PLOT 6,FG,2,254,0,12,192,0,255,10,26,26,26,26
1022 PLOT 2,254,224,239,254,14,255,10,26,26,26,26
1023 PLOT 6,BG,32,6,FG,2,254,243,63,255,6,BG,32,10,26,26,26
1024 PLOT 6,FG,2,254,30,225,255
1025 RETURN
1030 REM  FACE LEFT/CENTER
1031 PLOT 6,FG,2,254,192,0,12,0,255,10,26,26,26,26
1032 PLOT 2,254,240,238,239,14,255,10,26,26,26,26
1033 PLOT 2,254,143,119,248,255,6,BG,32,10,26,26,26
1034 PLOT 6,FG,2,254,204,255,6,BG,32,6,FG
1035 RETURN
1040 REM  FACE LEFT
1041 PLOT 6,FG,2,254,0,192,0,0,255,10,26,26,26,26
1042 PLOT 2,254,0,254,238,14,255,10,26,26,26,26
1043 PLOT 2,254,248,248,255,6,BG,32,32,10,26,26,26
1044 PLOT 32,32,6,FG
1045 RETURN
1050 REM  FACE RIGHT/CENTER
1051 PLOT 6,FG,2,254,0,192,0,12,255,10,26,26,26,26
1052 PLOT 2,254,224,254,238,15,255,10,26,26,26,26
1053 PLOT 6,BG,32,6,FG,2,254,143,119,248,255,10,26,26,26
1054 PLOT 6,BG,32,6,FG,2,254,204,255
1055 RETURN
1060 REM  FACE RIGHT
1061 PLOT 6,FG,2,254,0,0,12,0,255,10,26,26,26,26
1062 PLOT 2,254,224,238,239,0,255,10,26,26,26,26
1063 PLOT 6,BG,32,32,6,FG,2,254,143,143,255,10,26,26,26
1064 PLOT 6,BG,32,32,6,FG
1065 RETURN
2000 REM  BODY
2001 PLOT 6,FG,2,254,51,255,32,32,2,254,51,255,10,26,26,26,26
2003 PLOT 6,FG,2,254,238,255,6,BG,32,32,6,FG,2,254,238,255
2004 PLOT 10,26,26,26,6,BG,32,32,10,26,26,32,32,6,FG
2005 RETURN
2010 REM  LEGS
2011 PLOT 6,FG,2,254,31,241,255,10,26,26
2012 PLOT 2,254,15,240,255,10,26,26,26
2013 PLOT 2,254,204,15,240,204,255,10,26,26,26,26
2014 PLOT 2,254,17,1,16,17,255
2015 RETURN
2020 REM  LEFT ARM NORMAL
2021 PLOT 6,FG,2,254,248,7,255,10,26,26
2022 PLOT 2,254,243,12,255,10,26,26
2023 PLOT 2,254,16,239,255
2024 RETURN
2030 REM  RIGHT ARM NORMAL
2031 PLOT 6,FG,2,254,112,143,255,10,26,26
2032 PLOT 2,254,192,63,255,10,26,26
2033 PLOT 2,254,254,1,255
2034 RETURN
2040 REM  LEFT ARM 1
2041 PLOT 6,FG,2,254,240,15,255,10,26,26
2042 PLOT 2,254,240,15,255,10,26,26
2043 PLOT 2,254,254,1,255
2044 RETURN
2050 REM  LEFT ARM 2
2051 PLOT 6,FG,2,254,0,255,6,BG,32,10,26,26
2052 PLOT 6,FG,2,254,192,63,255,10,26,26
2053 PLOT 2,254,254,1,255
2054 RETURN
2060 REM  RIGHT ARM 1
2061 PLOT 6,FG,2,254,240,15,255,10,26,26
2062 PLOT 2,254,240,15,255,10,26,26
2063 PLOT 2,254,16,239,255
2064 RETURN
2070 REM  RIGHT ARM 2
2071 PLOT 6,BG,32,6,FG,2,254,0,255,10,26,26
2072 PLOT 2,254,243,12,255,10,26,26
2073 PLOT 2,254,16,239,255
2074 RETURN
3000 FOR  I= 1 TO  100:NEXT  I:RETURN
3010 FOR I= 1TO 1000:NEXT I:RETURN