home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8712a.d64 / demo5.wuerfel (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  478b  |  20 lines
  1. 10 INIT
  2. 20 OBJ 7,11
  3. 30 FORI=0TO7:READX,Y,Z:PSETI,X,Y,Z:NEXT
  4. 40 FORI=0TO11:READA,B:LSETI,A,B:NEXT
  5. 50 DATA -90,-90,-90, 90,-90,-90
  6. 60 DATA 90,90,-90,   -90,90,-90
  7. 70 DATA -90,-90,90,  90,-90,90
  8. 80 DATA 90,90,90,    -90,90,90
  9. 90 DATA 0,1,1,2,2,3,3,0
  10. 100 DATA 0,4,1,5,2,6,3,7
  11. 110 DATA 4,5,5,6,6,7,7,4
  12. 120 MODSET 0,0,1
  13. 130 DWSET-12,-12
  14. 140 PERSPSET-500,-170
  15. 150 PRINT"[147]BITTE STEUERN SIE MIT JOYSTICK UND":PRINT"TASTATUR"
  16. 160 PRINT"ENDE=(RESTORE) ODER BUTTON"
  17. 170 PRINT" (TASTE DRUECKEN)
  18. 180 [161]A$:[139]A$[178]""[167]180
  19. 190 DREH
  20.